Simple VBscript to toggle IE proxy usage

gistfile1.bas

Dim wsh, enabled, antwort
Const PROXY_KEYNAME = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"

Set wsh = WScript.CreateObject("WScript.Shell")

enabled = wsh.RegRead(PROXY_KEYNAME)

dialogText = "Die Proxynutzung ist "
If enabled = 0 Then
	dialogText = dialogText & "deaktiviert." & vbCrLf & _
		"Möchten Sie sie aktivieren?"
Else
	dialogText = dialogText & "aktiviert." & vbCrLf & _
		"Möchten Sie sie deaktivieren?"
End If

antwort = MsgBox(dialogText, vbYesNo + vbQuestion)
If antwort = vbYes Then
	enabled = 1 - enabled
	wsh.RegWrite PROXY_KEYNAME, enabled, "REG_DWORD"
End If

Set wsh = Nothing