Proxy On OFF Switch with get current state v2

A useful vbscript  for Laptop users who work in and out of the office and are behind a proxy server when in the office and are not when out of the office. For those users who have difficulty changing the settings manually through internet explorer this script can save them and your helpdesk invaluable amounts of time and headaches.
This script detects the current proxy state and depending on that sate prompts you to enable or disable it.
It also auomatically closes IE so the settings take effect immediately and then re- launches IE with the new settings.
The only variable thats needs to be changed is on line 37
Replace <Domain Proxy Server> with the IP or name of your domain proxy server without the brackets <> eg. ContosoProxy:80

  'Proxy On OFF Switch with get current state v2   
  'Dec. 6, 2011   
 Set WshShell = WScript.CreateObject("WScript.Shell")  
 DimSetting = WshShell.RegRead ("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable")  
 If DimSetting = 1 Then   
 'Wscript.Echo "Proxy is Currently Enabled"  
 returnvalue=MsgBox ("Do you want to DISABLE the Proxy?", 36, "Proxy state is Currently ENABLED")  
 if returnvalue = 6 then   
 ' BEGIN CALLOUT A  
 WshShell.RegWrite "HKCU\Software\Microsoft\Windows\" & _  
      "CurrentVersion\Internet Settings\ProxyEnable", _  
      0, "REG_DWORD"  
 ' END CALLOUT A  
 wShshell.Run "taskkill /im iexplore.exe",0,True  
 WScript.Sleep 500 'give kill time to take effect  
 'Inform User that the task is done.  
 Mybox = MsgBox("Proxy is now disabled" ,vbOkOnly,"Proxy is Disabled")  
 're-launch internet explorer  
 wShshell.Run "iexplore.exe"  
 End If  
 WScript.Quit  
 Else   
 'Wscript.Echo "Proxy is Currently Disabled"   
 End If  
 'On Error Resume Next  
 returnvalue=MsgBox ("Do you want to ENABLE the Proxy?", 36, "Proxy state is Currently DISABLED")  
 If returnvalue = "" Then  
  WScript.Quit  
 End If  
 if returnvalue = 6 then   
 ' BEGIN CALLOUT A  
 'Replace <Domain Proxy Server> in line 50 with IP or your proxy server name without the <> eg. ContosoProxy:80  
 WshShell.RegWrite "HKCU\Software\Microsoft\Windows\" & _  
      "CurrentVersion\Internet Settings\ProxyEnable", _  
      1, "REG_DWORD"  
 WshShell.RegWrite "HKCU\Software\Microsoft\Windows\" & _  
      "CurrentVersion\Internet Settings\ProxyServer","<Domain Proxy Server>:80", "REG_SZ"  
 WshShell.RegWrite "HKCU\Software\Microsoft\Windows\" & _  
      "CurrentVersion\Internet Settings\ProxyOverride","<local>", "REG_SZ"  
 ' END CALLOUT A  
 wShshell.Run "taskkill /im iexplore.exe",0,True  
 WScript.Sleep 500 'give kill time to take effect  
 'Inform User that the task is done.  
 Mybox = MsgBox("Proxy is enabled and set to enter your companies proxy server",vbOkOnly,"Proxy Enabled")  
 're-launch internet explorer  
 wShshell.Run "iexplore.exe"  
 End If  
 WScript.Quit