千家信息网

AD 脚本kixtart运用之二(客户端IE代理设置)

发表于:2024-11-22 作者:千家信息网编辑
千家信息网最后更新 2024年11月22日,根据前一编文章http://windyma.blog.51cto.com/661702/1967027 用户脚本基础上在脚本文件kixtart.kix里添加如下内容:;先获取客户端IP地址$SUBNE
千家信息网最后更新 2024年11月22日AD 脚本kixtart运用之二(客户端IE代理设置)

根据前一编文章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)  ENDIFNEXT$Network=SUBSTR($IP,1,11);根据不同IP段是否启用IE代理,如下为70,71,73三段IP不启用,其它启用IE代理SELECTCase $Network = "192.168.070"WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows\Currentversion\Internet Settings", "ProxyEnable", "0", "Reg_DWORD")GOTO ENDIESETTINGCase $Network = "192.168.071"WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows\Currentversion\Internet Settings", "ProxyEnable", "0", "Reg_DWORD")GOTO ENDIESETTINGCase $Network = "192.168.073"WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows\Currentversion\Internet Settings", "ProxyEnable", "0", "Reg_DWORD")GOTO ENDIESETTINGENDSELECTWriteValue("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")ELSEWriteValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Currentversion\Internet Settings", "ProxyServer", "192.168.38.111:8080", "Reg_SZ")ENDIF


0