determine service pack level

save the following code between the stars,in notepad and save it with a .vbs extension is servicepack.vbs
************************************

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
Wscript.Echo objOperatingSystem.ServicePackMajorVersion _
& "." & objOperatingSystem.ServicePackMinorVersion
Next
*********************************

EggHeadCafe.com - .NET Developer Portal of Choice
http://www.eggheadcafe.com