修改注册表添加IE信任站点及启用Activex控件的脚本
 
 
 
 
 
 
  

   js判断浏览器是否阻止弹出窗口
 var win=window.open ("openUrl","","") ;
 if (win==null)
 {
 alert("您的浏览器启用弹出窗口过滤功能！\n\n请暂时先关闭此功能！") ;
 }
  
 
  
 
 
  
 
 
  
 
 
  
//    添加信息站点及将指定IP添加到本地Intranet中,
 
  
//    "*"=dword:00000002 表示受信任的站点区域
 
  
//    "*"=dword:00000001 表示本地 Intranet 区域
 
  
//
 
  
 
  
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\Range100]
 
  
"*"=dword:00000002
 
  
":Range"="192.168.10.121"
 
  
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range101]
 
  
"*"=dword:00000001
 
  
":Range"="192.168.10.121"
 
  
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2]
 
  
@=""
 
  
"DisplayName"="可信站点"
 
  
"CurrentLevel"=dword:00001000
 
  
"Flags"=dword:00000043
 
  
"1004"=dword:00000000
 
  
"1201"=dword:00000000
 
  
"1402"=dword:00000000
 
  
"2201"=dword:00000000
 
  
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1]
 
  
@=""
 
  
"DisplayName"="本地 Intranet"
 
  
"CurrentLevel"=dword:00000000
 
  
"1001"=dword:00000000
 
  
"1004"=dword:00000000
 
  
"1201"=dword:00000000
 
  
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3]
 
  
@=""
 
  
"DisplayName"="Internet"
 
  
"CurrentLevel"=dword:00000000
 
  
"1001"=dword:00000000
 
  
"1004"=dword:00000000
 
  
"1201"=dword:00000000
 
  
 
 
  
/
 
  
//
 
  
// 通过网页修改activex安全设置，添加信任站点，禁用弹出窗口阻止程序
 
  
//
 
  
/
 
  
信任站点的注册表项
 
  
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range[*]
 
  
ActiveX的注册表项
 
  
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\[0-4]\[*]
 
  
[0-4]
 
  
值           设置
 
  
------------------------------
 
  
0          我的电脑
 
  
1          本地 Intranet 区域
 
  
2          受信任的站点区域
 
  
3          Internet 区域
 
  
4          受限制的站点区域
 
  
[*]
 
  
1001       下载已签名的 ActiveX 控件
 
  
1004       下载未签名的 ActiveX 控件
 
  
1200       运行 ActiveX 控件和插件
 
  
1201       对没有标记为安全的 ActiveX 控件进行初始化和脚本运行
 
  
1405       对标记为可安全执行脚本的 ActiveX 控件执行脚本
 
  
2201       ActiveX 控件自动提示 **
 
  
弹出窗口阻止程序的注册表项
 
  
HKEY_CURRENT_USERHKCU\Software\Microsoft\Internet Explorer\New Windows\PopupMgr
 
  
具体脚本如下:
 
  
<SCRIPT LANGUAGE="JavaScript">
 
  
<!--
 
  
var WshShell=new ActiveXObject("WScript.Shell");
 
  
//添加信任站点ip
 
  
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Ranges\\Range100\\","");
 
  
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Ranges\\Range100\\http","2","REG_DWORD");
 
  
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Ranges\\Range100\\:Range","192.168.0.1");
 
  
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Ranges\\Range101\\","");
 
  
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Ranges\\Range101\\http","2","REG_DWORD");
 
  
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Ranges\\Range101\\:Range","192.168.0.2");
 
  
//修改IE ActiveX安全设置
 
  
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>
 
  
 
 
  
URL:
 
  
比如说我们要把http://www.microsoft.com/添加到客户的受信任站点
 
  
1.运行regedit,打开注册表,首先打开下面的键值
 
  
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Inte
 
  
rnet Settings\ZoneMap\Domains
 
  
2.在其下面新建一个项命名为"Microsoft.com"
 
  
3.在Microsoft.com下面再新建一个项,命名为"www"
 
  
4.在www下新键一个双字节子键,命名为"*","*"表示任何协议,你还可以把
 
  
"*"替换为"http","ftp"等其它名称
 
  
5.双击刚才新建的双字节子键"*",确保基数里选择是"十六进制",在数值
 
  
数据种填写"2"
 
  
6.关闭注册表
 
  
<SCRIPT LANGUAGE="JavaScript">
 
  
<!--
 
  
var WshShell=new ActiveXObject("WScript.Shell");
 
  
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVe
 
  
rsion\\Internet Settings\\ZoneMap\\Domains\\Microsoft.com","");
 
  
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVe
 
  
rsion\\Internet Settings\\ZoneMap\\Domains\\Microsoft.com\\www","");
 
  
WshShell.RegWrite("HKCU\\Software\\Microsoft\\Windows\\CurrentVe
 
  
rsion\\Internet
 
  
Settings\\ZoneMap\\Domains\\Microsoft.com\\www\\http","2","REG_DWORD"
 
  
);
 
  
alert("写入成功");
 
  
//-->
 
  
</SCRIPT>
 
 
 

业务需要，使用了Flash插件，为了实现IE启动时避免插件被禁用，全屏显示，启用相关ActiveX控件，需要编写bat脚本供程序调用初始化，记录如下
 
本机环境win10，使用IE为IE11,知识点：IE浏览器对应的注册表修信息，bat文件编写及获取资源文件内容。
 
更改对应的注册表信息的bat文件：（bat文件如果需要输出中文，需使用ANSI编码）
 
REM "inint regedit"
::第一步：初始化注册表信息，先修改允许活动内容在“我的电脑”的文件中运行
REG add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN" /v "iexplore.exe" /t reg_dword /d 0x00000001 /f
::第二步：初始化注册表信息，修改IE启用flash：
::直接添加相应的注册表键值，设置为0（建议使用该方案，避免注册表曾经被写入过禁用值）
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Ext\Settings\{D27CDB6E-AE6D-11CF-96B8-444553540000}" /v "Flags" /t reg_dword /d 0x00000000 /f

::第三步：修改IE的相关ActiveX的安全设置
::XSS筛选  禁用 
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v "1409" /t reg_dword /d 0x00000003 /f

::ActiveX 控件自动提示 禁用
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v "2201" /t reg_dword /d 0x00000003 /f

::对标记为可安全执行脚本的 ActiveX 控件执行脚本 启用（需重启）
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v "1405" /t reg_dword /d 0x00000000 /f

::对没有标记为可安全执行脚本的 ActiveX 控件进行初始化和脚本运行（不建议修改） 
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v "1201" /t reg_dword /d 0x00000000 /f

::二进制文件和脚本行为 启用
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v "2000" /t reg_dword /d 0x00000000 /f

::仅允许经过批准的域在未经提示的情况下使用ActiveX 启用
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v "120B" /t reg_dword /d 0x00000003 /f

::下载未签署的 ActiveX 控件 （系统不建议修改为启用） 
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v "1004" /t reg_dword /d 0x00000003 /f

::下载已签署的 ActiveX 控件 （系统不建议修改为启用） 
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v "1001" /t reg_dword /d 0x00000003 /f

::允许ActiveX筛选 禁用
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v "2702" /t reg_dword /d 0x00000003 /f

::允许运行以前未使用的ActiveX控件而不提示 启用
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v "1208" /t reg_dword /d 0x00000000 /f

::运行ActiveX控件和插件 启用
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v "1200" /t reg_dword /d 0x00000000 /f

::在没有使用外部媒体播放机的网页显示视频和动画 启用
REG add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" /v "120A" /t reg_dword /d 0x00000000 /f

 
执行IE浏览器启动并打开对应目标url的bat文件：（从同级目录的txt文件中获取目标url）
 
:: 以下为执行IE打开目标url代码，如有需要，可以拆分为新的bat脚本文件
:: 你需要添加一个同级目录下的放置url的TXT文件，读取内容为第二行
:: 格式注意等号两边的空格：url = http://www.jd.com

::开启变量延迟
setlocal enabledelayedexpansion 
SET SourceFile=C:"/Program Files (x86)/Internet Explorer/iexplore.exe"
SET SourceFile1=C:"/Program Files/Internet Explorer/iexplore.exe"
SET urlTarget=http://www.baidu.com
:: skip表示跳过第一行，token表示取值第3列
for /f "skip=1 tokens=3" %%b in (.\url.txt) do (
    SET urlTarget=%%b
    goto :Run
)

:Run
if exist %SourceFile% (
    start %SourceFile% -k %urlTarget%
    echo use from %SourceFile% %urlTarget%  [is run!]
)else (
    start %SourceFile1% -k %urlTarget%
    echo %SourceFile1%+ %urlTarget%  is run!
)
 
同级目录下的txt文档示范
 
#需要访问的url
url = http://www.jd.com
 
以上记录均是依业务为目的的使用，请自行学习相关bat规范等。

 
  修改注册表添加IE信任站点及启用Activex控件 收藏
 
 
 
 
 
//
 
 
//    添加信息站点及将指定IP添加到本地Intranet中,
 
 
//    "*"=dword:00000002 表示受信任的站点区域
 
 
//    "*"=dword:00000001 表示本地 Intranet 区域
 
 
//
 
 
 
 
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/Range100]
 
 
"*"=dword:00000002
 
 
":Range"="192.168.10.121"
 
 
[HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ZoneMap/Ranges/Range101]
 
 
"*"=dword:00000001
 
 
":Range"="192.168.10.121"
 
 
[HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/2]
 
 
@=""
 
 
"DisplayName"="可信站点"
 
 
"CurrentLevel"=dword:00001000
 
 
"Flags"=dword:00000043
 
 
"1004"=dword:00000000
 
 
"1201"=dword:00000000
 
 
"1402"=dword:00000000
 
 
"2201"=dword:00000000
 
 
[HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/1]
 
 
@=""
 
 
"DisplayName"="本地 Intranet"
 
 
"CurrentLevel"=dword:00000000
 
 
"1001"=dword:00000000
 
 
"1004"=dword:00000000
 
 
"1201"=dword:00000000
 
 
[HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/3]
 
 
@=""
 
 
"DisplayName"="Internet"
 
 
"CurrentLevel"=dword:00000000
 
 
"1001"=dword:00000000
 
 
"1004"=dword:00000000
 
 
"1201"=dword:00000000
 
 
/
 
 
//
 
 
// 通过网页修改activex安全设置，添加信任站点，禁用弹出窗口阻止程序
 
 
//
 
 
/
 
 
信任站点的注册表项
 
 
HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ZoneMap/Ranges/Range[*]
 
 
ActiveX的注册表项
 
 
HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/[0-4]/[*]
 
 
[0-4]
 
 
值           设置
 
 
------------------------------
 
 
0          我的电脑
 
 
1          本地 Intranet 区域
 
 
2          受信任的站点区域
 
 
3          Internet 区域
 
 
4          受限制的站点区域
 
 
[*]
 
 
1001       下载已签名的 ActiveX 控件
 
 
1004       下载未签名的 ActiveX 控件
 
 
1200       运行 ActiveX 控件 和插件
 
 
1201       对没有标记为安全的 ActiveX 控件 进行初始化和脚本运行
 
 
1405       对标记为可安全执行脚本的 ActiveX 控件 执行脚本
 
 
2201       ActiveX 控件 自动提示 **
 
 
弹出窗口阻止程序 的注册表项
 
 
HKEY_CURRENT_USERHKCU/Software/Microsoft/Internet Explorer/New Windows/PopupMgr
 
 
具体脚本如下:
 
 
<SCRIPT LANGUAGE="JavaScript">
 
 
<!--
 
 
var WshShell=new ActiveXObject("WScript.Shell");
 
 
//添加信任站点ip
 
 
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//ZoneMap//Ranges//Range100//","");
 
 
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//ZoneMap//Ranges//Range100//http","2","REG_DWORD");
 
 
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//ZoneMap//Ranges//Range100//:Range","192.168.0.1");
 
 
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//ZoneMap//Ranges//Range101//","");
 
 
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//ZoneMap//Ranges//Range101//http","2","REG_DWORD");
 
 
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//ZoneMap//Ranges//Range101//:Range","192.168.0.2");
 
 
//修改IE ActiveX安全设置
 
 
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>
 
 
URL:
 
 
比如说我们要把www.Microsoft.com 添加到客户的受信任站点
 
 
1.运行regedit,打开注册表,首先打开下面的键值
 
 
HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Inte
 
 
rnet Settings/ZoneMap/Domains
 
 
2.在其下面新建一个项命名为"Microsoft.com"
 
 
3.在Microsoft.com下面再新建一个项,命名为"www"
 
 
4.在www下新键一个双字节子键,命名为"*","*"表示任何协议,你还可以把
 
 
"*"替换为"http","ftp"等其它名称
 
 
5.双击刚才新建的双字节子键"*",确保基数里选择是"十六进制",在数值
 
 
数据种填写"2"
 
 
6.关闭注册表
 
 
<SCRIPT LANGUAGE="JavaScript">
 
 
<!--
 
 
var WshShell=new ActiveXObject("WScript.Shell");
 
 
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVe
 
 
rsion//Internet Settings//ZoneMap//Domains//Microsoft.com","");
 
 
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVe
 
 
rsion//Internet Settings//ZoneMap//Domains//Microsoft.com//www","");
 
 
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVe
 
 
rsion//Internet
 
 
Settings//ZoneMap//Domains//Microsoft.com//www//http","2","REG_DWORD"
 
 
);
 
 
alert("写入成功");
 
 
//-->
 
 
</SCRIPT>
 
 
附ＶＢ．ＮＥＴ代码
 
 
还原
 
 
 Dim reg As RegistryKey
            reg = Registry.CurrentUser

            '0:          我的电脑()
            '1          本地 Intranet 区域
            '2:          受信任的站点区域()
            '3:          Internet(区域)
            '4:          受限制的站点区域()
            reg = reg.OpenSubKey("Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/2", True)
            '1001       下载已签名的 ActiveX 控件
            reg.SetValue("1001", "1")
            '1004       下载未签名的 ActiveX 控件
            reg.SetValue("1004", "3")
            '1200       运行 ActiveX 控件和插件
            reg.SetValue("1200", "0")
            '1201       对没有标记为安全的 ActiveX 控件进行初始化和脚本运行
            reg.SetValue("1201", "3")
            '1405       对标记为可安全执行脚本的 ActiveX 控件执行脚本
            reg.SetValue("1405", "0")
            '2201       ActiveX 控件自动提示 **
            reg.SetValue("2201", "3")

            reg = reg.OpenSubKey("Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/3", True)
            '1001       下载已签名的 ActiveX 控件
            reg.SetValue("1001", "1")
            '1004       下载未签名的 ActiveX 控件
            reg.SetValue("1004", "3")
            '1200       运行 ActiveX 控件和插件
            reg.SetValue("1200", "0")
            '1201       对没有标记为安全的 ActiveX 控件进行初始化和脚本运行
            reg.SetValue("1201", "3")
            '1405       对标记为可安全执行脚本的 ActiveX 控件执行脚本
            reg.SetValue("1405", "0")
            '2201       ActiveX 控件自动提示 **
            reg.SetValue("2201", "3")
 
 
修改
 
 
 Dim reg As RegistryKey
                    reg = Registry.CurrentUser
                    reg = reg.CreateSubKey("Software/Microsoft/Windows/CurrentVersion/Internet Settings/ZoneMap/Domains/" & m_UserInfo.serverIP)
                    reg = reg.CreateSubKey("Software/Microsoft/Windows/CurrentVersion/Internet Settings/ZoneMap/Domains/" & m_UserInfo.serverIP & "/www")
                    reg.SetValue("http", "2")

                    '0:          我的电脑()
                    '1          本地 Intranet 区域
                    '2:          受信任的站点区域()
                    '3:          Internet(区域)
                    '4:          受限制的站点区域()
                    reg = reg.OpenSubKey("Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/2", True)
                    '1001       下载已签名的 ActiveX 控件
                    reg.SetValue("1001", "0")
                    '1004       下载未签名的 ActiveX 控件
                    reg.SetValue("1004", "0")
                    '1200       运行 ActiveX 控件和插件
                    reg.SetValue("1200", "0")
                    '1201       对没有标记为安全的 ActiveX 控件进行初始化和脚本运行
                    reg.SetValue("1201", "0")
                    '1405       对标记为可安全执行脚本的 ActiveX 控件执行脚本
                    reg.SetValue("1405", "0")
                    '2201       ActiveX 控件自动提示 **
                    reg.SetValue("2201", "0")

                    reg = reg.OpenSubKey("Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/3", True)
                    '1001       下载已签名的 ActiveX 控件
                    reg.SetValue("1001", "0")
                    '1004       下载未签名的 ActiveX 控件
                    reg.SetValue("1004", "0")
                    '1200       运行 ActiveX 控件和插件
                    reg.SetValue("1200", "0")
                    '1201       对没有标记为安全的 ActiveX 控件进行初始化和脚本运行
                    reg.SetValue("1201", "0")
                    '1405       对标记为可安全执行脚本的 ActiveX 控件执行脚本
                    reg.SetValue("1405", "0")
                    '2201       ActiveX 控件自动提示 **
                    reg.SetValue("2201", "0")
 
 

修改注册表添加信任站点及启用Activex控件
 
 
 
 
  
 
  
//
 
  
//    添加信息站点及将指定IP添加到本地Intranet中,
 
  
//    "*"=dword:00000002 表示受信任的站点区域
 
  
//    "*"=dword:00000001 表示本地 Intranet 区域
 
  
//
 
  
 
  
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/Range100]
 
  
"*"=dword:00000002
 
  
":Range"="192.168.10.121"
 
  
[HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ZoneMap/Ranges/Range101]
 
  
"*"=dword:00000001
 
  
":Range"="192.168.10.121"
 
  
[HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/2]
 
  
@=""
 
  
"DisplayName"="可信站点"
 
  
"CurrentLevel"=dword:00001000
 
  
"Flags"=dword:00000043
 
  
"1004"=dword:00000000
 
  
"1201"=dword:00000000
 
  
"1402"=dword:00000000
 
  
"2201"=dword:00000000
 
  
[HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/1]
 
  
@=""
 
  
"DisplayName"="本地 Intranet"
 
  
"CurrentLevel"=dword:00000000
 
  
"1001"=dword:00000000
 
  
"1004"=dword:00000000
 
  
"1201"=dword:00000000
 
  
[HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/3]
 
  
@=""
 
  
"DisplayName"="Internet"
 
  
"CurrentLevel"=dword:00000000
 
  
"1001"=dword:00000000
 
  
"1004"=dword:00000000
 
  
"1201"=dword:00000000
 
  
 
  
/
 
  
//
 
  
// 通过网页修改activex安全设置，添加信任站点，禁用弹出窗口阻止程序
 
  
//
 
  
/
 
  
信任站点的注册表项
 
  
HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/ZoneMap/Ranges/Range[*]
 
  
ActiveX的注册表项
 
  
HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings/Zones/[0-4]/[*]
 
  
[0-4]
 
  
值           设置
 
  
------------------------------
 
  
0          我的电脑
 
  
1          本地 Intranet 区域
 
  
2          受信任的站点区域
 
  
3          Internet 区域
 
  
4          受限制的站点区域
 
  
[*]
 
  
1001       下载已签名的 ActiveX 控件
 
  
1004       下载未签名的 ActiveX 控件
 
  
1200       运行 ActiveX 控件和插件
 
  
1201       对没有标记为安全的 ActiveX 控件进行初始化和脚本运行
 
  
1405       对标记为可安全执行脚本的 ActiveX 控件执行脚本
 
  
2201       ActiveX 控件自动提示 **
 
  
弹出窗口阻止程序的注册表项
 
  
HKEY_CURRENT_USERHKCU/Software/Microsoft/Internet Explorer/New Windows/PopupMgr
 
  
具体脚本如下:
 
  
<SCRIPT LANGUAGE="JavaScript">
 
  
<!--
 
  
var WshShell=new ActiveXObject("WScript.Shell");
 
  
//添加信任站点ip
 
  
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//ZoneMap//Ranges//Range100//","");
 
  
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//ZoneMap//Ranges//Range100//http","2","REG_DWORD");
 
  
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//ZoneMap//Ranges//Range100//:Range","192.168.0.1");
 
  
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//ZoneMap//Ranges//Range101//","");
 
  
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//ZoneMap//Ranges//Range101//http","2","REG_DWORD");
 
  
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVersion//Internet Settings//ZoneMap//Ranges//Range101//:Range","192.168.0.2");
 
  
//修改IE ActiveX安全设置
 
  
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>
 
  
 
  
URL:
 
  
比如说我们要把www.Microsoft.com添加到客户的受信任站点
 
  
1.运行regedit,打开注册表,首先打开下面的键值
 
  
HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Inte
 
  
rnet Settings/ZoneMap/Domains
 
  
2.在其下面新建一个项命名为"Microsoft.com"
 
  
3.在Microsoft.com下面再新建一个项,命名为"www"
 
  
4.在www下新键一个双字节子键,命名为"*","*"表示任何协议,你还可以把
 
  
"*"替换为"http","ftp"等其它名称
 
  
5.双击刚才新建的双字节子键"*",确保基数里选择是"十六进制",在数值
 
  
数据种填写"2"
 
  
6.关闭注册表
 
  
<SCRIPT LANGUAGE="JavaScript">
 
  
<!--
 
  
var WshShell=new ActiveXObject("WScript.Shell");
 
  
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVe
 
  
rsion//Internet Settings//ZoneMap//Domains//Microsoft.com","");
 
  
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVe
 
  
rsion//Internet Settings//ZoneMap//Domains//Microsoft.com//www","");
 
  
WshShell.RegWrite("HKCU//Software//Microsoft//Windows//CurrentVe
 
  
rsion//Internet
 
  
Settings//ZoneMap//Domains//Microsoft.com//www//http","2","REG_DWORD"
 
  
);
 
  
alert("写入成功");
 
  
//-->
 
  
</SCRIPT>