windows 脚本设定IE属性

Windows脚本简介

Windows脚本可以用来自动化管理计算机的设置。它是基于解释的，可以与windows shell资源进行交互.windows 脚本的下一代是power shell更功能强大更好用。

问题:

开发b/s程序，有时候会遇到由于安全问题要对IE 进行特别的设定。理想的情况是用户对ie比较熟悉，那么只要在帮助中写好说明，按说明设置IE就好了。但是实际的情况是大多是用户即使那么IE设定帮助也无法完成设定。那么，怎么办？让客服人员去帮助用户设定，对于b/s来说。客户群巨大，这样做不现实。如果有简单方法让用户去设定,这个问题也可以解决。比如下载个文件，双击执行，一切搞定。这个时候windows脚本就成了不二之选。

解决方法：

案例：

客户端设定IE的属性：

1.         把某个站点加到可信站点；

2.         对可信站点的未标记为安全activeX执行初始化，并关闭activeX初始化的提示信息

脚本如下：

 

 '----------------------------------------------------------------------------

 'IE　客户端设置脚本

 'write by hbb0b0

 '2009-09-04

 '----------------------------------------------------------------------------

IP="xxx.xxx.xxx.xxx"

    Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!""" &_

strComputer & ""root"default:StdRegProv")

strKeyRanges = "Software""Microsoft""Windows""CurrentVersion""Internet Settings""ZoneMap""Ranges"

oReg.EnumKey HKEY_CURRENT_USER, strKeyRanges, arrSubKeys

    Dim strKeyName

    Dim strValue

hasIP=false

    '检查IP是否已添加到受信站点

For Each subkey In arrSubKeys

    '' StdOut.WriteLine subkey

      strKeyName=strKeyRanges+""""+subkey

      oReg.GetStringValue HKEY_CURRENT_USER,strKeyName,":Range",strValue

    ' StdOut.WriteLine "Name:" & subKey+ " value:" & strValue

      If strValue=IP Then

         hasIP=True

      Exit For

      End If

 

Next

    '如果IP没有添加到可信站点，则添加Ip到可信站点

If hasIP=false Then

 

 rangeName1=strKeyRanges+""""+"Range100"

    '' StdOut.WriteLine "hello" + rangeName1

 oReg.CreateKey HKEY_CURRENT_USER,rangeName1

 rangeName2=":Range"

    '' StdOut.WriteLine "hello" + rangeName2

 oReg.SetStringValue HKEY_CURRENT_USER,rangeName1,rangeName2,IP

 rangeName3="http"

 rangeName3Value=2

    '' StdOut.WriteLine "hello" + rangeName3

 oReg.SetDWORDValue HKEY_CURRENT_USER,rangeName1,rangeName3,rangeName3Value

    ' StdOut.WriteLine "可信站点已添加"+IP

End If

 

    '可信站点的允许不可信的activeX初始化

strKeyActiveX="Software""Microsoft""Windows""CurrentVersion""Internet Settings""Zones""2"

 

    '检查是否已设置了activeX初始化

    Dim str1201Value

hasActiveXInit=False

oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyActiveX,1201,str1201Value

    ' StdOut.WriteLine strKeyActiveX+"""1201 :" +Cstr(str1201Value)

IF str1201Value=0 Then

     hasActiveXInit=True

End If

If hasActiveXInit=False Then

    oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyActiveX,1201,0

     oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyActiveX,1201,str1201NewValue

    ' StdOut.WriteLine strKeyActiveX+"""1201(new) :" +Cstr(str1201NewValue)

End If

 

    '设置关闭IE 可信站点的IE 提示

    '检查是否已关闭了activeX提示

    Dim str2201Value

hasActiveXWarning=False

oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyActiveX,2201,str2201Value

    ' StdOut.WriteLine strKeyActiveX+"""2201 :" +Cstr(str2201Value)

IF str2201Value=0 Then

     hasActiveXWarning=True

End If

    '没有关闭activeX提示的话就关闭

If hasActiveXWarning=False Then

    oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyActiveX,2201,0

     oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyActiveX,2201,str2201NewValue

    ' StdOut.WriteLine strKeyActiveX+"""2201(new):" +Cstr(str2201NewValue)

End If

注意：

Windows 脚本宿主有两个版本：基于 Windows 的版本 (Wscript.exe)，它提供用于设置脚本属性的属性单；另一个是基于命令提示符的版本 (Cscript.exe)，它提供用于设置脚本属性的命令行开关。通过在命令提示符下键入 Wscript.exe 或 Cscript.exe 可以运行其中某一个。

如果在Wcript中运行：

        Set StdOut = WScript.StdOut

        StdOut.WriteLine “hello world”

StdOut会报错，它一直为空。它只能在Cscript中被初始化。命令行执行模式下才有控制台输出对象。