ler numero de serie do disco rigido

[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

é o seguinte pessoal estou a usar este código para ler o numero de serie do disco, funciona perfeitamente no Windows 8. mas quando fui experimentar no xp não funciona da erro. agradecia ajuda .se possível.

obrigado

comprimentos

[Srmarinhas]

boas pessoal já consegui resolver.

no Windows xp não funciona o ("select * from Win32_DiskDrive") .

para xp tem que se usar o

("select * from Win32_PhysicalMedia")

aqui fica se fizer jeito alguém.

comprimentos