AD 脚本kixtart运用之二(客户端IE代理设置)
2017-09-20 09:54
281 查看
根据前一编文章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
在脚本文件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运用之五(用户电脑屏保设置)
- 使用bat批处理脚本自动设置IP和IE代理
- 自动切换IE代理设置: 简单使用IE自动配置脚本
- AD 脚本kixtart运用之四(用户桌面背景)
- 用vbs实现自动检查代理是否可用,并自动设置IE代理的脚本
- 自动切换IE代理设置: 简单使用IE自动配置脚本
- 域登录脚本(自动设置IE代理选项)
- 自动切换IE代理设置: 简单使用IE自动配置脚本
- AD 脚本kixtart运用之三(添加windows共享打印机)
- AD 脚本kixtart运用之六(outlook邮件批量生成签名)
- AD 脚本kixtart运用之一 ( 网络盘自动映射)
- 使用脚本修改IE的局域网设置-自动配置脚本
- VBA 设置 IE 的代理,不用重启 IE
- IE 11 如何设置“用户代理字符串”
- IE取消或设置代理服务器脚本
- 利用vbs脚本设置IE的打印页眉页脚信息(zhuan)
- 仿制新浪微博iOS客户端之二-项目基础搭建及相关设置
- IE,FF客户端浏览器缓存机制 && 服务器设置的expires, Cache-Control,no-cache,no-store机制
- 将 RedirectToOptimalOWAServer 设置为 False 后通过代理连接到客户端访问服务器失败
- 设置IP和代理的Windows Bat脚本