根據前一編文章http://windyma.blog.51cto.com/661702/1967027 用戶腳本基礎上
在腳本文件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