2010-07-16 20:49

/* Displays basic information (including version number and build number) for Internet Explorer */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2\Applications\MicrosoftIE")
coliesettings = objwmiservice~execquery("Select * from MicrosoftIE_Summary")
DO striesetting OVER coliesettings
	SAY "Active printer:" striesetting~activeprinter
	SAY "Build:" striesetting~build
	SAY "Cipher strength:" striesetting~cipherstrength
	SAY "Content advisor:" striesetting~contentadvisor
	SAY "IE Administration Kit installed:" striesetting~ieakinstall
	SAY "Language:" striesetting~language
	SAY "Name:" striesetting~name
	SAY "Path:" striesetting~path
	SAY "Product ID:" striesetting~productid
	SAY "Version:" striesetting~version
END

2010-07-16 20:49