Hi,
Add a reference to system.management
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("Name")
Dim SerialNumber As String = mo("Volumeserialnumber")
Dim strOut As String = String.Format("{0} - {1}", VolumeName, SerialNumber)
Debug.WriteLine(strOut)
Next
Ken
------------------
"Kaid4 Informática" <ne********@kaid4.com.pt> wrote in message
news:e3**************@TK2MSFTNGP10.phx.gbl...
How do i get the serial number of an harddisk?
thanks,
Gonçalo Boléo
Kaid4 Informática
Portugal