VBScript ; Check Op Save erating System Service Pack Level
The script below will output the current service pack of any Windows 2000+ Operating System. This is very useful if you are deploying software via logon script.
Const Impersonate = “winmgmts:{impersonationLevel=impersonate}!\\”
computer = “.”
Set oWMI = GetObject(Impersonate & computer & “\root\cimv2”)
Set QueryWMI = oWMI.ExecQuery(“SELECT * FROM Win32_OperatingSystem”)
For Each oItem In QueryWMI
spVer = oItem.ServicePackMajorVersion
Next
MsgBox “This computer has Service Pack ” & spVer & ” is installed.”