欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-04-10 08:05:03
复制代码 代码如下:'/*=========================================================================...
复制代码 代码如下:

'/*=========================================================================
' * 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, "温馨提醒!"