Определение серийного номера жесткого диска

<STAThread()> _
        Public Shared Sub Main(ByVal args As String())
            Dim hdCollection As New ArrayList()
 
            Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
 
            For Each wmi_HD As ManagementObject In searcher.[Get]()
                Dim hd As New HardDrive()
                hd.Model = wmi_HD("Model").ToString()
                hd.Type = wmi_HD("InterfaceType").ToString()
 
                hdCollection.Add(hd)
            Next
 
            searcher = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
 
            Dim i As Integer = 0
            For Each wmi_HD As ManagementObject In searcher.[Get]()
                ' get the hard drive from collection
                ' using index
                Dim hd As HardDrive = DirectCast(hdCollection(i), HardDrive)
 
                ' get the hardware serial no.
                If wmi_HD("SerialNumber") Is Nothing Then
                    hd.SerialNo = "s/n_None"
                Else
                    hd.SerialNo = wmi_HD("SerialNumber").ToString()
                End If
 
                If i < hdCollection.Count - 1 Then
                    i += 1
                End If
            Next
 
            ' Display available hard drives
            Using file As New System.IO.StreamWriter("snd.inf")
 
                For Each hd As HardDrive In hdCollection
                    MsgBox(hd.SerialNo)
                    file.WriteLine(hd.SerialNo)
                    file.WriteLine("Model" & vbTab & vbTab & ": " & hd.Model)
                    file.WriteLine("Type" & vbTab & vbTab & ": " & hd.Type)
                    file.WriteLine("----------")
                Next
            End Using
                   End Sub

Friend Function GetSerialHDD(Optional ByVal strDriveLetter As String = "c") As String
        Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
        disk.Get()
        Return disk("VolumeSerialNumber").ToString()
    End Function

"Select * from Win32_DiskDrive where deviceid like '%physicaldrive%'"
и
"Select * from Win32_PhysicalMedia Where Tag like '%physicaldrive%'"