Betriebssystem über WMI ermitteln Mit dem Windows Management Instrumentation ein Leichtes: Betriebssystem, Seriennummer usw. ermitteln.
Autor:   Jürgen Jahrsdörfer	Bewertung:     [ Jetzt bewerten ]	Views:  10.291
ohne Homepage	System:  WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 31 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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