[VB.NET] System.Management

[cipi]

Imports System.Management

Public Class InfoSistema
    Public Overloads Shared Function OttieniSeriale() As Integer

        Dim HDinformation As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
        Dim HD As ManagementObject
        Console.WriteLine("Test")
        For Each HD In HDinformation.Get()
            Console.WriteLine(HD("SerialNumber").ToString())
        Next

        Return 0

    End Function

End Class

Cosa non va?
Mi da errore all'inizio del FOR EACH dicendo che la classe non è valida

[cipi]

A quanto pare io ho XP e funzionano queste classi solo su XP? Vi sembra plausibile?