WSH设置浏览器安全选项

'2201 ActiveX 控件自动提示
'1405 对标记为可安全执行脚本的 ActiveX 控件执行脚本
'1201 对没有标记为安全的 ActiveX 控件进行初始化和脚本运行
'1004 下载未签名的 ActiveX 控件
'1001 下载已签名的 ActiveX 控件
'1200 运行 ActiveX 控件和插件

'应设键值依次为000110
'Author layne
'Time 2009-6-23
Option Explicit
On Error Resume Next
Dim objShell
Dim regZero,regThree
Dim Data1
regZero="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\" '本地Intranet区域
regThree="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\" 'Internet区域
Set objShell = CreateObject("WScript.Shell")
call Modify (regZero,"2201",0)
call Modify (regZero,"1405",0)
call Modify (regZero,"1201",0)
call Modify (regZero,"1004",1)
call Modify (regZero,"1001",1)
call Modify (regZero,"1200",0)

call Modify (regThree,"2201",0)
call Modify (regThree,"1405",0)
call Modify (regThree,"1201",0)
call Modify (regThree,"1004",1)
call Modify (regThree,"1001",1)
call Modify (regThree,"1200",0)
WScript.Echo "恭喜，浏览器安全选项设置成功！"

Sub Modify (ParentPath,Argument,KeyValue)
objShell.regWrite ParentPath & Argument,KeyValue,"REG_DWORD"
end Sub