Seriennummer des Motherboards ermitteln (WMI) Dieser Tipp zeigt wie sich die Seriennummer des Motherboards ermitteln lässt
Autor:   Dieter Otter	Bewertung:	Views:  16.357
www.tools4vb.de	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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")
 
...

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.