Which device in PC has Unique ID in the World?

[Mat]

-Network Card--> MAC address

Next?

 

[Greg Young]

hard drive serial numbers always work well ...

you can also get the unique id of the processor for later chips.

 

[Ken Tucker [MVP]]

Hi,

Here are some ideas. Add a reference to system.management.dll

Dim moReturn As Management.ManagementObjectCollection
Dim moSearch As Management.ManagementObjectSearcher
Dim mo As Management.ManagementObject

moSearch = New Management.ManagementObjectSearcher("Select *
from Win32_MotherboardDevice")

moReturn = moSearch.Get
For Each mo In moReturn
Dim strOut As String = String.Format(" {0} - {1} ",
mo("Name"), mo("PNPDeviceID"))
Debug.WriteLine(strout)
Next


moSearch = New Management.ManagementObjectSearcher("Select *
from Win32_LogicalDisk")

moReturn = moSearch.Get
For Each mo In moReturn
Dim VolumeName As String = mo("Name")
Dim SerialNumber As String = mo("Volumeserialnumber")
Dim strOut As String = String.Format("{0} - {1}",
VolumeName, SerialNumber)
Debug.WriteLine(strOut)
Next

moSearch = New Management.ManagementObjectSearcher("Select *
from Win32_Processor")

moReturn = moSearch.Get
For Each mo In moReturn
Dim strout As String = String.Format("{0} - {1}",
mo("Name"), mo("ProcessorID"))
Debug.WriteLine(strout)
Next

Ken
-------------------

 

[Mat]

Thank you !

Hi,

Here are some ideas. Add a reference to system.management.dll

Dim moReturn As Management.ManagementObjectCollection
Dim moSearch As Management.ManagementObjectSearcher
Dim mo As Management.ManagementObject

moSearch = New Management.ManagementObjectSearcher("Select *
from Win32_MotherboardDevice")

moReturn = moSearch.Get
For Each mo In moReturn
Dim strOut As String = String.Format(" {0} - {1} ",
mo("Name"), mo("PNPDeviceID"))
Debug.WriteLine(strout)
Next


moSearch = New Management.ManagementObjectSearcher("Select *
from Win32_LogicalDisk")

moReturn = moSearch.Get
For Each mo In moReturn
Dim VolumeName As String = mo("Name")
Dim SerialNumber As String = mo("Volumeserialnumber")
Dim strOut As String = String.Format("{0} - {1}",
VolumeName, SerialNumber)
Debug.WriteLine(strOut)
Next

moSearch = New Management.ManagementObjectSearcher("Select *
from Win32_Processor")

moReturn = moSearch.Get
For Each mo In moReturn
Dim strout As String = String.Format("{0} - {1}",
mo("Name"), mo("ProcessorID"))
Debug.WriteLine(strout)
Next

Ken