2010-07-16 20:49

/*
 * Displays the name and product code of binary information (such as bitmaps,
 * icons, executable files, and so on) used by a Windows Installer application. 
 */
strcomputer = "."
objwmiservice = getobject("winmgmts:" || "{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colitems = objwmiservice~execquery("Select * from Win32_Binary")
DO objitem OVER colitems
	SAY "Name:" objitem~name
	SAY "Product Code:" objitem~productcode
	SAY  
END

2010-07-16 20:49