Last Updated on 2. Juni 2016 by Thomas J. Fehr
Dieses Skript kann verwendet werden um die Server OS Version zu bestimmen. Das Skript liefert das Resultat für Windows 2000, Windows 2003, Windows 2008. Es kann jedoch auf einfache Weise erweitert werden, damit auch Client Versionen zurückgeliefert werden.
'/*
' check windows version
' return:
' win2k for windows 2000
' win2k3 for windows 2003
' win2k8 for windows 2008
' unknown if the os is older / newer
'*/
function getOSVersion()
strWinVersion = ""
set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
strWinVersion = objOperatingSystem.Version
Next
'/**/
strMajor = left(strWinVersion,3)
strOS = ""
SELECT CASE strMajor
case "5.0"
'WScript.Echo "Windows 2000"
strOS = "win2k"
case "5.2"
'WScript.Echo "Windows 2003"
strOS = "win2k3"
case "6.0"
'WScript.Echo "Windows 2008"
strOS = "win2k8"
case else
'WScript.Echo "Windows x?" & "(" & strWinVersion & ")"
strOS = "unknown"
end select
getOSVersion = strOS
End Function