' show-downloaded-program-files.vbs
'
' 
' Version: 0.1
' Date created: 2009-02-22
'
' Download URL:
' http://support.moonpoint.com/downloads/computer_languages/VBScript/show-downloaded-program-files.vbs
'
' Notes: 
'
' When you download ActiveX controls or Java applets, these items are typically
' placed in the Downloaded Program Files folder. You can view these items in 
' Windows Explorer, or you can view them from within Internet Explorer. (Click 
' Internet Options and then, on the General tab, click Settings. In the 
' Settings dialog box, click View Objects.)
'
' When you look at the folder contents using Windows Explorer, you see friendly
' names like MSN File Upload Control. However, if you use the dir command or
' use, say, a FileSystemObject script to access the folder you see executable 
' file names like MsnUpld.cab. You would like to be able to use a script to 
' return those friendly names you see in Windows Explorer.
' 
' Source: How Can I Return a List of Downloaded Controls and Applets for 
' Internet Explorer?
' URL: 
' http://www.microsoft.com/technet/scriptcenter/resources/qanda/dec04/hey1220.mspx

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & _
    "\root\cimv2\Applications\MicrosoftIE")

Set colIESettings = objWMIService.ExecQuery _
    ("Select * from MicrosoftIE_Object")

For Each strIESetting in colIESettings
    Wscript.Echo "Code base: " & strIESetting.CodeBase
    Wscript.Echo "Program file: " & strIESetting.ProgramFile
    Wscript.Echo "Status: " & strIESetting.Status
    Wscript.Echo
Next