AD 腳本kixtart運用之二（客戶端IE代理設(shè)置）

根據(jù)前一編文章http://windyma.blog.51cto.com/661702/1967027 用戶腳本基礎(chǔ)上

在腳本文件kixtart.kix里添加如下內(nèi)容：

;先獲取客戶端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)
;根據(jù)不同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
;設(shè)置IE代理服務(wù)器地址，同時根據(jù)不同用戶組，使用不同的代理服務(wù)器
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