Board logo

标题: [转贴] VBS脚本将OA系统添加到IE受信任站点 [打印本页]
作者: VBScript    时间: 2012-4-7 22:16     标题: VBS脚本将OA系统添加到IE受信任站点

  1. Set objFSO = CreateObject("Scripting.FileSystemObject")

  2. Set WSHShell = CreateObject("WScript.Shell")

  3. on Error resume next

  4. WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range111\",""

  5. WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range111\http ","2","REG_DWORD"

  6. WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range111\:Range ","oa.hazx.cn"

  7. Wscript.Echo "Added http://oa.hazx.cn to Trusted sites Zone successfully."
复制代码


http://lzy821218.blog.51cto.com/209800/273538



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2