break on
; Use this key for subsequent RegPokes ...
$key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
; Configure proxy server address and port ...
$name = "ProxyServer"
$data = "www.proxy.com:80"
$type = "REG_SZ"
gosub "RegPoke"
; Enable proxy ...
$name = "ProxyEnable"
$data = "1"
$type = "REG_DWORD"
gosub "RegPoke"
; Bypass proxy server for local (Intranet) addresses"
$name = "ProxyOverride"
$data = "*.intranet.com;*.inside.com;*.within.com;<local>"
$type = "REG_SZ"
gosub "RegPoke"
; or - just use automatic configuration script
$name = "AutoConfigURL"
$data = "http://www.proxy.com/install.ins"
$type = "REG_SZ"
gosub "RegPoke"
exit
:RegPoke
$rs = writevalue ( "$key", "$name", "$data", "$type" )
if $rs
?
?"Key = " $key
?"Name = " $name
?"Type = " $type
?"Data = " $data
?"Error= $rs (@serror)"
endif
return