how unique is this ? will i ever get duplicates ? and will it ever change ?
... i want some way of relating my software to the customer .... is there a system GUID?
Code:Function GetCPUID() As String Dim sReturn As String = "" Try Dim objMOS As ManagementObjectSearcher Dim objMOC As Management.ManagementObjectCollection Dim objMO As Management.ManagementObject objMOS = New ManagementObjectSearcher("Select * From Win32_Processor") objMOC = objMOS.Get For Each objMO In objMOC sReturn = objMO("ProcessorID") Exit For Next objMOS = Nothing objMOC = Nothing objMO = Nothing Catch ex As Exception '# error getting cpu id myErr.WriteToErrorLog(ex.Message, Environment.StackTrace, "Error returning system ID.") End Try Return sReturn End Function




Reply With Quote