繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
- VBScript
- Restart.vbs源代码可以重启远程电脑的vbs
- 远程或本地获取系统信息的脚本RGIS.vbs
- 远程开启/关闭目标telnet服务的windows脚本RTCS.vbs
- 可以得到当前系统信息的脚本sysinfo.vbs
- RCMD使用说明
- 远程启动终端服务的windows脚本ROTS.vbs
- 解锁注册表的vbs脚本
- 如何使用脚本锁定任务栏？
- 灵活实用VBS入门教程应用篇
- 注册表-批处理-VBS之间的功能对应
- 收集的一些经典的vbs脚本大全
- VBS+MSWinsock打造灵巧UDP后门的相关资料
- 一些经典的主要用户黑客的vbs脚本结合echo的dos下实现
- 可以定时自动关机的vbs脚本
- 利用wscript执行文件[包括可执行exe文件]vbs脚本
- vbs实用软件自造——Windows脚本应用实例
- 防止网页脚本病毒执行的方法-from web
- 打开QQ并且让它自己输入用户名和密码的vbs脚本
- 多进程的实现投票的vbs脚本
- 用vbs脚本实现运行DOS批处理不再出现黑屏cmd窗口
VBScript 中的 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 88 ::
收藏到网摘: 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
