vb@rchiv · Tipps & Tricks · Betriebssystem über WMI ermitteln

Rubrik: System/Windows · Sonstiges | VB-Versionen: VB5, VB6

23.01.03

Betriebssystem über WMI ermitteln Mit dem Windows Management Instrumentation ein Leichtes: Betriebssystem, Seriennummer usw. ermitteln.
Autor: Jürgen Jahrsdörfer	Bewertung:	Views: 28.559
ohne Homepage	System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Unter den Betriebssystemen Windows 2000/XP ist auf dem System autom. auch das Windows Management Instrumentation installiert. Unter Windows NT4 kann dieses nachinstalliert werden.

Über das WMI-Objekt lässt sich so allerlei in Erfahrung bringen, u.a. auch das verwendete Betriebssystem, das installierte Service-Pack, der Username auf den das Betriebssystem lizenziert ist usw.

Wie das genau geht, zeigt nachfolgendes Beispiel. Benötigt wird hierzu eine ListBox (List1), sowie ein CommandButton (Command1).

' Infos über das Betriebssystem ermitteln
' und anzeigen
Private Sub Command1_Click()
  Dim oWMI As Object
  Dim oSystem As Object
  Dim SQL As String
 
  ' Abfrage
  SQL = "SELECT * FROM Win32_OperatingSystem"
 
  ' WMI-Objekt erstellen und Abfrage ausführen
  Set oWMI = GetObject("winmgmts:").ExecQuery(SQL)
 
  ' Ergebnisliste durchlaufen und Infos ausgeben
  For Each oSystem In oWMI
    With List1
      .AddItem "System:"
 
      ' Name des Betriebssystems
      .AddItem vbTab & oSystem.Caption
 
      ' Versionsnummer
      .AddItem vbTab & oSystem.Version
 
      ' ServicePack
      .AddItem vbTab & oSystem.CSDVersion
 
      .AddItem " "
      .AddItem "Registriert für:"
 
      ' UserName
      .AddItem vbTab & oSystem.RegisteredUser
 
      ' Firma
      .AddItem vbTab & oSystem.Organization
 
      ' Seriennummer
      .AddItem vbTab & oSystem.SerialNumber
 
      .AddItem " "
 
      ' Systemverzeichnis
      .AddItem "System Verzeichnis: " & oSystem.SystemDirectory
 
      ' Windowsverzeichnis
      .AddItem "Windows Verzeichnis: " & oSystem.WindowsDirectory
 
      ' Arbeitsspeicher
      .AddItem "Arbeitsspeicher: " & oSystem.TotalVisibleMemorySize & " KByte"
    End With
  Next
End Sub