Wilson WindowWare Tech Support

WinBatch WinBatch+Compiler WebBatch
Home | Tech Database | Tech BBS | White Papers | Purchase

IE Proxy Set 

Keywords:    IE Proxy Set

; Initialise variables and logs
Time = Timedate( )
ErrorMode(@off)
TempPath = Environment("TEMP")
Log = StrCat(TempPath, "\IEProxySet.log")
LogFile = FileOpen(Log, "WRITE")
FileWrite(LogFile, "************************************************************************************")
FileWrite(LogFile, "Starting IEProxySet at %Time%")
FileClose(LogFile)
IntControl( 38, 1, Log, 0, 0)
HKCC= @REGCLASSES + 5

:Start
ChoiceFormat=`WWWDLGED,5.0`

ChoiceCaption=`IE Proxy Configuration`
ChoiceX=224
ChoiceY=194
ChoiceWidth=165
ChoiceHeight=103
ChoiceNumControls=6

Choice01=`10,26,144,DEFAULT,PUSHBUTTON,DEFAULT,"Connected to the corporate network",1`
Choice02=`10,44,144,DEFAULT,PUSHBUTTON,DEFAULT,"Connected to an external Internet provider",2`
Choice03=`10,60,144,DEFAULT,PUSHBUTTON,DEFAULT,"Launch Internet Explorer",3`
Choice04=`32,80,98,DEFAULT,PUSHBUTTON,DEFAULT,"Exit",0`
Choice05=`12,6,80,DEFAULT,STATICTEXT,DEFAULT,"Please choose your configuration "`
Choice06=`92,6,64,DEFAULT,STATICTEXT,DEFAULT,"for Internet Explorer:"`

ButtonPushed=Dialog("Choice")

If ButtonPushed == 0 then Goto Out
If ButtonPushed == 1 then Goto ProxyOn
If ButtonPushed == 2 then Goto ProxyOff
If ButtonPushed == 3 then Goto LaunchIE

:ProxyOn
; turn proxy settings on
regkey = RegOpenKey(@REGCurrent, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
RegSetValue(regkey, "[ProxyEnable]", "1")
RegCloseKey(regkey)
regkey = RegOpenKey(@REGCurrent, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
; change this to reflect your proxy server/port address
RegSetValue(regkey, "[ProxyServer]", "10.12.0.21:8080")  
RegCloseKey(regkey)
regkey = RegOpenKey(@REGCurrent, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
; change this to reflect your exclusions
RegSetValue(regkey, "[ProxyOverride]", "10.*;127.0.0.1;") 
RegCloseKey(regkey)
regkey = RegOpenKey(@REGCURRENT, "Software\Microsoft\Internet Explorer\Main")
; use this to force a default home page
RegSetValue(regkey, "[Start Page]", "http://intranet/intranet.html")
RegCloseKey(regkey)
regkey = RegOpenKey(HKCC, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
RegSetValue(regkey, "[ProxyEnable]", "1")
RegCloseKey(regkey)
Message("IEProxySet", "Internet Explorer configured for corporate network.")
Goto Start

:ProxyOff
; turn proxy settings off
regkey = RegOpenKey(@REGCurrent, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
RegSetValue(regkey, "[ProxyEnable]", "0")
RegCloseKey(regkey)
; clear proxy server
regkey = RegOpenKey(@REGCurrent, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
RegSetValue(regkey, "[ProxyServer]", "")
RegCloseKey(regkey)
regkey = RegOpenKey(@REGCurrent, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
; clear exclusions
RegSetValue(regkey, "[ProxyOverride]", "")
RegCloseKey(regkey)
regkey = RegOpenKey(@REGCURRENT, "Software\Microsoft\Internet Explorer\Main")
; use this to force a default home page
RegSetValue(regkey, "[Start Page]", "http://www.winbatch.com/")
RegCloseKey(regkey)
regkey = RegOpenKey(HKCC, "Software\Microsoft\windows\CurrentVersion\Internet Settings")
RegSetValue(regkey, "[ProxyEnable]", "0")
RegCloseKey(regkey)
Message("ConfigNET", "Explorateur Internet configuré pour accès externe.")
Goto Debut

:LaunchIE
RunZoom("iexplore.exe", "")

:Out
exit

Article ID:   W15343