Seriennummer des Motherboards ermitteln (WMI) Dieser Tipp zeigt wie sich die Seriennummer des Motherboards ermitteln lässt
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  16.929
https://www.tools4vb.com	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgender Tipp zeigt, wie sich unter Windows 2000/XP mit Hilfe der WMI-Schnittstelle die Seriennummer des Motherboards auslesen lässt.

' Seriennummer des Motherboards auslesen
Public Function MotherBoardSerialNo() As String
  Dim oWMI As Object
  Dim oBoard As Object
  Dim oItem As Object
 
  ' Fehlerbehandlung aktivieren
  On Error GoTo ErrHandler
 
  ' WMI-Objekt erstellen
  Set oWMI = GetObject("WinMgmts:")
 
  ' MohtherBoard-Object
  Set oBoard = oWMI.InstancesOf("Win32_BaseBoard")
 
  ' Serien-Nummer
  For Each oItem In oBoard
    MotherBoardSerialNo = oItem.SerialNumber
    Exit For
  Next
  On Error GoTo 0
  Exit Function
 
ErrHandler:
  ' Fehler: Evtl. kein WMI installiert
End Function

Auf manchen Systemen kann es vorkommen, dass obiger Code nicht korrekt funktioniert. Abhilfe schafft hier dann meist die Verwendung der Klasse "Win32_BIOS" statt "Win32_BaseBoard":

...
 
  ' MohtherBoard-Object
  Set oBoard = oWMI.InstancesOf("Win32_BIOS")
 
...