none
Como criar um script para desativar o proxy no IE? RRS feed

  • Pergunta

  • Pessoal,  alguém com experiencia em script  poderia da mais uma ajuda na criação do script  para desativar o proxy no IE, desta forma eu não ficaria esperando o browser do IE abrir e ir até o menu de configuração para desativar o proxy.

    Porque  desativar o proxy,  na verdade quando estou na rede local automaticamente o proxy é habilitado via GPO, mas quando chego em casa e preciso usar o notebook tenho que desativar o proxy  para poder acessar a interne da minha casa.

    Alguém  com facilidade em .vbs  poderia ajudar?

    Abraço


    sexta-feira, 26 de agosto de 2016 01:46

Respostas

  • Algumas pessoas aqui na minha empresa enfrentam o mesmo problema resolvi com um script vbs salvo na Área de trabalho.

    Basta copiar o script abaixo, colar no bloco de notas e salvar com a extensão .vbs na Área de trabalho.

    Não esqueça de substituir o item "192.168.1.1:3128" pelo endereço do proxy da sua empresa.

    dim oShell
    set oShell = Wscript.CreateObject("Wscript.Shell")
    configproxy = "192.168.1.1:3128"
    
    if msgbox("Navegar com 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
    • Editado Tio do CPD terça-feira, 30 de agosto de 2016 20:41
    • Marcado como Resposta jgama domingo, 4 de setembro de 2016 18:55
    terça-feira, 30 de agosto de 2016 20:34
  • Salve o comando abaixo .vbs

    set wshshell = createobject("Wscript.shell")
    WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"

    Abre outra GPO, uma GPO para executar no Logout e coloca o comando acima. Assim quando o pessoal desliga o computador ao sair da empresa roda o Script e retira o proxy.

    Abraço.

    • Marcado como Resposta jgama domingo, 4 de setembro de 2016 18:55
    terça-feira, 30 de agosto de 2016 18:01

Todas as Respostas

  • Veja abaixo uma boa dica.

    Script Powershell Disable or Enable IE Proxy

    Espero ter ajudado.

    • Sugerido como Resposta coelhocarl sexta-feira, 26 de agosto de 2016 11:32
    sexta-feira, 26 de agosto de 2016 01:55
  • Quanto tenho executar o script apresenta um erro

    Essa é a linha do script.vbs

    set-itemproperty 'HKCU:\Software\Microsoft\Windows\CurrentVersion\Internet Settings' -name ProxyEnable -value 0

    Ai encontrei um script em bat que resolveu minha preguiça kkkk

    segue:

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

    terça-feira, 30 de agosto de 2016 17:46
  • Salve o comando abaixo .vbs

    set wshshell = createobject("Wscript.shell")
    WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"

    Abre outra GPO, uma GPO para executar no Logout e coloca o comando acima. Assim quando o pessoal desliga o computador ao sair da empresa roda o Script e retira o proxy.

    Abraço.

    • Marcado como Resposta jgama domingo, 4 de setembro de 2016 18:55
    terça-feira, 30 de agosto de 2016 18:01
  • Algumas pessoas aqui na minha empresa enfrentam o mesmo problema resolvi com um script vbs salvo na Área de trabalho.

    Basta copiar o script abaixo, colar no bloco de notas e salvar com a extensão .vbs na Área de trabalho.

    Não esqueça de substituir o item "192.168.1.1:3128" pelo endereço do proxy da sua empresa.

    dim oShell
    set oShell = Wscript.CreateObject("Wscript.Shell")
    configproxy = "192.168.1.1:3128"
    
    if msgbox("Navegar com 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
    • Editado Tio do CPD terça-feira, 30 de agosto de 2016 20:41
    • Marcado como Resposta jgama domingo, 4 de setembro de 2016 18:55
    terça-feira, 30 de agosto de 2016 20:34
  • Obrigado  pessoal  pela dicas

    Abraço

    domingo, 4 de setembro de 2016 18:55