Get HDD serial number

[Kaid4 Informática]

How do i get the serial number of an harddisk?

thanks,
Gonçalo Boléo
Kaid4 Informática
Portugal

 

[Ken Tucker [MVP]]

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