Tipp 0374 Installiertes Service-Pack ermitteln (WMI)
Autor/Einsender:
Datum:
  Markus Schutz
23.12.2003
Entwicklungsumgebung:   VB 6
Mit Hilfe der Windows Management Instrumentation (WMI) lässt sich u. a. auch das installierte Service-Pack der Betriebssysteme Windows NT, 2000 und XP ermitteln.
 
Sub Demo_GetServicePackWMI()
  Dim objWMI As Object
  Dim colItems As Object
  Dim objItem As Object

  On Error Resume Next

  Set objWMI = GetObject("WinMgmts:")
  If Err.Number <> 0 Then
    MsgBox "Kein WMI installiert!"

    Err.Clear
    Set objWMI = Nothing
    Exit Sub
  End If

  Set objWMI = GetObject("WinMgmts:/root/cimv2")
  Set colItems = objWMI.ExecQuery( _
          "SELECT * FROM Win32_OperatingSystem")

  For Each objItem In colItems
    If objItem.OSType = 18 Then
      MsgBox objItem.Caption & vbNewLine & _
              objItem.CSDVersion
    Else
      MsgBox "Der Service-Pack kann nur für die " & _
              "Betriebssysteme 'Windows NT, 2000 und XP' " & _
              "ermittelt werden."
    End If
  Next objItem

  Set objItem = Nothing
  Set colItems = Nothing
  Set objWMI = Nothing
End Sub
 
Weitere Links zum Thema
Installiertes Service-Pack ermitteln (Registry)
Hinweis für VBA-Anwender
Der hier abgebildete Code funktioniert auch in einem VBA-Projekt, dieser muss dazu lediglich in den VB-Editor der entsprechenden Anwendung kopiert werden. Ein Import der im Download enthaltenen *.frm-Datei ist nicht möglich.
Hinweis
Um diesen Tipp ausführen zu können, muss WMI installiert sein. Dies ist bei Windows 2000, Windows XP und Windows ME (Millenium Edition) standardmäßig der Fall. Für Windows NT 4.0 kann hier ein entsprechendes Installationspaket heruntergeladen werden, das eine vergleichbare Funktionalität bietet.

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (3 kB) Downloads bisher: [ 918 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Montag, 15. August 2011