Hi,
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_LogicalDisk'")
moReturn = moSearch.Get
For Each mo In moReturn
Dim VolumeName As String = mo("Volumename")
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
Debug.WriteLine(mo("ProcessorID"))
Next
Ken
----------------
"Abubakar" <xv************@yahoo.co.uk> wrote in message
news:01****************************@phx.gbl...
I have been trying to write a code that will enable me get
the serial number of the motherboard or harddrive on a
given system but no luck so far. Can any one out there
help me.