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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Network sharing problem 1
List groups that a user belong using AD 3
Launch browser 2
H1 and Asp:Textbox 2
Get computer name 5
HTML IMG vs ASP:IMAGE performance 2
Use RegularExpressions with TexBox 3
LPT1 print from Windows Service 1

Back
Top