Skip to main content
adicionou 3 caracteres ao conteúdo
Fonte Link
neves
  • 5,9mil
  • 13
  • 22
  • 56

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

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

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

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