306xshdi
Messages postés29Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention 2 février 2007
-
27 janv. 2005 à 21:26
306xshdi
Messages postés29Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention 2 février 2007
-
28 janv. 2005 à 15:47
Bonsoir,
Je cherche à faire un script pour tester si la connexion à Internet est bien active. J'ai commencé à 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 étes connecté !"
WScript.Quit
else
WScript.echo "vous n'étes pas connecté !"
end if
loop
-----------------------------------------------------------------------------
Donc, 2 problèmes à mon script :
- une fenêtre (type cmd) s'ouvre.
- le fait de faire un ping sur un site, je suis obligé d'autoriser mon firewall
En fait, je voudrais que le test soit invisible !!!
Je fais appel à vous car j'ai déjà posté sur plein de forum et aucune réponse
Cela ne me semble pas compliqué mais je suis débutant et je bloque.
Merci et A+
mythic_kruger
Messages postés241Date d'inscriptionjeudi 8 janvier 2004StatutMembreDernière intervention10 novembre 2005 28 janv. 2005 à 10:45
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