Tester ma connexion Internet en Boucle

Version imprimable

:salut: à tous !
je voudrais faire un script qui me teste bien ma connexion internet en boucle càd, si je suis réellement connecté à internet ou non.
-Si oui alors il m'envoit un email puis il quitte le script.
-Sinon alors il continue à se boucler jusqu'au rétablissement de la connexion internet et par suite il envoi le mail et il sort de la boucle et quitte le script.
alors vous me suggérer quoi comme solution càd utilisation de tel boucle ou autre et les variables booléens :ccool:
:merci:
et voila le début du script il marche 5/5 mais il lui manque cette partie (boucle & condition de sortir de cette dernière), d'ou l’existence de ce poste :D
Code:

1 2 3 4 5 6 7 8 9 10 11 12 '-------------TEST DE CONNEXION INTERNET ET SMTP DE GMAIL----------- strComputer = "smtp.gmail.com" MsgTitre = "TEST DE CONNEXION INTERNET ET SMTP DE GMAIL © Hackoo © 2011" Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery ("select * from Win32_PingStatus where address = '" & strComputer & "'") For Each objStatus in objPing If objStatus.Statuscode = 0 Then msgbox "TEST SMTP DE GMAIL EST OK . VOUS ETES CONNECTE A INTERNET ET LE SMTP DE GMAIL EST DISPONIBLE ! " & objStatus.Statuscode,64,MsgTitre else msgbox "TEST SMTP DE GMAIL EST NO OK . VOUS N'ETES PAS CONNECTE A INTERNET ET LE SMTP DE GMAIL N'EST PLUS DISPONIBLE EN CE MOMENT !" & objStatus.Statuscode,16,MsgTitre End If Next

Tiens une boucle While ..?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
IF  AttenteInternet (0) then
       msgBox ("OK")
	   else
   MsgBox ("False")
End IF
 
Function AttenteInternet ( NbTentatives ) 'Mettre 0 pour Nbre de tentatives infinie
'-------------TEST DE CONNEXION INTERNET ET SMTP DE GMAIL-----------
Dim strComputer
Dim objPing,ObjStatus
 
strComputer = "smtp.gmail.com"
Dim ret 
Dim iCptTentatives
ret = Null
 
While  (IsNull(ret)   AND ( (iCptTentatives < NbTentatives)   OR  NbTentatives = 0 ))
		Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery ("select * from Win32_PingStatus where address = '" & strComputer & "'")
 
        For Each objStatus in objPing 
			ret=objStatus.Statuscode
			Wscript.Echo "Ret = " & objStatus.Statuscode & " : " 
			if ret <> 0 then
				Wscript.Sleep 500 
			end if
			iCptTentatives =iCptTentatives+1
			WScript.Echo iCptTentatives & " ret >" & ret & "<"
        Next 
Wend
 
	AttenteInternet= (ret=0)
 
End function

:salut: bbil et merci pour ce bout de code :ccool:
Moi aussi j'ai pensé à utiliser une boucle While....Wend très simple avec une variable booléenne et voila je l'ai adapté à ma configuration et le problème a été donc :resolu: :ccool:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'-------------TEST DE CONNEXION INTERNET ET SMTP DE GMAIL-----------
Boucle = True
While Boucle = True
strComputer = "smtp.gmail.com"
MsgTitre = "TEST DE CONNEXION INTERNET ET SMTP DE GMAIL © Hackoo © 2011"
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
msgbox "TEST SMTP DE GMAIL EST OK . VOUS ETES CONNECTE A INTERNET ET LE SMTP DE GMAIL EST DISPONIBLE ! " & objStatus.Statuscode,64,MsgTitre
Boucle = False
'Explorer("http://192.168.1.1")
wscript.quit
else
msgbox "TEST SMTP DE GMAIL EST NO OK . VOUS N'ETES PAS CONNECTE A INTERNET ET LE SMTP DE GMAIL N'EST PLUS DISPONIBLE EN CE MOMENT !" & objStatus.Statuscode,16,MsgTitre
Explorer("http://192.168.1.1") 'pour entrer dans la page du routeur et régler la configuration Internet par un reboot à distance du routeur
End If
Next
wscript.sleep 60000
Wend
Function Explorer(File)
set ws = CreateObject("wscript.shell")
ws.Run "explorer " & File
end Function