用vbs检测Internet Explorer 中是否启用了 ActiveX

HKEY_CURRENT_USER = &H80000001

strComputer = "."
Set objReg = GetObject("winmgmts:" & strComputer & "rootdefault:StdRegProv")

strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones1"
ValueName = "1200"
objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue

Wscript.Echo "Run ActiveX Controls and Plugins"

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: Enabled"
ElseIf dwValue = 1 Then
  Wscript.Echo "Intranet sites: Prompt"
ElseIf dwValue = 3 Then
  Wscript.Echo "Intranet sites: Disabled"
ElseIf dwValue = 65536 Then
  Wscript.Echo "Intranet sites: Administrator Approved"
End If

strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones2"
ValueName = "1200"

objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue

If 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: Enabled"
ElseIf dwValue = 1 Then
  Wscript.Echo "Trusted sites: Prompt"
ElseIf dwValue = 3 Then
  Wscript.Echo "Trusted sites: Disabled"
ElseIf dwValue = 65536 Then
  Wscript.Echo "Trusted sites: Administrator Approved"
End If

strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones3"
ValueName = "1200"

objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue

If 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: Enabled"
ElseIf dwValue = 1 Then
  Wscript.Echo "Internet sites: Prompt"
ElseIf dwValue = 3 Then
  Wscript.Echo "Internet sites: Disabled"
ElseIf dwValue = 65536 Then
  Wscript.Echo "Internet sites: Administrator Approved"
End If

strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones4"
ValueName = "1200"

objReg.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue

If 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: Enabled"
ElseIf dwValue = 1 Then
  Wscript.Echo "Restricted sites: Prompt"
ElseIf dwValue = 3 Then
  Wscript.Echo "Restricted sites: Disabled"
ElseIf dwValue = 65536 Then
  Wscript.Echo "Restricted sites: Administrator Approved"
End If

运行脚本，将返回类似下面内容的输出：

Run ActiveX Controls and Plugins
Intranet sites: Enabled
Trusted sites: Enabled
Internet sites: Enabled
Restricted sites: Disabled

在此我们还能再做些什么吗？或许可以；毕竟我们还可配置此注册表值。但那是改天要讨论的内容了。