繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
- VBScript
- 网马生成器 MS Internet Explorer XML Parsing Buffer Overflow Exploit (vista) 0day
- Vbs COM之打开/保存文件脚本代码
- 当某IP 连接我机器的3389端口 报警的脚本
- 利用WMI实现系统补丁检测分析
- vbs 调用中文语音让你电脑听你的命令的实现代码
- SQLids.vbs 0.7(最终版，以后改成gui界面的)
- vbs 函数 获取数组字符串的最后一个LastOne 挺方便的
- 枚举域内计算机个数vbscript脚本（没环境，没测试）
- VBS 脚本不能运行 提示Windows无法访问指定设备路径或文件
- vbs 搜索代理地址实现代码[小偷程序]
- vbscript 调用WebService实现代码
- VBScript 算一算你从出生到现在共计多少天
- VBS操作Excel常见方法
- VBS 批量读取文件夹内所有的文本到Excel的脚本
- vbs 合并多个excel文件的脚本
- 自动删除超过10天的文件及文件夹的vbs代码
- VBScript 常用函数总结
- 利用WScript.Shell对象隐藏cmd命令行运行框的实现代码
- 常用VBS代码 值得一看
- 进程监控实现代码[vbs+bat]
VBScript 中的 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 60 ::
收藏到网摘: 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
