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
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