Usuário com melhor resposta
Script em VB para desativar configurações proxy no Internet Explorer

Pergunta
-
Respostas
-
Obrigado pela colaboração. Ambos funcionaram. Agora o script em VB teria como apenas executar o desativamento sem perguntar nada?
Sim, sem problemas...
Ficaria assim....
dim oShellset 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"'elseoShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"'end ifSet oShell = Nothing
Apenas comentei as linhas pois caso precise de uma sollução que ative o proxy, vc terá em mãos.
[]s,
" Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"- Marcado como Resposta leonardsucupira quarta-feira, 2 de dezembro de 2009 10:12
Todas as Respostas
-
Pessoal, necessito de um script (pretendo usa-lo como de "Desligamento" ) em que desativará as configurações de proxy no Internet Explorer para usuários que utilizam notebooks. Alguém pode me ajudar?
Leonardo, bom dia.
Os notebooks estão em um dominio e vc gostaria de liberar o Proxy caso ele saia da empresa correto?
Salve como .bat
REG ADD "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 0x00000000 /f
Esse somente desabilita...
Se necessitar de uma solução mais completa verifique esse...(salve com .vbs)
dim oShellset oShell = Wscript.CreateObject("Wscript.Shell")configproxy = "10.10.10.10:8080"if msgbox("Habilitar Proxy?", vbQuestion or vbYesNo) = vbYes thenoShell.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"elseoShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"end ifSet oShell = Nothing
Efetue os teste e retorne.
[]s,
" Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"- Editado Marcellus Bockorny terça-feira, 24 de novembro de 2009 13:34 Acrescentar informações.
-
-
Olá,
Basta remover o IF:
Para desativar
set oShell = Wscript.CreateObject("Wscript.Shell")oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"
Para ativar:
set oShell = Wscript.CreateObject("Wscript.Shell")configproxy = "10.10.10.10:8080"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"Set oShell = Nothing
Até mais,
Jesiel
Obs.: Se útil, classifique
-
Obrigado pela colaboração. Ambos funcionaram. Agora o script em VB teria como apenas executar o desativamento sem perguntar nada?
Sim, sem problemas...
Ficaria assim....
dim oShellset 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"'elseoShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD"'end ifSet oShell = Nothing
Apenas comentei as linhas pois caso precise de uma sollução que ative o proxy, vc terá em mãos.
[]s,
" Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"- Marcado como Resposta leonardsucupira quarta-feira, 2 de dezembro de 2009 10:12
-
Só executar um .reg
Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
"NoNetAutodial"=dword:00000000
"EnableHttp1_1"=dword:00000001
"ProxyEnable"=dword:00000001
"ProxyServer"="ip:porta"
"EnableAutodial"=dword:00000000
"ProxyOverride"="192.*;<local>"[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Start Page"="www.google.com"[HKEY_CURRENT_USER\Software\Microsoft\Ftp]
"Use PASV"="yes"
Joseph Life Style -
Olá amigo, vc conseguiria me ajudar a criar um script para alterar as permissões de acesso (Leitura/Modificação) da chave [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]. Quero desativar as permissões de controle total de todos os usuários. Gostaria de incluir esse script no meu AD, para rodar no logon. Só a critério de informação estou querendo fazer isso para não deixar um programa chamado ultrasurf alterar o proxy da máquina. Qualquer duvida pode entrar em contato com anderson_alves@live.com Obg!
-
Anderson,
Movi sua pergunta para um novo tópico
Fábio de Paula Junior