添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码

'/*=========================================================================
' * intro 主要是解决在使用webbrowser打印时，得先设置ie安全性的问题
' * filename 添加网站到安全站点.设置安全站点打开activex时提示.去页眉页脚.vbs
' * author yongfa365
' * version v1.0
' * email yongfa365[at]qq.com
' * madetime 2009-06-18 23:12:55
' * lastmodify 2009-06-18 23:12:55
' *==========================================================================*/

const hkey_current_user = &h80000001
set objreg = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\default:stdregprov")

'添加网站到安全站点
strkeypath = "software\microsoft\windows\currentversion\internet settings\zonemap\domains\yongfa365.com"
objreg.createkey hkey_current_user, strkeypath
objreg.setdwordvalue hkey_current_user, strkeypath, "http", 2

'设置安全站点打开activex时提示
strkeypath = "software\microsoft\windows\currentversion\internet settings\zones\2"
objreg.setdwordvalue hkey_current_user, strkeypath, "currentlevel", "00000000"
objreg.setdwordvalue hkey_current_user, strkeypath, "1201", "00000001"

'取消页眉页脚
strkeypath = "software\microsoft\internet explorer\pagesetup\"
objreg.setstringvalue hkey_current_user, strkeypath, "header", ""
objreg.setstringvalue hkey_current_user, strkeypath, "footer", ""

msg = "ie安全设置完成"&vbcrlf&vbcrlf
msg = msg & "如果还不能正常打印，你需要关闭所有打开的ie浏览器窗口，然后再登录oa进行打印"&vbcrlf&vbcrlf
msg = msg & "如果还是有问题，您可以联系技术组:柳永法 "
msgbox msg, vbinformation, "温馨提醒！"