檢測(cè)IE是否啟用ActiveX的VBS腳本.docx

《檢測(cè)IE是否啟用ActiveX的VBS腳本.docx》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、檢測(cè)IE是否啟用ActiveX的VBS腳本您好，腳本專家！如何知道InternetExplorer中是否啟用了ActiveX？--JV答：您好，JV。您一定要問這個(gè)問題，是嗎？實(shí)際上，這并不是一個(gè)特別難回答的問題，只是有點(diǎn)復(fù)雜。不過，那與配置InternetExplorer的方式緊密相關(guān)，而與通過編寫一個(gè)腳本來檢索此信息關(guān)系不大。首先，InternetExplorer沒有管理對(duì)象模型；相反，我們能夠通過編程的方式檢索InternetExplorer設(shè)置和屬性值的唯一方法就是通過編寫一個(gè)腳本來從注冊(cè)表中獲取此信息。這相當(dāng)容易；我們經(jīng)

2、常在本專欄中使用注冊(cè)表讀取的腳本。最為棘手的部分就是搞清楚需要讀取哪個(gè)注冊(cè)表值，并知道如何解釋返回的數(shù)據(jù)。注意：另一個(gè)棘手的部分在于知道您對(duì)哪個(gè)ActiveX設(shè)置感興趣；不論好壞，InternetExplorer有與ActiveX控件相關(guān)的多個(gè)設(shè)置。在今天的專欄中，我們假定您要讀取此設(shè)置的值：運(yùn)行ActiveX控件和插件。讓我們先從搞清楚需要修改哪些注冊(cè)表值開始。實(shí)際上，InternetExplorer安全設(shè)置沒有全局設(shè)置；相反，這些設(shè)置由InternetExplorer區(qū)域進(jìn)行管理。有四個(gè)這樣的安全區(qū)域；區(qū)域名及其值如下表所示：

3、區(qū)域名區(qū)域值Intranet站點(diǎn)1受信任的站點(diǎn)2Internet站點(diǎn)3受限制的站點(diǎn)4可在注冊(cè)表的HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternetSettingsZones部分中找到InternetExplorer安全區(qū)域的設(shè)置；要訪問某個(gè)特定區(qū)域，您需要訪問與該區(qū)域?qū)?yīng)的子項(xiàng)。要確定相應(yīng)的子項(xiàng)，只需將區(qū)域值追加到前面的注冊(cè)表路徑即可。例如，要獲取Internet站點(diǎn)區(qū)域（值3）的設(shè)置，您需要訪問以下注冊(cè)表子項(xiàng)：HKEY_CURRENT_US

4、ERSoftwareMicrosoftWindowsCurrentVersionInternetSettingsZones3您能看到3被追加到了末尾處。要訪問Intranet站點(diǎn)區(qū)域（值1）的設(shè)置？沒問題：HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternetSettingsZones1找到正確的注冊(cè)表子項(xiàng)后，您需要知道要讀取哪個(gè)注冊(cè)表值。遺憾的是（至少對(duì)于腳本編寫者來說），這些注冊(cè)表值的名稱有點(diǎn)含糊；例如，我們感興趣的名稱為120

5、0。（為什么是這樣呢？我們不知道。）那么，我們已準(zhǔn)備最終編寫一個(gè)腳本并真的在此執(zhí)行一些操作嗎？幾乎是這樣。您需要知道的另一件事就是配置信息作為雙字節(jié)（數(shù)字）值被存儲(chǔ)在注冊(cè)表中。如果您知道ActiveX控件被配置為3而不是65536，這會(huì)有所幫助嗎？可能沒有。不過，下表可能有所幫助：注冊(cè)表值用戶界面值0Enabled1Prompt3Disabled65536AdministratorApproved不，最后一個(gè)值并非印刷錯(cuò)誤，它的確為65536。自己去想吧。那好，現(xiàn)在我們就準(zhǔn)備編寫一個(gè)腳本。下面的這個(gè)示例腳本可檢索Intranet站

6、點(diǎn)區(qū)域（區(qū)域值1）的設(shè)置信息：HKEY_CURRENT_USER=&H80000001strComputer="."SetobjReg=GetObject("winmgmts:\"&strComputer&"rootdefault:StdRegProv")strKeyPath="SoftwareMicrosoftWindowsCurrentVersionInternetSettingsZones1"ValueName="1200"objReg.GetDWORDValueHKEY_CURRENT_USER,strK

7、eyPath,ValueName,dwValueWscript.Echo"RunActiveXControlsandPlug-ins"IfIsNull(dwValue)ThenWscript.Echo"Intranetsites:ThevalueiseitherNullorcouldnotbefoundintheregistry."ElseIfdwValue=0ThenWscript.Echo"Intranetsites:Enabled"ElseIfdwValue=1ThenWscript.Echo"Intranetsites:P

8、rompt"ElseIfdwValue=3ThenWscript.Echo"Intranetsites:Disabled"ElseIfdwValue=65536ThenWscript.Echo"Intranetsites:Administrator