Windows添加信任站点和开启所有ActiveX控件

事情是这样的，一位朋友是做软件支持的，可是他和我说每次支持都是要先手动去ie添加信任站点，然后是自定义级别然后把所有的activex控件全部启动。如果遇到一个不太懂电脑的人还好，但是如果遇到10来个，那重复操作真的很累的，所以我决定帮他搞个脚本自动化，我们先是在ie中添加信任站点，然后导出注册表。

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges]
@=""

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range1]
"https"=dword:00000002
":Range"="200.0.0.1"

后来终于研究好了代码如下：

添加信息站点及将指定IP添加到本地Intranet中,
  "*"=dword:00000002 表示受信任的站点区域
   "*"=dword:00000001 表示本地 Intranet 区域

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

<SCRIPT LANGUAGE="javascript">
<!--
var WshShell=new ActiveXObject("WScript.Shell");
//添加信任站点ip

WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Ranges\\Range100\\https","2","REG_DWORD");
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Ranges\\Range100\\:Range","200.0.0.1");

//修改IE ActiveX安全设置
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Ranges\\Range100\\","");
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\3\\1001","0","REG_DWORD");
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\3\\1004","0","REG_DWORD");
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\3\\1200","0","REG_DWORD");
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\3\\1201","0","REG_DWORD");
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\3\\1405","0","REG_DWORD");
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\3\\2201","0","REG_DWORD");
//禁用xinxp弹出窗口阻止程序

WshShell.RegWrite("HKCU\\Software\\Microsoft\\Internet Explorer\\New Windows\\PopupMgr","no");

alert("active控件安全设置，弹出窗口设置，信任站点设置成功");
//-->
</SCRIPT>

只要把 script 代码复制到记事本然后修改后缀为html即可。