sProxyServer = "192.168.1.254:3128"
sOverrides = "192.168.1.*;<local>"

' =========================================================

On Error Resume Next
Set oShell = CreateObject("WScript.Shell")

sRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
sRegVal = oShell.RegRead(sRegKey & "ProxyServer")
If Err.number <> 0 Then
	oShell.RegWrite sRegKey & "ProxyServer", sProxyServer, "REG_SZ"
	oShell.RegWrite sRegKey & "ProxyOverride", sOverrides, "REG_SZ"
	oShell.RegWrite sRegKey & "ProxyEnable", 00000001, "REG_DWORD"
End If

Set oShell = nothing