你这个功能发布到IIS上之后根本就运行不了吧,你没有那么高的权限,只有先把你的网站加入到可信站点里,并且调低了安全级别,你这段JS才能执行所以,你还是断了这样的念头吧
解决方案 »
- js appendChild报参数无效
- 关于tabpanel中某个panel销毁的问题
- 鼠标单击表格颜色固定,而不是鼠标移开的颜色?
- javascript 表单中checkbox全选
- [讨论]关于javascript中for语句中变量的作用域
- 2个函数,执行的时候,出现个很小的错误,但是我解决不了了!
- 如何判断表单中输入的字符是否超长?
- 用脚本控制表格
- 请问如何屏蔽用户按alt+F4关闭IE窗口
- 谁能写一个JavaScript函数:IsNumeric()
- Ext 文件上传 fileuploadfield 帮帮忙 急呀
- 非IE浏览器下,addEventListener有效监听JS赋值的输入框值变化
Set WshShell = CreateObject("Wscript.Shell")
'添加可信站点或IP
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range100\",Default
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","www.XXX.com"
'修改IE ActiveX 安全设置
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1001","0","REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1004","0","REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1200","0","REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1201","0","REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1405","0","REG_DWORD"
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2201","0","REG_DWORD"
'禁用弹出窗口阻止程序
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\New Windows\PopupMgr","no"
WScript.Echo "可信站点设置,ActiveX 控件安全设置,弹出窗口设置成功"