none
SCRIPT .BAT PARA HABILITAR E DESABILITAR PROXY RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Bom dia!

    Alguém tem um script .bat que habilite e desabilite um endereço de proxy no IE?

    Estou precisando muito. Tenho vários usuários com notebooks que precisam utilizar o proxy dentro da empresa, mas fora não. Daí ficam me ligando direto para orientar como desabilitar e habilitar.

    Aguardo.

    Johhanes

    Johhanes
    sexta-feira, 24 de julho de 2009 13:45
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Ja que esta area é de scripts.. ai vai um VBS melhorado para isso..

    em configproxy coloque seu proxy.. e pronto.


    dim oShell
    set oShell = Wscript.CreateObject("Wscript.Shell")
    configproxy = "10.10.10.10:8080"

    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", configproxy, "REG_SZ"
    else
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
    end if

    Set oShell = Nothing


    ------
    Eduardo Trombini
    Eduardo Trombini MCTS - 2008 network infraestructure MCP - 2003
    • Sugerido como Resposta Elias Bottega quarta-feira, 6 de outubro de 2010 14:37
    • Marcado como Resposta Fábio JrModerator sexta-feira, 2 de dezembro de 2011 12:34
    quinta-feira, 30 de julho de 2009 19:08
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Olá,

    Você pode fazer por GPO: User Configuration -> Windows Settings ->Internet Explorer Maintenance -> Connection -> Proxy Settings

    OU pelo dhcp: http://technet.microsoft.com/en-us/library/cc985352.aspx

    Ou por vbs:
    http://www.visualbasicscript.com/m_26837/tm.htm


    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    sexta-feira, 24 de julho de 2009 13:58
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Faz 2 .bat

    Habilita_proxy.bat
    REG ADD "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 0x00000001 /f

    Desabilita_proxy.bat
    REG ADD "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 0x00000000 /f

    veja se ajuda, qualquer duvida poste denovo
    abs
    Eduardo Trombini MCTS - 2008 network infraestructure MCP - 2003
    terça-feira, 28 de julho de 2009 16:42
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    OI Eduardo, obrigado pela ajuda.

    Funciona o bat, mas como faço para setar o endereço ip e porta correta do proxy q desejo ativar?

    Obg.

    Abraço.
    Johhanes
    quinta-feira, 30 de julho de 2009 18:40
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Ja que esta area é de scripts.. ai vai um VBS melhorado para isso..

    em configproxy coloque seu proxy.. e pronto.


    dim oShell
    set oShell = Wscript.CreateObject("Wscript.Shell")
    configproxy = "10.10.10.10:8080"

    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", configproxy, "REG_SZ"
    else
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
    end if

    Set oShell = Nothing


    ------
    Eduardo Trombini
    Eduardo Trombini MCTS - 2008 network infraestructure MCP - 2003
    • Sugerido como Resposta Elias Bottega quarta-feira, 6 de outubro de 2010 14:37
    • Marcado como Resposta Fábio JrModerator sexta-feira, 2 de dezembro de 2011 12:34
    quinta-feira, 30 de julho de 2009 19:08
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Perfeito, tdo q eu precisava, laptop empresa/casa é ____, tava pensando em por um proxy em kza com o msmo IP, mas ainda tem a facul q ñ tem proxy ai fudeu.

     

    Mto obrigado!

    sexta-feira, 1 de outubro de 2010 16:03
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Cara Obrigado. Funcionou perfeitamente.
    sexta-feira, 29 de janeiro de 2016 11:33
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Preciso desabilitar a opção de script automatica do IE. Como faço isso?
    segunda-feira, 4 de julho de 2016 15:56
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Cara ajudou demais o pc fica ligando proxy sozinho e fudendo minmha internet, criei um .bat e coloquei no agendador de tarefas kkkkkkkk quero ver agora,

    quinta-feira, 13 de setembro de 2018 14:29
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    mano  seria assim!

    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\AutoDetect", 0, "REG_DWORD"
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\currentVersion\Internet Settings\ProxyServer", "127.0.0.1:80", "REG_SZ"
    else
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\AutoDetect", 1, "REG_DWORD"

    End if

    Set oShell = Nothing

    quarta-feira, 23 de janeiro de 2019 23:59
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Top, Parabéns
    quarta-feira, 12 de fevereiro de 2020 13:42
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Segue completo, inclusive para desabilitar o script automático:

    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\AutoDetect", 0, "REG_DWORD"
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\currentVersion\Internet Settings\ProxyServer", "proxyws.vigor.local:8080", "REG_SZ"
    else
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\AutoDetect", 1, "REG_DWORD"
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\AutoConfigURL", "", "REG_SZ"

    End if

    Set oShell = Nothing

    OBS: LEMBRANDO QUE PRA DESABILITAR O SCRIPT AUTOMÁTICO, É NECESSÁRIO DESABILITAR QUALQUER SOFTWARE QUE ESTEJA NA MÁQUINA SETANDO O MESMO.

    quinta-feira, 5 de agosto de 2021 11:24
    |