Usuário com melhor resposta
Script VBS IE

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 = NothingObrigado desde já pela ajuda
- Movido fernando silva 1 segunda-feira, 29 de julho de 2013 18:18
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
Todas as 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
-