Actually you should start your own thread, explain your wishes/problem and include a link to this but it's too late for that now.

This should work.
 Code:
Dim $SUBNET

$SUBNET = Left(@IPADDRESS0, 12)

If $SUBNET = " 10. 43.  1."
	$key = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
	WriteValue($key,"ProxyEnable","1","REG_DWORD")
	WriteValue($key,"ProxyServer","proxy:8080","REG_SZ")
	WriteValue($key,"ProxyOverride", "<local>", "REG_SZ")
Else
	$key = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
	WriteValue($key,"ProxyEnable","0","REG_DWORD")
EndIf
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.