none
Verificar se VPN está conectada RRS feed

  • Pergunta

  • Ola a todos,

     

      Estou com uma dúvida, preciso reconectar uma VPN caso ela caia, tenho o comando para conectar mas como fazer para verificar se está conectada, como executar o script constantemente?

     

     

    scritp:

    Dim WSHShell
    Set WSHShell = WScript.CreateObject("WScript.Shell")
    WSHShell.Run "rasdial conexão usuario senha", 1, true 

     

    obrigado.


    Douglas Oliveira Admin Rede []
    sexta-feira, 25 de novembro de 2011 03:09

Respostas

  • Você pode dar um ping em algum host só acessivel via VPN.

    strComputer="hostvpn"
    
    Set WshShell = WScript.CreateObject("WScript.Shell") 
    strRetorno = Not CBool(WshShell.run("ping -n 2 " & strComputer,0,True)) 
    If strRetorno = False Then 
    	'Não pingou então reconecta
    	WSHShell.Run "rasdial conexão usuario senha", 1, true 
    end if
    

     

     


    Fábio de Paula Junior
    terça-feira, 29 de novembro de 2011 11:29
    Moderador

Todas as Respostas

  • Você pode dar um ping em algum host só acessivel via VPN.

    strComputer="hostvpn"
    
    Set WshShell = WScript.CreateObject("WScript.Shell") 
    strRetorno = Not CBool(WshShell.run("ping -n 2 " & strComputer,0,True)) 
    If strRetorno = False Then 
    	'Não pingou então reconecta
    	WSHShell.Run "rasdial conexão usuario senha", 1, true 
    end if
    

     

     


    Fábio de Paula Junior
    terça-feira, 29 de novembro de 2011 11:29
    Moderador
  • Desculpa a demora.... funcionou ok

     

     

    Obrigado.


    Douglas Oliveira Admin Rede []
    sexta-feira, 2 de dezembro de 2011 00:49