If msgbox ("允许将“广州农商银行建筑工人工资分账管理系统”设置为Internet Explorer的受信任站点？", 1,"IE环境设置") = 1 Then
	
	'1、将OA服务器加为信任站点，加入IP地址和域名方法是不一样的。
	'2、修改IE信任站点的选项设置
	'range有编号

	dim WshShell

	set WshShell = CreateObject("WScript.Shell")

	strDesktop = WshShell.SpecialFolders("Desktop")
	set oShellLink = WshShell.CreateShortcut(strDesktop & "\建筑工人工资分账管理系统.lnk")
	oShellLink.TargetPath = "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
	'oShellLink.TargetPath = "IEXPLORE.EXE"
	oShellLink.Arguments = "https://eg.grcbank.com:8443/oa/buildingpayLogin.jsp"
	oShellLink.WindowStyle = 1
	'oShellLink.IconLocation = "c:\windows\system32\oaSetup.ico"
	oShellLink.Description = "Shortcut Script"
	oShellLink.WorkingDirectory = strDesktop
	oShellLink.Save
	
	Set oShellLink = Nothing

	'1、将OA服务器加为信任站点，加入IP地址和域名方法是不一样的，具体参看注册表。

	'办公协同
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range53\http","2","REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range53\:Range","*.grcbank.com","REG_SZ"
	
	'对外研发平台（生产环境）
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range62\https","2","REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range62\:Range","eg.grcbank.com","REG_SZ"
	
	'172.21.130.24（生产环境）
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range63\http","2","REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range63\:Range","172.21.130.24","REG_SZ"
	
	'172.21.130.25（生产环境）
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range64\http","2","REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range64\:Range","172.21.130.25","REG_SZ"
	
	'172.18.130.58（生产环境F5）
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range65\http","2","REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range65\:Range","172.18.130.58","REG_SZ"

	'2、修改IE信任站点的选项设置，
	'--包括将信任站点的最小级别、安全级别变为低,将跨域访问数据设置为允许,用户验证登陆改为“自动使用当前用户名密码登录”等等！


	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1001",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1004",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1200",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1201",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1206",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1400",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1402",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1405",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1406",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1407",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1601",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1604",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1605",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1606",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1607",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1608",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1609",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1800",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1802",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1803",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1804",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1805",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1806",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A00",&H00020000,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A02",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A03",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A04",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A05",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A06",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A10",0,"REG_DWORD"
	'WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1C00",&h00030000,"REG_BINARY"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1E05",&H00030000,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1807",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1808",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1809",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2100",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2101",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2102",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2200",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2201",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2300",&H00000003,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2000",0,"REG_DWORD"

	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2001",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2004",0,"REG_DWORD"

	'WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\DisplayName","可信站点","REG_SZ" 
	'WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\Description","该区域包含有您确认不会损坏计算机或数据的网站。","REG_SZ" 
	'WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\Icon","inetcpl.cpl#00004480","REG_SZ" 

	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\CurrentLevel",0,"REG_DWORD" 
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\MinLevel",0,"REG_DWORD" 
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\RecommendedLevel",&H00010000,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\Flags",&H00000043,"REG_DWORD"
        WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1409",3,"REG_DWORD"
        
        '3、修改本地intranet选项设置，
	'--包括将信任站点的最小级别、安全级别变为低,将跨域访问数据设置为允许,用户验证登陆改为“自动使用当前用户名密码登录”等等！

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1001",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1004",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1200",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1201",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1206",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1400",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1402",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1405",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1406",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1407",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1601",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1604",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1605",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1606",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1607",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1608",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1609",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1800",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1802",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1803",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1804",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1805",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1806",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1A00",&H00020000,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1A02",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1A03",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1A04",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1A05",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1A06",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1A10",0,"REG_DWORD"
	'WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1C00",&h00030000,"REG_BINARY"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1E05",&H00030000,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1807",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1808",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1809",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\2100",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\2101",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\2102",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\2200",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\2201",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\2300",&H00000003,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\2000",0,"REG_DWORD"

	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\2001",0,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\2004",0,"REG_DWORD"

	'WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\DisplayName","可信站点","REG_SZ" 
	'WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\Description","该区域包含有您确认不会损坏计算机或数据的网站。","REG_SZ" 
	'WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\Icon","inetcpl.cpl#00004480","REG_SZ" 

	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\CurrentLevel",0,"REG_DWORD" 
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\MinLevel",0,"REG_DWORD" 
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\RecommendedLevel",&H00010000,"REG_DWORD"
	WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\Flags",&H00000043,"REG_DWORD"
        WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\1409",3,"REG_DWORD"
	


	'注意：除非另外声明，否则每个 DWORD 值等于 0、1 或 3。通常，设置为 0 则将具体操作设置为允许；设置为 1 则导致出现提示；设置为 3 则禁止执行具体操作。
	'值            设置
	'-----------------------------------------------------------------------
	'1001     下载已签名的 ActiveX 控件
	'1004     下载未签名的 ActiveX 控件
	'1200     运行 ActiveX 控件和插件
	'1201     对没有标记为安全的 ActiveX 控件进行初始化和脚本运行
	'1206     WebOC 脚本
	'1400     活动脚本
	'1402     Java 小程序脚本
	'1405     对标记为可安全执行脚本的 ActiveX 控件执行脚本
	'1406     可跨域访问数据资源
	'1407     允许通过脚本进行粘贴操作
	'1601     提交非加密表单数据
	'1604     字体下载
	'1605     运行 Java
	'1606     持续使用用户数据
	'1607     跨域浏览子框架
	'1608     允许 META REFRESH *
	'1609     显示混合内容 *
	'1800     桌面组件的安装
	'1802     拖放或复制和粘贴文件
	'1803     文件下载
	'1804     在 IFRAME 中加载程序和文件
	'1805     在 Web 视图中加载程序和文件
	'1806     加载应用程序和不安全文件
	'1A00     登录
	'1A02     允许持续使用存储在计算机上的 Cookie
	'1A03     允许使用每个会话的 Cookie（未存储）
	'1A04     没有证书或只有一个证书时不提示选择客户证书 *
	'1A05     允许持续使用第三方 Cookie *
	'1A06     允许使用第三方会话 Cookie *
	'1A10     隐私设置 *
	'1E05     软件频道权限
	'1C00     Java 权限
	'2001     运行用 Authenticode 进行签名的 .NET 组件
	'2004     运行未用 Authenticode 进行签名的 .NET 组件
	'详情：http://support.microsoft.com/default.aspx?scid=182569
	set WshShell = Nothing	
	MsgBox "设置完成，快捷方式已创建到桌面！"
	
	'兼容性视图
	Dim objRegistry
	Const HKEY_CR = &H80000001 'HKEY_CURRENT_USER常量
	Const REG_BINART=3 '二进制类型
	Dim strComputer,strKeyPath,strValue,retcode 
	'string varable
	strComputer = "."
	strKeyPath = "Software\Microsoft\Internet Explorer\BrowserEmulation\ClearableListData"
	strValue = "UserFilter"

	'binary array
	Dim arrData
	arrData=Array(&H41,&H1f,&H00,&H00,&H53,&H08,&Had,&Hba,&H03,&H00,&H00,&H00,&H8c,&H00,&H00,&H00,&H01,&H00,&H00,&H00,&H03,&H00,&H00,&H00,&H0c,&H00,&H00,&H00,&Ha4,&H37,&Hf1,&H29,&H48,&H44,&Hd6,&H01,&H01,&H00,&H00,&H00,&H0b,&H00,&H67,&H00,&H72,&H00,&H63,&H00,&H62,&H00,&H61,&H00,&H6e,&H00,&H6b,&H00,&H2e,&H00,&H63,&H00,&H6f,&H00,&H6d,&H00,&H0c,&H00,&H00,&H00,&H66,&Hcf,&H0d,&H74,&H4a,&H44,&Hd6,&H01,&H01,&H00,&H00,&H00,&H0d,&H00,&H31,&H00,&H37,&H00,&H32,&H00,&H2e,&H00,&H32,&H00,&H31,&H00,&H2e,&H00,&H31,&H00,&H33,&H00,&H30,&H00,&H2e,&H00,&H32,&H00,&H34,&H00,&H0c,&H00,&H00,&H00,&Hf5,&H63,&H8c,&Hdf,&H38,&H45,&Hd6,&H01,&H01,&H00,&H00,&H00,&H0d,&H00,&H31,&H00,&H37,&H00,&H32,&H00,&H2e,&H00,&H32,&H00,&H31,&H00,&H2e,&H00,&H31,&H00,&H33,&H00,&H30,&H00,&H2e,&H00,&H32,&H00,&H35,&H00)
	Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
	objRegistry.CreateKey HKEY_CR, strKeyPath
	objRegistry.SetBinaryValue HKEY_CR, strKeyPath, strValue, arrData
	
End If