RELATEED CONSULTING
相关咨询
选择下列产品马上在线沟通
服务时间:8:30-17:00
你可能遇到了下面的问题
关闭右侧工具栏

新闻中心

这里有您想知道的互联网营销解决方案
AD脚本kixtart运用之二(客户端IE代理设置)

根据前一编文章http://windyma.blog.51cto.com/661702/1967027 用户脚本基础上

仲巴网站制作公司哪家好,找创新互联建站!从网页设计、网站建设、微信开发、APP开发、响应式网站建设等网站项目制作,到程序开发,运营维护。创新互联建站公司2013年成立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站

在脚本文件kixtart.kix里添加如下内容:

;先获取客户端IP地址
$SUBNET = Ltrim(SubStr(@IPADDRESS0, 1, 8))
$TEMP = @IPADDRESS0
$IP=""
FOR $Counter=1 TO 15
  IF SUBSTR($TEMP,$Counter,1) = " "
    $IP=$IP + "0"
  ELSE
    $IP=$IP + SUBSTR($TEMP,$Counter,1)
  ENDIF
NEXT
$Network=SUBSTR($IP,1,11)
;根据不同IP段是否启用IE代理,如下为70,71,73三段IP不启用,其它启用IE代理
SELECT
Case $Network = "192.168.070"
WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows\Currentversion\Internet Settings", "ProxyEnable", "0", "Reg_DWORD")
GOTO ENDIESETTING
Case $Network = "192.168.071"
WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows\Currentversion\Internet Settings", "ProxyEnable", "0", "Reg_DWORD")
GOTO ENDIESETTING
Case $Network = "192.168.073"
WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows\Currentversion\Internet Settings", "ProxyEnable", "0", "Reg_DWORD")
GOTO ENDIESETTING
ENDSELECT
WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Currentversion\Internet Settings", "ProxyEnable", "1", "Reg_DWORD")
:ENDIESETTING
;设置IE代理服务器地址,同时根据不同用户组,使用不同的代理服务器
IF INGROUP ("Proxy-100")
WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Currentversion\Internet Settings", "ProxyServer", "192.168.38.100:8080", "Reg_SZ")
ELSE
WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Currentversion\Internet Settings", "ProxyServer", "192.168.38.111:8080", "Reg_SZ")
ENDIF

分享文章:AD脚本kixtart运用之二(客户端IE代理设置)
标题路径:http://lswzjz.com/article/ishooi.html