Originally Posted By: PeckMan

....

sorry, I thought continuing this thread will be easier than creating a new one.
I'll remind this for the future.


Don't worry. We all make mistakes sometimes. \:\)

Tweaked it a bit.

 Code:
Dim $SUBNET, $key

$SUBNET = Left(@IPADDRESS0, 12)
$key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"

If $SUBNET = " 10. 43.  1."
	$rc = WriteValue($key,"ProxyEnable","1","REG_DWORD")
	$rc = WriteValue($key,"ProxyServer","proxy:8080","REG_SZ")
	$rc = WriteValue($key,"ProxyOverride", "<local>", "REG_SZ")
Else
	$rc = WriteValue($key,"ProxyEnable","0","REG_DWORD")
EndIf


Edited by Mart (2007-05-18 11:45 AM)
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.