添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码_vbs教程-查字典教程网
添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
发布时间:2016-12-28 来源:查字典编辑
摘要:复制代码代码如下:'/*==========================================================...

复制代码 代码如下:

'/*=========================================================================

' * 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}!.rootdefault:StdRegProv")

'添加网站到安全站点

strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZoneMapDomainsyongfa365.com"

objReg.CreateKey HKEY_CURRENT_USER, strKeyPath

objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "http", 2

'设置安全站点打开ActiveX时提示

strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones2"

objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "CurrentLevel", "00000000"

objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, "1201", "00000001"

'取消页眉页脚

strKeyPath = "SoftwareMicrosoftInternet ExplorerPageSetup"

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, "温馨提醒!"

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新vbs学习
    热门vbs学习
    脚本专栏子分类