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.

"Mat" <re**********@fuckSpam.COM> wrote in message
news:ef**************@TK2MSFTNGP10.phx.gbl...

-Network Card--> MAC address

Next?

[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" <re**********@fuckSpam.COM> wrote in message
news:ef**************@TK2MSFTNGP10.phx.gbl:

-Network Card--> MAC address

Next?

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.3.3 - Release Date: 6/18/2004

[Mat]

Thank you !
"Ken Tucker [MVP]" <vb***@bellsouth.net> wrote in message
news:OA****************@TK2MSFTNGP11.phx.gbl...

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" <re**********@fuckSpam.COM> wrote in message
news:ef**************@TK2MSFTNGP10.phx.gbl:

-Network Card--> MAC address

Next?

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 263.3.3 - Release Date: 6/18/2004