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:	Views:  27.899
ohne Homepage	System:  WinXP, Win8, Win10, Win11	kein Beispielprojekt

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.