________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

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

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

wmi_HD.Item("Signature")

    Private Function GetHDDSerial(ByVal HDD_idx As Integer) As String
        Dim searcher As New ManagementObjectSearcher("SELECT * FROM" & _
          "Win32_DiskDrive")
        Dim wmi_HD As ManagementObject
 
        For Each wmi_HD In searcher.Get
            If wmi_HD("SerialNumber") IsNot Nothing Then
                Return wmi_HD("SerialNumber")
            End If
        Next
        Return ""
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist