修改注册表添加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")