检测IE是否启用ActiveX的VBS脚本.docx

检测IE是否启用ActiveX的VBS脚本您好，脚本专家！如何知道 Internet Explorer 中是否启用了 ActiveX？- JV答：您好，JV。您一定要问这个问题，是吗？实际上，这并不是一个特别难回答的问题，只是有点复杂。不过，那与配置 Internet Explorer 的方式紧密相关，而与通过编写一个脚本来检索此信息关系不大。首先，Internet Explorer 没有管理对象模型；相反，我们能够通过编程的方式检索 Internet Explorer 设置和属性值的唯一方法就是通过编写一个脚本来从注册表中获取此信息。这相当容易；我们经常在本专栏中使用注册表读取的脚本。最为棘手的部分就是搞清楚需要读取哪个注册表值，并知道如何解释返回的数据。注意：另一个棘手的部分在于知道您对哪个 ActiveX 设置感兴趣；不论好坏，Internet Explorer 有与 ActiveX 控件相关的多个设置。在今天的专栏中，我们假定您要读取此设置的值：运行 ActiveX 控件和插件。让我们先从搞清楚需要修改哪些注册表值开始。实际上，Internet Explorer 安全设置没有全局设置；相反，这些设置由 Internet Explorer 区域进行管理。有四个这样的安全区域；区域名及其值如下表所示：区域名区域值Intranet 站点1受信任的站点2Internet 站点3受限制的站点4可在注册表的 HKEY_CURRENT_USER SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones 部分中找到 Internet Explorer 安全区域的设置；要访问某个特定区域，您需要访问与该区域对应的子项。要确定相应的子项，只需将区域值追加到前面的注册表路径即可。例如，要获取 Internet 站点区域（值 3）的设置，您需要访问以下注册表子项：HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones3您能看到 3 被追加到了末尾处。要访问 Intranet 站点区域（值 1）的设置？没问题：HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones1找到正确的注册表子项后，您需要知道要读取哪个注册表值。遗憾的是（至少对于脚本编写者来说），这些注册表值的名称有点含糊；例如，我们感兴趣的名称为 1200。（为什么是这样呢？我们不知道。）那么，我们已准备最终编写一个脚本并真的在此执行一些操作吗？几乎是这样。您需要知道的另一件事就是配置信息作为双字节（数字）值被存储在注册表中。如果您知道 ActiveX 控件被配置为 3 而不是 65536，这会有所帮助吗？可能没有。不过，下表可能有所帮助：注册表值用户界面值0Enabled1Prompt3Disabled65536Administrator Approved不，最后一个值并非印刷错误，它的确为 65536。自己去想吧。那好，现在我们就准备编写一个脚本。下面的这个示例脚本可检索 Intranet 站点区域（区域值 1）的设置信息：HKEY_CURRENT_USER = &H80000001strComputer = .Set objReg = GetObject(winmgmts: & strComputer & rootdefault:StdRegProv)strKeyPath = SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones1ValueName = 1200objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValueWscript.Echo Run ActiveX Controls and Plug-insIf IsNull(dwValue) Then Wscript.Echo Intranet sites: The value is either Null or could not be found in the registry.ElseIf dwValue = 0 Then Wscript.Echo Intranet sites: EnabledElseIf dwValue = 1 Then Wscript.Echo Intranet sites: PromptElseIf dwValue = 3 Then Wscript.Echo Intranet sites: DisabledElseIf dwValue = 65536 Then Wscript.Echo Intranet sites: Administrator ApprovedEnd If我们首先定义一个名为 HKEY_CURRENT_USER 的常量并将其值设置为 &H80000001；这将告诉脚本我们要使用哪个注册表配置单元。然后我们连接到 WMI 服务；请注意，StdRegProv（标准注册表提供程序）类位于 rootdefault 命名空间中。（许多脚本编写者都认为该类与大多数 WMI 类一样，都位于 rootcimv2 中。事实并非如此。）接下来我们将为一对变量赋值：strKeyPath = SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones1ValueName = 1200正如您所看到的，变量 strKeyPath 包含 HKEY_CURRENT_USER 中的注册表路径（请勿在该路径中包含 HKEY_CURRENT_USER，否则，脚本将失败）。同时，将变量 ValueName 设置为 1200，该值恰好为我们要读取的注册表值。然后我们调用 GetDWORDValue 方法，这样我们可读取注册表中的双字节值：objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue请注意，我们需要向 GetDWORDValue 传递几个参数：HKEY_CURRENT_USER，告诉脚本要使用哪个注册表配置单元的常量。strKeyPath，包含注册表路径的变量。ValueName，表示我们要读取的注册表值的变量。dwValue，将结束存储从注册表中读取的值的“输出参数”。如果您正在想，“请稍等，我们没有为 dwValue 赋值，”您说对了。我们就是这样设计的：我们不为输出参数赋值。相反，GetDWORDValue 将读取恰好存储在所讨论的注册表值 (1200) 中的任何值，然后该方法会将该值赋给 dwValue。这确实很不错，不是吗？此时，我们可只回显从注册表中检索的值。不过，正如我们所指出的那样，该检索值将为诸如 1、3 或 65536 这样的值。因此，我们建立一个简单小巧的 If Then ElseIf 块以检查返回值，并回显一个更有意义的消息：If IsNull(dwValue) Then Wscript.Echo Intranet sites: The value is either Null or could not be found in the registry.ElseIf dwValue = 0 Then Wscript.Echo Intranet sites: EnabledElseIf dwValue = 1 Then Wscript.Echo Intranet sites: PromptElseIf dwValue = 3 Then Wscript.Echo Intranet sites: DisabledElseIf dwValue = 65536 Then Wscript.Echo Intranet sites: Administrator ApprovedEnd If您说对了：一旦您知道值存储在注册表中的什么位置以及如何将值存储在注册表中，这就相当容易了。仅仅为了省去键入（和/或复制与粘贴）之苦，下面的脚本可返回所有四个安全区域的信息：HKEY_CURRENT_USER = &H80000001strComputer = .Set objReg = GetObject(winmgmts: & strComputer & rootdefault:StdRegProv)strKeyPath = SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones1ValueName = 1200objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValueWscript.Echo Run ActiveX Controls and PluginsIf IsNull(dwValue) Then Wscript.Echo Intranet sites: The value is either Null or could not be found in the registry.ElseIf dwValue = 0 Then Wscript.Echo Intranet sites: EnabledElseIf dwValue = 1 Then Wscript.Echo Intranet sites: PromptElseIf dwValue = 3 Then Wscript.Echo Intranet sites: DisabledElseIf dwValue = 65536 Then Wscript.Echo Intranet sites: Administrator ApprovedEnd IfstrKeyPath = SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones2ValueName = 1200objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValueIf IsNull(dwValue) Then Wscript.Echo Trusted sites: The value is either Null or could not be found in the registry.ElseIf dwValue = 0 Then Wscript.Echo Trusted sites: EnabledElseIf dwValue = 1 Then Wscript.Echo Trusted sites: PromptElseIf dwValue = 3 Then Wscript.Echo Trusted sites: DisabledElseIf dwValue = 65536 Then Wscript.Echo Trusted sites: Administrator ApprovedEnd IfstrKeyPath = SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones3ValueName = 1200objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValueIf IsNull(dwValue) Then Wscript.Echo Internet sites: The value is either Null or could not be found in the registry.ElseIf dwValue = 0 Then Wscript.Echo Internet sites: EnabledElseIf dwValue = 1 Then Wscript.Echo Internet sites: PromptElseIf dwValue = 3 Then Wscript.Echo Internet sites: DisabledElseIf dwValue = 65536 Then Wscript.Echo Internet sites: Administrator ApprovedEnd IfstrKeyPath = SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones4ValueName = 1200objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValueIf IsNull(dwValue) Then Wscript.Echo Restricted sites: The value is either Null or could not be found in the registry.ElseIf dwValue = 0 Then Wscript.Echo Restricted sites: EnabledElseIf dwValue = 1 Then Wscript.Echo Restricted sites: Pro