2010-07-16 20:49

/* Displays information about the operating system and service pack installed on a computer. */
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
coloses = objwmiservice~execquery("Select * from Win32_OperatingSystem")
DO objos OVER coloses
	SAY "Computer Name:" objos~csname
	SAY "Caption:" objos~caption
	SAY "Version: " objos~version
	SAY "Build Number:" objos~buildnumber
	SAY "Build Type:" objos~buildtype
	SAY "OS Type:" objos~ostype
	SAY "Other Type Description:" objos~othertypedescription
	SAY "Service Pack:" objos~servicepackmajorversion || "." || objos~servicepackminorversion
END

2010-07-16 20:49