none
Script para forçar o Proxy RRS feed

  • Pergunta

  • Galera eu achei um script na internet muito bom pra colocar um endereço de proxy, sendo que este script pergunta o usuario se ele quer ou não habilitar o proxy, eu preciso que o proxy seja configurado sem perguntas, alguem sabe como fazer isso? Segue o script.

    dim oShell 
    set oShell = Wscript.CreateObject("Wscript.Shell") 
     
    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", "192.168.0.1:8080", "REG_SZ" 
    else 
    	oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet  
     
    	Settings\ProxyEnable", 0, "REG_DWORD" 
     
    End if 

     


    • Editado Fábio JrModerator terça-feira, 15 de outubro de 2013 13:04 Formatação do código
    terça-feira, 15 de outubro de 2013 10:52

Respostas

  • Você quer que ele configure o proxy sem perguntas? tente assim:

    dim oShell 
    set oShell = Wscript.CreateObject("Wscript.Shell") 
     
    
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet  
    
    Settings\ProxyEnable", 1, "REG_DWORD" 
    oShell.RegWrite "HKCU\Software\Microsoft\Windows\currentVersion\Internet  
     
    Settings\ProxyServer", "192.168.0.1:8080", "REG_SZ" 
    

    Existia um IF..Then..Else..End if, retirei e deixei apenas a parte que configura o proxy.


    Fábio de Paula Junior

    terça-feira, 15 de outubro de 2013 13:06
    Moderador