ler numero de serie do hd

[Srmarinhas]

Imports System.Management
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim HDD_Serial As String

Dim hdd As New ManagementObjectSearcher("select * from Win32_DiskDrive")

For Each hd In hdd.Get
HDD_Serial = hd("SerialNumber")
Label2.Text = HDD_Serial
Next
End Sub
end class

este código funciona bem no Windows 8 mas da erro no xp

[vikcch]

Criaste o topico na seccao errada, aqui é para VBA, isso é vb.net, também há uma seccao para isso....

[Srmarinhas]

ok obrigado.

já postei no sitio devido.