2010-07-16 20:49

/* Displays a list of all Windows Installer components installed on a computer. */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colitems = objwmiservice~execquery("Select * from Win32_ApplicationService")
DO objitem OVER colitems
	SAY "Name:" objitem~name
	SAY "Start Mode:" objitem~startmode
	SAY
END

2010-07-16 20:49