PDA

Vollständige Version anzeigen : Windows-Version ermitteln


magicdeep
11.01.2007, 13:09
Hallo,

wie kann man mit dem WSH / VBScript die Windows-Version ermitteln. Also Win2K, WinXP, Win-Server, etc.

Vielen Dank für eine Antwort!

~~~dexter~~~
11.01.2007, 17:14
@magicdeep

Folgendes Beispiel sollte für die Betriebssysteme Windows 2003 Server, Windows XP, Windows2K, Windows NT 4.0 und Windows 98 funktionieren.


Option Explicit
Const COMPUTER = "."
Dim WMI, OSs, OS

Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & COMPUTER & "\root\cimv2")
Set OSs = WMI.ExecQuery("Select * from Win32_OperatingSystem")

For Each OS in OSs
Wscript.Echo "Betriebssystem: " & OS.Name
Next

magicdeep
12.01.2007, 08:14
Hallo,

Danke für dein Beispiel!
Leider bekomme ich immer folgende Fehlermeldung:

Zeile: 5
Zeichen: 1
Fehler: Unbekannter Fehler

Code: 80004005
Quelle: (null)


Ich benutze Win2K mit SP4.

Kannst du mir nochmal helfen?? Danke!

Claus Kreksch
04.03.2007, 21:44
Hallo Tobias,

die Zeile
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & COMPUTER & "\root\cimv2")
sollte so
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & COMPUTER & "\root\cimv2")
aussehen dann gehts.

Mit OS.Version bekommst Du die genaue Version von Windows raus.
Gruß Claus