SCRIPTS: change proxy IE

dim strProxyServer
strProxyServer = "192.168.10.20:8080"
dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
Msgbox "Proxy Cambiado y habilitado " & VbCrLf & "Proxy server - " & strProxyServer

Set oWshShell = Nothing