none
Arquivo BAT para alterar PROXY RRS feed

  • Pergunta

  • Tenho um gerente que usa o proxy na empresa, mas externamente tem que desabilitar o proxy. Como fazer isso via .bat.

    Criar o bat na area de trabalho (Habilita PROXY e Desabilita PROXY), sendo que o habilita vai as configuracoes do IP: 10.101.0.25 e a porta 80.

    Alguem tem uma dica?


    Profissional com graduação técnica em Redes de Computadores, superior em Sistemas de Informação e Pós-Graduando em Gestão de Tecnologia da Informação. Possui as certificações Microsoft (70-270, 70-290 e 70-291).

    sábado, 7 de abril de 2012 21:49

Respostas

  • Boa Noite Delano,

    Acredito que esse script te ajudará (já está configurado com suas informações), salve com a extensão .vbs

    O gerente clicando em YES, habilita o proxy com as configurações da empresa, clicando em NO, desativa o proxy ai ele pode usar a internet do local onde quer que ele esteja.

    dim oShell
    set oShell = Wscript.CreateObject("Wscript.Shell")
    
    if msgbox("Habilitar Proxy?", 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", "10.101.0.25:80", "REG_SZ"
    else
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
    
    End if
    
    Set oShell = Nothing



    Rafael S. AMARAL
    U. P. Mackenzie


    segunda-feira, 9 de abril de 2012 03:00

Todas as Respostas

  • Boa Noite Delano,

    Acredito que esse script te ajudará (já está configurado com suas informações), salve com a extensão .vbs

    O gerente clicando em YES, habilita o proxy com as configurações da empresa, clicando em NO, desativa o proxy ai ele pode usar a internet do local onde quer que ele esteja.

    dim oShell
    set oShell = Wscript.CreateObject("Wscript.Shell")
    
    if msgbox("Habilitar Proxy?", 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", "10.101.0.25:80", "REG_SZ"
    else
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
    
    End if
    
    Set oShell = Nothing



    Rafael S. AMARAL
    U. P. Mackenzie


    segunda-feira, 9 de abril de 2012 03:00
  • Rafael,

    Ótimo script, funciona bem demais... Fiz apenas a alteração de HKCU para HKEY_CURRENT_USER e já está rodando...

    Muito obrigado.


    Profissional com graduação técnica em Redes de Computadores, superior em Sistemas de Informação e Pós-Graduando em Gestão de Tecnologia da Informação. Possui as certificações Microsoft (70-270, 70-290 e 70-291).

    sexta-feira, 1 de junho de 2012 02:21
  • Olá Delano,

    Que bom que foi útil, se possível marque como resposta, assim outras pessoas podem utilizar como referência.


    Rafael S. AMARAL
    U. P. Mackenzie


    sexta-feira, 8 de junho de 2012 01:08
  • Olá Rafael! Esse script tbém me ajudou mto!!! Só uma dúvida: Ele funcionou perfeitamente para o Internet Explorer, mas não para o Chrome. O que teria de ser feito pra funcionar em ambos?
    domingo, 15 de julho de 2012 03:50
  • Olá Luciano,

    Que bom que te ajudou !

    Agora referente ao Chorme, até onde sei, o chrome utiliza as configurações que estão setadas no IE.

    Até o suporte da google informa isso!

    http://support.google.com/chrome/bin/answer.py?hl=pt-BR&answer=106010


    Rafael S. AMARAL
    U. P. Mackenzie

    "LIBERTADORES 2012 - A Caminho do JAPÃO"

    domingo, 15 de julho de 2012 19:04
  • Rafael S. AMARAL, olhei a sua resposta sobre o proxy e gostaria de saber se você tem algum srip para desmarcar o quadrado

    "exibir sites da intranet no modo de exibição de compatibilidade"

    obrigado pela ajuda 

    terça-feira, 12 de março de 2013 14:44
  • Boa Tarde Fernando,

    Caso não tenha conseguido ainda, consegue printar a tela e postar?


    Rafael S. AMARAL

    U. P. Mackenzie


    sexta-feira, 5 de abril de 2013 21:28
  • Muito bom, funcionou perfeitamente aqui também.

    Obrigado.


    Grato, Alexandre Martins

    quarta-feira, 11 de setembro de 2013 19:46
  • Obrigado utilizei com sucesso.
    segunda-feira, 2 de dezembro de 2013 17:30
  • E se desejar "Não usar proxy para endereços locais"? como proceder?

    Eu usei o comando a seguir, ele define os endereços para ignorar, porém, não marca o chekbox.

    AlterarProxy.vbx

    --------------------------------------------

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

    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.0.10:800", "REG_SZ"
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\currentVersion\Internet Settings\ProxyOverride", "192.168.*", "REG_SZ"

    Set oShell = Nothing

    -------------------------------------------

    AlterarProxy.bat

    REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f

    REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /t REG_SZ /d 192.168.0.10:800 /f

    REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyOverride /t REG_SZ /d "192.168.*" /f

    --------------------------------------------

    Outra dúvida, no .bat só funciona se eu clicar com o botão direito do mouse e "executar como administrador". Como fazer para executar normalmente?

    Pretendo usar no script de logon do usuário. Não vou fazer via GPO pois algumas pessoas não usam proxy.

    quarta-feira, 4 de dezembro de 2013 12:37
  • Bom Dia, como consigo acessar o facebook, skidrow, entre outros sites bloqueados modificando esse proxy da empresa, Desde já Grato.

    Windows Registry Editor Version 5.00

    [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings] 
    "EnableAutoProxyResultCache"=dword:00000001 
    "EnableNegotiate"=dword:00000001 
    "ProxyEnable"=dword:00000001 
    "AutoConfigURL"="www.google.com" 
    "ProxyServer"="proxycanccbm.agnet.local:8080"
    "ProxyOverride"="*.agnet.*;10.*;*.local;<local>"

    quarta-feira, 23 de abril de 2014 13:18
  • Muito Obrigado pela ajuda, era exatamente o que eu estava precisando. É possível que na msgbox ao invés de Sim e Não apareça, os nomes Habilitar e Desabilitar? Se você conseguir me ajudar com esse detalhe fica perfeito.
    sábado, 27 de setembro de 2014 22:52
  • Obg. Exatamente o que eu precisava!
    quinta-feira, 1 de outubro de 2015 17:52
  • Boa tarde Rafael,

    Para o meu uso, o script seria ideal que ele fixasse já no script sem perguntar. E após eu efetuar o bloqueio a estas configurações via GPO.

    Como ficaria o script?

    Agradeço desde já

    quarta-feira, 17 de agosto de 2016 18:17
  • Rafael, funcionou na hora! Muito obrigado por disponibilizar o script para todos da comunidade! PORÉM, vou me aproveitar de seus conhecimentos (e da sua boa vontade) e pedir como faço para que em vez de setar um endereço proxy, ele use o "Usar script de configuração automática" e preencha o campo com "http://wpad.exemplo.com.br/wpad.dat". Podes me auxiliar, por favor? Desde já, novamente agradeço pela disponibilização de seu tempo. Abraços!
    segunda-feira, 29 de maio de 2017 13:01
  • Para marcar o checkbox "Não user servidor proxy para endereços locais" eu adicionei esta linha

    oShell.RegWrite "HKCU\Software\Microsoft\Windows\currentVersion\Internet Settings\ProxyOverride", "<local>"

    terça-feira, 26 de dezembro de 2017 13:52
  • Alguem conseguiu algum script para essa solução?
    quarta-feira, 28 de fevereiro de 2018 21:00
  • Flávio,

    Foi passado pelo Rafael um modelo em vbs que pode ser usado, deixando que o usuário configure ou não o proxy quando estiver dentro da empresa. Se quiser algo em .bat, basta usar o script mostrado pelo Ricardo que vai dar certo.

    Script do Rafael

    dim oShell
    set oShell = Wscript.CreateObject("Wscript.Shell")
    
    if msgbox("Habilitar Proxy?", 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", "10.101.0.25:80", "REG_SZ"
    else
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
    
    End if
    
    Set oShell = Nothing


    Script do Ricardo (fiz alguns ajustes caso queira inserir uma mensagem)

    @echo off
    cls
    @echo.
    @echo    *******************************************
    @echo    ***                                     ***
    @echo    ***  ALTERAÇÃO DE PROXY PARA IE/CHROME  ***
    @echo    ***                                     ***
    @echo    *******************************************
    @echo.
    
    REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f
    REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /t REG_SZ /d http://ProxyServername:80 /f
    REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyOverride /t REG_SZ /d "127.0.0.1;localhost;<local>;" /f

    Altere as informações abaixo para o seu cenário.

    ProxyServer: http://ProxyServername:80 = Informar o endereço de proxy junto com a porta. Ex: 192.168.0.1:3389
    ProxyOverride: "127.0.0.1;localhost;<local>;" Aqui você precisa informar as exceções, caso não tenha, pode manter o que está no script, ou deixa apenas o "<local>;"

    Ficou claro?


    sexta-feira, 25 de maio de 2018 22:05
  • Olá! Qual o script para desativar o proxy?
    sexta-feira, 8 de junho de 2018 22:45
  • Olá bom dia, como poderia fazer um script para criar e deletar automaticamente proxy no windows

    mas gostaria de criar apenas o proxy seguro, ou seja, apenas no protocolo HTTPS.

    vi aqui que tem esse script abaixo aqui neste forum, mas preciso dessa restrição acima, se alguém conseguir me ajudar eu agradeço.

    Eu gostaria de inserir o endereço de proxy apenas no protocolo seguro HTTPS (443) e não selecionar o checkbox onde diz: Usar o mesmo servidor proxy para todos os protocolos.

    dim oShell
    set oShell = Wscript.CreateObject("Wscript.Shell")
    
    if msgbox("Habilitar Proxy?", 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", "<endereco:porta>", "REG_SZ"
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\currentVersion\Internet Settings\ProxyOverride", "<local>;"
    else
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
    
    End if
    
    Set oShell = Nothing

    Se alguém puder ajudar com essa informação eu agradeço

    quinta-feira, 14 de novembro de 2019 12:58