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]]

Re: Get HDD serial number

Hi,

Add a reference to system.manageme nt

Dim moReturn As Management.Mana gementObjectCol lection

Dim moSearch As Management.Mana gementObjectSea rcher

Dim mo As Management.Mana gementObject

moSearch = New Management.Mana gementObjectSea rcher("Select * from
Win32_LogicalDi sk")

moReturn = moSearch.Get

For Each mo In moReturn

Dim VolumeName As String = mo("Name")

Dim SerialNumber As String = mo("Volumeseria lnumber")

Dim strOut As String = String.Format(" {0} - {1}", VolumeName, SerialNumber)

Debug.WriteLine (strOut)

Next



Ken

------------------

"Kaid4 Informática" <newsreader@kai d4.com.pt> wrote in message
news:e3c0muaHEH A.3200@TK2MSFTN GP10.phx.gbl...[color=blue]
> How do i get the serial number of an harddisk?
>
> thanks,
> Gonçalo Boléo
> Kaid4 Informática
> Portugal
>
>[/color]