繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
- VBScript
- vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者
- 雷客图 站长安全助手 vbs版代码(asp 木马查找)
- discuz 任意管理员密码漏洞利用工具 vbs代码
- 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
- 文件夹定时自动备份 AutoBackUpFolder.vbs
- iis PHP安装脚本 PHPInstall.vbs V3.1
- HTA文件去除html控件认证和接收命令行参数
- vbs 更改环境变量
- excel2access vbs脚本
- VBS 下载方法(CDO.MESSAGE)
- vbs实现myipneighbors 域名查询结果整理
- 修改 Gateway和DNS的vbs脚本
- VBS sendkeys 模拟击键操作 问题解决
- 用vbscript来添加ip策略 自动封IP
- vbs,hta中选择文件夹对话框实现代码
- WMI 脚本高手不完全手册
- vbscript语句中“&H”专用于16进制数表示
- URL 筛选小工具 提取网页中的链接地址
- VBScript 文件操作代码小结
- vbs 错误捕获器，用于捕获内部错误并进行手工处理
VBScript 中的 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 55 ::
收藏到网摘: 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
