2010-07-16 20:49

/* Displays a list of features for all the software installed on a computer using Windows Installer. */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colfeatures = objwmiservice~execquery("Select * from Win32_SoftwareFeature")
DO objfeature OVER colfeatures
	SAY "Accesses:" objfeature~accesses
	SAY "Attributes:" objfeature~attributes
	SAY "Caption:" objfeature~caption
	SAY "Description:" objfeature~description
	SAY "Identifying Number:" objfeature~identifyingnumber
	SAY "Install Date:" objfeature~installdate
	SAY "Install State:" objfeature~installstate
	SAY "Last Use:" objfeature~lastuse
	SAY "Name:" objfeature~name
	SAY "Product Name:" objfeature~productname
	SAY "Vendor:" objfeature~vendor
	SAY "Version:" objfeature~version
	SAY
END

2010-07-16 20:49