none
Script VBS IE RRS feed

  • Pergunta

  • Ola Pessoal,

    Possuo um script em .vbs para forçar o uso do proxy no IE. O Script funciona perfeitamente, marca a opção de usar o proxy, inclui as exceções, porém, gostaria que ele marcasse "Não usar servidor proxy para endereços locais". Poderiam me ajudar?

    Segue o script que ultilizo.

    'nome do arquivo: configura_proxy.vbs
    'script vbs para configurar o proxy no windows
    set oShell = Wscript.CreateObject("Wscript.Shell")
    configproxy = "proxy.local:8080"
    execeptions = "contoso.com; 10.10.10.10"
    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"
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", execeptions, "REG_SZ"
    Set oShell = Nothing

    Obrigado desde já pela ajuda

    segunda-feira, 29 de julho de 2013 16:05

Respostas

  • boa noite Walter,

    é só vc acrescentar <local> depois dos sites que irá ficar na exclusão.

     set oShell = Wscript.CreateObject("Wscript.Shell")
     configproxy = "proxy.local:8080"
     execeptions = "contoso.com;10.10.10.10;<local>"
     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"
     oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", execeptions, "REG_SZ"
     Set oShell = Nothing
    
    


    att, Aparecido Deveza

    • Sugerido como Resposta fernando silva 1 terça-feira, 30 de julho de 2013 13:42
    • Marcado como Resposta Walter_Santos quarta-feira, 31 de julho de 2013 18:31
    terça-feira, 30 de julho de 2013 02:10

Todas as Respostas

  • Olá Walter

    Estou movendo sua thread para "Scripts Administrativos", onde podemos obter auxílio!

    Obrigado!


    Fernando H. da Silva - Microsoft Contingent Staff

    segunda-feira, 29 de julho de 2013 18:18
  • boa noite Walter,

    é só vc acrescentar <local> depois dos sites que irá ficar na exclusão.

     set oShell = Wscript.CreateObject("Wscript.Shell")
     configproxy = "proxy.local:8080"
     execeptions = "contoso.com;10.10.10.10;<local>"
     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"
     oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", execeptions, "REG_SZ"
     Set oShell = Nothing
    
    


    att, Aparecido Deveza

    • Sugerido como Resposta fernando silva 1 terça-feira, 30 de julho de 2013 13:42
    • Marcado como Resposta Walter_Santos quarta-feira, 31 de julho de 2013 18:31
    terça-feira, 30 de julho de 2013 02:10
  • Maravilha... Funcionou..

    Muito Obrigado!!!

    quarta-feira, 31 de julho de 2013 18:31