繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
- VBScript
- 用vbs清空iis log 中自己登录ip的记录
- vbs sendmail发邮件带附件方法
- 用vbs通过135端口执行命令的脚本
- 用vbs实现的瞬间关闭多个系统进程的脚本
- vbs 中调用shell.application 简单函数
- vbs wmi获取电脑硬件信息实例
- 用vbscript实现隐藏任务栏图标的脚本
- vbs正则表达式代码
- vbs版IP地理位置查询小偷
- 超级厉害的VBS定时提醒脚本 Remind.vbs
- vbs实现的支持拖动的txt文本切割器
- VBS如何察看或获得剪切板内容的脚本
- VBS备忘录启动代码
- VBS脚本使用WMI操作注册表的代码
- vbs xmldom初次实战获取QQ签名的代码
- VBS破坏性应用代码
- vbs生成ACCESS数据里所有表的字段
- vbs实现的图片自适应表格,目前最佳解决方案!
- ProcessMagnifier.vbs进程查看
- 用于提取网易文件的hta代码
VBScript 中的 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 65 ::
收藏到网摘: n/a
复制代码 代码如下:
'/*=========================================================================
' * 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, "温馨提醒！"
评论 (0) All
