Você pode fazer o mesmo esquema em apenas um VBS. Segue o script:
Após salve como vbs.


dim oShell
set oShell = Wscript.CreateObject("Wscript.Shell")

if msgbox("PROXY [nome da organização], Habilitar?", vbQuestion or vbYesNo) = vbYes then
oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD"
oShell.RegWrite "HKCU\Software\Microsoft\Windows\currentVersion\Internet Settings\ProxyServer", "192.168.15.254:3129", "REG_SZ"
else
oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"

End if

Set oShell = Nothing