Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MsgBox(GetHDDSerial(0))
    End Sub
    Function GetHDDSerial(ByVal HDD_idx As Integer) As String
        Dim searcher As New System.Management.ManagementObjectSearcher("SELECT" & _
          "* FROM Win32_DiskDrive")
 
        For Each wmi_HD As System.Management.ManagementObject In searcher.Get()
            If wmi_HD.Item("Index") = HDD_idx Then
                ' wenn Index gefunden, Signature-Property zurückgeben
                Return wmi_HD.Item("Signature").ToString
            End If
        Next wmi_HD
 
        ' Falls Index nicht gefunden, Leerstring zurückgeben
        Return ""
    End Function
End Class