用vbs返回 Internet Explorer 的下載控件和 Applet 的列表

2020-07-26 12:01:26

字體：大中小

供稿：網(wǎng)友

問：
嗨，Scripting Guy！要找出已為 Internet Explorer 下載了哪些程序，有沒有簡(jiǎn)便的方法（這些項(xiàng)目在文件夾 C:/Windows/Downloaded Program Files 中）？我可以使用一個(gè)腳本獲得可執(zhí)行文件名和依存文件，但是我想獲得它們顯示在文件夾中的文件名。

-- AC

答：
您好，AC。當(dāng)您下載了 ActiveX 控件或 Java 小程序時(shí)，這些項(xiàng)目通常會(huì)放置在“Downloaded Program”文件夾中。您可以在 Windows 資源管理器中或從 Internet Explorer 中查看這些項(xiàng)目。（單擊“Internet 選項(xiàng)”，然后在“常規(guī)”選項(xiàng)卡上單擊“設(shè)置”。在“設(shè)置”對(duì)話框中，單擊“查看對(duì)象”。）

當(dāng)您使用 Windows 資源管理器查看文件夾內(nèi)容時(shí)，您會(huì)看到“MSN File Upload Control”之類的友好名稱。不過，如果您使用 dir 命令或使用 FileSystemObject 之類的腳本訪問此文件夾，您就會(huì)看到“MsnUpld.cab”之類的可執(zhí)行文件名。您希望能夠使用腳本返回您在 Windows 資源管理器中看到的這些友好名稱。

那么您該怎么做呢？當(dāng)然了，您可以使用下面的這個(gè)腳本：

復(fù)制代碼代碼如下:

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 

此腳本依賴于類 MicrosoftIE_Object 和命名空間 root/cimv2/Applications/MicrosoftIE，據(jù)我們所知，這個(gè)類和這個(gè)命名空間都還未經(jīng)過證明。但是，似乎這個(gè)腳本可以使用；運(yùn)行此腳本，您將得到與以下內(nèi)容類似的輸出：

Code base: http://sc.groups.msn.com/controls/FileUC/MsnUpld.cab
Program file: MSN File Upload Control
Status: Installed

正如您看到的那樣，“ProgramFile”屬性為您提供了與顯示在“Downloaded Programs”文件夾中相同的友好名稱。

上一篇：用vbscript合并多個(gè)文本文件的代碼

下一篇：用vbscript把 Word 文檔保存為文本文件的代碼