[VBS] Script permettant de tester une connexion réseau

Script permettant de tester une connexion réseau [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 16-02-2009 à 23:02:13    

Bonjour à toute la communautée
 
je cherche à réaliser un script VBS permettant de tester le statut de connexion à internet d'une interface réseau
 
je m'explique, il s'agit de savoir si le pc nomade est connecté ou non à internet et d'afficher une msgbox informant l'utilisateur. Le hic c'est qu'il y a plusieurs interfaces réseau, WIFI et 3G
 
j'ai également pensé à un batch mais il n'y a pas moyen d'afficher des msgbox il me semble
 
voila, j'espère avoir été clair
 
merci a tous  :jap:

Reply

Marsh Posté le 16-02-2009 à 23:02:13   

Reply

Marsh Posté le 17-02-2009 à 00:57:04    

Si un ping suffit, alors faire :

Set objShell = WScript.CreateObject("WScript.Shell" )
Set objExecObject = objShell.Exec("cmd /c ping -n 3 -w 1000 111.222.333.444" )
Do While Not objExecObject.StdOut.AtEndOfStream
    strText = objExecObject.StdOut.ReadLine()
    If Instr(strText, "Reply" ) > 0 Then
        Wscript.Echo "Reply received."
        Exit Do
    End If
Loop


 
Sinon, voir les scripts recommandés par MS : http://www.microsoft.com/technet/s [...] fault.mspx
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed