Test connexion Internet avec Script VBS

Question

Bonsoir,
Je cherche &#224; faire un script pour tester si la connexion &#224; Internet est bien active. J'ai commenc&#233; &#224; faire ca:
----------------------------------------------------------------------------
Set objShell = WScript.CreateObject("WScript.Shell")
Set args=Wscript.Arguments


Set objExec = objShell.Exec("Ping -n 1 -l 1 www.google.fr")


Do While Not objExec.stdout.AtEndOfStream


if InStr(objExec.stdOut.ReadLine,"TTL=")<>0 Then
WScript.echo "vous &#233;tes connect&#233; !"
WScript.Quit 


else
WScript.echo "vous n'&#233;tes pas connect&#233; !"


end if


loop
-----------------------------------------------------------------------------
Donc, 2 probl&#232;mes &#224; mon script :
- une fen&#234;tre (type cmd) s'ouvre.
- le fait de faire un ping sur un site, je suis oblig&#233; d'autoriser mon firewall

En fait, je voudrais que le test soit invisible !!!
Je fais appel &#224; vous car j'ai d&#233;j&#224; post&#233; sur plein de forum et aucune r&#233;ponse
Cela ne me semble pas compliqu&#233; mais je suis d&#233;butant et je bloque.
Merci et A+

mythic_kruger · Answer

Pourquoi pas utiliser une API? Dans un module:

Declare Function InternetGetConnectedStateEx Lib "wininet.dll" ( ByRef lpSFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Long, ByVal dwReserved As Long) As Long

Public Function IsConnected() As Boolean
Dim lgLen As Long, lgFlags As Long
Dim stNomConnexion As String
Dim blConnected As Boolean
lgLen = 256
stNomConnexion = Space$(lgLen)
IsConnected = InternetGetConnectedStateEx(lgFlags, stNomConnexion, lgLen, 0&)
End Function

Nan?

306xshdi · Answer

Merci pour la r&#233;ponse mais en fait, je n'ai pas Visual Basic sur ce PC et c'est pour ca que j'aurai pr&#233;f&#233;r&#233; faire un script en VBS !

Test connexion Internet avec Script VBS

2 réponses

Discussions similaires