none
Script em VB para desativar configurações proxy no Internet Explorer RRS feed

  • Pergunta

  • 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?
    terça-feira, 24 de novembro de 2009 13:12

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 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

    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
    quarta-feira, 25 de novembro de 2009 12:42

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 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

    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.
    terça-feira, 24 de novembro de 2009 13:32
  • Obrigado pela colaboração. Ambos funcionaram. Agora o script em VB teria como apenas executar o desativamento sem perguntar nada?

    quarta-feira, 25 de novembro de 2009 10:51
  • 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



    quarta-feira, 25 de novembro de 2009 12:40
  • 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 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

    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
    quarta-feira, 25 de novembro de 2009 12:42
  • 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
    segunda-feira, 11 de janeiro de 2010 14:11
  • 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!
    quinta-feira, 27 de outubro de 2011 13:26
  • Anderson,

    Movi sua pergunta para um novo tópico

    http://social.technet.microsoft.com/Forums/pt-BR/scriptadminpt/thread/26a43a94-c4e2-4441-9ba6-1efb3d263d04


    Fábio de Paula Junior
    quinta-feira, 27 de outubro de 2011 14:05
    Moderador