Get HDD serial number

  • Thread starter Thread starter Kaid4 Informática
  • Start date Start date
K

Kaid4 Informática

How do i get the serial number of an harddisk?

thanks,
Gonçalo Boléo
Kaid4 Informática
Portugal
 
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
 
Back
Top