Festplatten-Seriennummer auslesen (VB.NET) Dieser Code zeigt, wie man mit Hilfe der System.Management - Klasse die Seriennummer der Festplatte auslesen kann.
Autor:   Michael Schober	Bewertung:     [ Jetzt bewerten ]	Views:  28.394
ohne Homepage	System:  WinXP, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 16 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Dieser Code zeigt, wie man mit Hilfe der System.Management - Klasse die Seriennummer der Festplatte auslesen kann.

Aktivieren Sie Projekt zunächst den Verweis "System.Management" (Projekt - Verweise) und fügen anschließend nachfolgende Funktion in den Codeteil der Form ein:

' Festplatten-Seriennummer auslesen
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

Aufrufbeispiel:

MsgBox(GetHDDSerial(0)) ' HDD_idx = 0 -> Erste Festplatte