If you want to disable it, I found that if you put a blank space for the ip addy and the port number it should disable it.
Also on this line :
oShell.run"rundll32.exe shell32.dll,Control_RunDLL
If the Internet options page opens on the wrong page, then you have to change the number 4 at the end to the correct numerical value in relation to the tab number on your machine, so for mine it was number 4, if it opens the wrong tab then just change that to say 5 or 3 or something like that.
Main Topics
Browse All Topics





by: gecko_au2003Posted on 2005-12-27 at 14:00:06ID: 15558612
Here is a vbscript I made to enter proxy info in , I can modify it so it prompts you with 2 inputboxes so it asks you which ip addy you want to use and which port to use if you would like and some other things, I could even make a messagebox where by it says "click yes to enable proxy and click no to disable it" as well, if you could let me know more specifically what you want then I can help you with it.
l") inetcpl.cpl,,4" 9" '<-- Change that to the ip addy you want
Here is the script :
'--------------------
set oShell = CreateObject("WScript.Shel
oShell.run"rundll32.exe shell32.dll,Control_RunDLL
WScript.Sleep 500
oShell.SendKeys"{TAB 3} "
oShell.SendKeys"{Enter}"
WScript.Sleep 500
oShell.SendKeys"{TAB 2} "
WScript.Sleep 500
oShell.SendKeys"{x} "
oShell.SendKeys"{TAB}"
WScript.Sleep 500
oShell.SendKeys"123.456.78
WScript.Sleep 500
oShell.SendKeys"{TAB}"
WScript.Sleep 500
oShell.SendKeys"8080" '<-- change that to the port you want
WScript.Sleep 500
oShell.SendKeys"{TAB 3} "
WScript.Sleep 500
oShell.SendKeys"{Enter}"
oShell.SendKeys"{TAB}"
oShell.SendKeys"{Enter}"
'--------------------
Let me know if it works. Make sure to leave the double quotes around each value.