2010-07-16 20:49

/* Displays file version information for Internet Explorer */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2\Applications\MicrosoftIE")
coliesettings = objwmiservice~execquery("Select * from MicrosoftIE_FileVersion")
DO striesetting OVER coliesettings
	SAY "Company:" striesetting~company
	SAY "Date:" striesetting~date
	SAY "File name:" striesetting~file
	SAY "Path:" striesetting~path
	SAY "File size:" striesetting~size
	SAY "Version:" striesetting~version
	SAY
END

2010-07-16 20:49