加载中…VBS:设置IE可信任站点各项参数
(2018-09-13 11:25:55)
标签：
vbsie可信任站点 |
分类： Windows |
Dim wshShell
Dim regRoot, regZones2, regZoneMapRanges, regZoneMapDomains
Set wshShell = CreateObject("WScript.Shell")
regRoot = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet
Settings\"
regZones2 = regRoot & "Zones\2\"
regZoneMapRanges =
regRoot & "ZoneMap\Ranges\"
regZoneMapDomains =
regRoot & "ZoneMap\Domains\"
With wshShell
.RegWrite regZones2 &
"1001", 0, "REG_DWORD" '
.RegWrite regZones2 &
"2201", 0, "REG_DWORD" 'ActiveX控件自动提示
.RegWrite regZones2 &
"1405", 0, "REG_DWORD" '对标记为可安全执行脚本的ActiveX控件执行脚本*
.RegWrite regZones2 &
"1201", 0, "REG_DWORD" '对未标记为可安全执行脚本的ActiveX控件初始化并执行脚本
.RegWrite regZones2 &
"2000", 0, "REG_DWORD" '二进制文件和脚本行文
.RegWrite regZones2 &
"1004", 0, "REG_DWORD" '下载未签名的ActiveX控件
.RegWrite regZones2 &
"1001", 0, "REG_DWORD" '下载已签名的ActiveX控件
.RegWrite regZones2 &
"1200", 0, "REG_DWORD" '运行ActiveX控件和插件
.RegWrite regZones2 &
"120B", 0, "REG_DWORD" '仅允许经过批准的域在未经提示的情况下使用ActiveX。0为禁用，3为启用
.RegWrite regZones2 &
"2702", 0, "REG_DWORD" '允许ActiveX筛选
.RegWrite regZones2 &
"1209", 0, "REG_DWORD" '允许ScriptLet
.RegWrite regZones2 &
"1208", 0, "REG_DWORD" '允许运行以前未使用的ActiveX控件而不提示
.RegWrite regZones2 &
"270C", 0, "REG_DWORD" '在ActiveX控件上运行反恶意软件
.RegWrite regZones2 &
"120A", 0, "REG_DWORD" '在没有使用外部媒体播放机的网页上显示视频和动画
.RegWrite regZones2 &
"1402", 0, "REG_DWORD" 'Java 小程序脚本
.RegWrite regZones2 &
"1400", 0, "REG_DWORD" '活动脚本
.RegWrite regZones2 &
"1409", 0, "REG_DWORD" '启用XSS筛选器
.RegWrite regZones2 &
"1407", 0, "REG_DWORD" '允许对剪贴板进行编程访问
.RegWrite regZones2 &
"2103", 0, "REG_DWORD" '允许通过脚本更新状态栏
.RegWrite regZones2 &
"2105", 0, "REG_DWORD" '允许网站使用脚本窗口提示获取信息
.RegWrite regZones2 &
"2101", 0, "REG_DWORD" '低权限Web内容区域中的网站可以导航到此区域
.RegWrite regZones2 &
"1806", 0, "REG_DWORD" '加载应用程序和不安全文件
.RegWrite regZones2 &
"1804", 0, "REG_DWORD" '在IFRAME中加载程序和文件
.RegWrite regZones2 &
"1206", 0, "REG_DWORD" '允许Microsoft Web浏览器控件的脚本
.RegWrite regZones2 &
"1802", 0, "REG_DWORD" '拖放或复制和粘贴文件
.RegWrite regZones2 &
"1406", 0, "REG_DWORD" '通过域访问数据源
.RegWrite regZones2 &
"1809", 3, "REG_DWORD" '使用弹出窗口阻止程序
.RegWrite regZones2 &
"1607", 0, "REG_DWORD" '跨域浏览窗口和框架
.RegWrite regZones2 &
"1A04", 0, "REG_DWORD" '只存在一个证书时不提示进行客户端证书选择
.RegWrite regZones2 &
"2708", 0, "REG_DWORD" '允许在同一窗口的域之间拖动内容
.RegWrite regZones2 &
"2709", 0, "REG_DWORD" '允许在不同窗口中的域之间拖动内容
.RegWrite regZones2 &
"2104", 0, "REG_DWORD" '允许网站打开没有地址或状态栏的窗口
.RegWrite regZones2 &
"2300", 0, "REG_DWORD" '允许网页上的活动内容使用限制的协议
.RegWrite regZones2 &
"2102", 0, "REG_DWORD" '允许脚本启动的窗口，不受大小或位置限制
.RegWrite regZones2 &
"1608", 0, "REG_DWORD" '允许Meta REFRESH
.RegWrite regZones2 &
"1609", 0, "REG_DWORD" '显示混合内容
.RegWrite regZones2 &
"1601", 0, "REG_DWORD" '提交非加密表单数据
.RegWrite regZones2 &
"2100", 0, "REG_DWORD" '启用MIME探查
.RegWrite regZones2 &
"160A", 3, "REG_DWORD" '将文件上载到服务器时包含本地路径
.RegWrite regZones2 &
"1803", 0, "REG_DWORD" '文件下载
.RegWrite regZones2 &
"1604", 0, "REG_DWORD" '字体下载
.RegWrite regZones2 &
"2400", 0, "REG_DWORD" 'XAML浏览器应用程序
.RegWrite regZones2 &
"2401", 0, "REG_DWORD" 'XPS文档
.RegWrite regZones2 &
"2402", 0, "REG_DWORD" '松散XAML
.RegWrite regZones2 &
"2007", 65536, "REG_DWORD" '带有清单的权限的组件
.RegWrite regZones2 &
"2004", 0, "REG_DWORD" '运行未用Authenticode签名的组件
.RegWrite regZones2 &
"2001", 0, "REG_DWORD" '运行已用Authenticode签名的组件
.RegWrite regZones2 &
"2600", 0, "REG_DWORD" '启用.Net Framework安装程序
End With
' 添加信任站点
'
ip地址的，在Ranges键下，域名的，在Domains键下
wshShell.RegWrite regZoneMapRanges & "Range1000\:Range", "192.168.168.16", "REG_SZ"
wshShell.RegWrite regZoneMapRanges & "Range1000\http", 2, "REG_DWORD"
Set wshShell = Nothing
MsgBox("Done!")
喜欢
0
赠金笔