' *  VBScript to change the IE Proxy Server, by directly editing the registry
' *  Version:  2.1.1
' * Edit From Nick Drosinis
' * Change Log:
' *
' * Added:
' * Inputbox for Proxy Address
' * Check Current Proxy Settings
' *
' *  Enjoy!

'Option Explicit

' *  Proxy Server

dim strComputer
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2\Applications\MicrosoftIE")
'Display Proxy settings og Internet Explorer
Set colIESettings = objWMIService.ExecQuery ("Select * from MicrosoftIE_LANSettings")
For Each strIESetting In colIESettings

ProxyServer = ""& strIESetting.ProxyServer&""
Next

wscript.echo "Current Internet Explorer Proxy:" & ProxyServer

Dim proxy

Do
proxy = inputbox("Please enter the new proxy address (ex:192.168.10.10:8080)", "Input")
loop until proxy > ""

' *  Application Title

Dim Title
Title = "Los Proxy Changer"

' *  Welcome Message

Dim Welcome_Text
Welcome_Text = "Do you really want to change the Proxy Server to " & proxy & "?"

Call Welcome()

Sub Welcome()
Dim GO
GO = MsgBox(Welcome_Text, 36, Title)
If GO = 7 Then
WScript.Quit
End If
End Sub

' *  Warning Message

Dim Warning_Text
Warning_Text = "Warning:  All current Internet Explorer and Windows Explorer windows will be closed." & Chr(10) _
& Chr(10) _
& "Do you still wish to continue?"

Call Warning()

Sub Warning()
Dim GO
GO = MsgBox(Warning_Text, 36, Title)
If GO = 7 Then
WScript.Quit
End If
End Sub

' *  WSHShell

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

' *  Kill IE (and consequently WE as well)

Call Kill_IE()

Sub Kill_IE()
While WSHShell.AppActivate("Internet Explorer")
WSHShell.SendKeys "%{F4}"
WScript.Sleep 500    ' Impedes a traffic jam
WEnd
End Sub

' *  Regedits

WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", proxy
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", ""
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\DisablePasswordCaching", 1, "REG_DWORD"

' *  Confirmation

Dim confirm
confirm = MsgBox("Proxy Server has been changed to " & proxy & ".  Enjoy.", 64, Title)

' *  Open IE

WSHShell.run "iexplore.exe http://www.install.gr"