Option Explicit
Const PROXYENABLE = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet" & _
  "Settings\ProxyEnable"
Const PROXYSERVER = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet" & _
"Settings\ProxyServer"
Dim WshShell, ProxySettings, Setting
ProxySettings = Array ("68.106.103.1:8080", "217.153.81.122:3128", _
  "217.18.184.83:80")  
 
Set WshShell = WScript.CreateObject("WScript.Shell")
For Each Setting In ProxySettings
  With WshShell
    .RegWrite PROXYENABLE, 1, "REG_DWORD"
    .RegWrite PROXYSERVER, Setting
    .Run "%windir%\System32\RUNDLL32.EXE" & _
      "user32.dll,UpdatePerUserSystemParameters", 1, True 
  End With
  WScript.Sleep 20000 
Next