Microsoft Student Ppartners Microsoft Exchange 2010 & Database Availability Group

Installer — Mon, 18 Jul 2011 10:20:41 +0000

TechNet: Eventos y Webcast: technet.microsoft.com Facebook [Contenidos y Consejos de Expertos]: www.facebook.com @SpringBoardSL www.facebook.com www.twitter.com/technetlatam MSDN: Eventos y Webcast: msdn.microsoft.com Facebook: www.facebook.com www.facebook.com www.twitter.com/msdnlatam WebsiteSpark Herramientas y Recursos para crear excelentes sitios web: www.facebook.com @WebSiteSparkLat

Easy Internet Explorer Proxy Changer

Installer — Fri, 22 Jan 2010 10:31:43 +0000

Easy IE Easy Changer.

Notes:

Windows XP : Test Completed Success
Windows 7 : Not Working

The Script

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102

' * 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"

Install » Internet Explorer

Microsoft Student Ppartners Microsoft Exchange 2010 & Database Availability Group

Easy Internet Explorer Proxy Changer