Discussion :

[guitarhero88]

Bonjour,
je suis nul en programation batch et je veux que vous m'aidiez à faire un programme qui a pour but:
pinger sur un lien sur internet
si le ping est ok
on refait le ping aprés une min
si le ping est KO
je veux recevoir un email d'alerte
et je veux que le tout soit mentionner sur un fichier de sortie.txt
aider moi SVP»Répondre

[hackoofr]

Je viens juste de traiter un problème similaire à le votre sans la partie mail mais en Vbscript ==> Récupérer l'adresse ip de plusieurs ordinateurs ; si vous êtes prêt, a le programmer en Vbscript, je peux peut-être vous donner un petit coup de main
Sinon,il faut attendre un autre batcheur pour vous donner des idées en batch

[guitarhero88]

merci pour ta reponce ;; mais j'ai besoin d'un script .bat

[sachadee]

Salut,

Pour la première partie et pour win en français :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
@echo off
set adresse=google.com

:test_ping
echo TEST EN COURS...
ping %adresse% | find "sur"
if %errorlevel%==1 (echo [%date%] [%time%] CONNECTION A %adresse% REFUSEE >>Data.log
                    ping localhost -n 60 >nul
                    goto :test_ping)
if %errorlevel%==0 (echo [%date%] [%time%] CONNECTION A %adresse% OK !>>Data.log)
ECHO TEST TERMINE
exit

Ca te cree un fichier data.log avec les resultat de connexions.

pour la 2eme partie il te faut utiliser une commande externe com "BLAT"
qui te permet d'envoyé un e-mail a partir d'un bat.

Amicalement

[guitarhero88]

merci enormement sachadee , le script marche trés bien c'est ce ke je veux , mais je ne peux pas faire une boucle pour repeter le test chaque min ou 2 min ??

[hackoofr]

Vous avez une seule adresse ou bien plusieurs à tester

[hackoofr]

et un grand à SACHA pour l'idée de ping
Voila le code complet avec envoi du mail à l'aide de du logiciel Blat :
Multi Ping sur plusieurs hôtes.
Il vous suffit de télécharger le logiciel Blat et de le copier avec ce script batch et de changer bien sûr le nom de votre smtp et l'email du destinataire
Bonne Chance à vous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
35
 @echo off
 Title Multi Ping Test avec alerte par Mail
 mode con cols=90 lines=8 & color 9B
 if Exist Data.log del Data.log 
    set adresse=www.developpez.net www.yahoo.com bbat.forumeiros.com www.voila.fr www.orange.fr www.google.com
    For %%a in (%adresse%) do call :test_ping %%a
    Call :Mail
    
    :test_ping
    cls
    echo.
    echo TEST EN COURS......
    echo.
    ping %1 | find "sur"
    if %errorlevel%==1 (echo [%date%] [%time%] CONNECTION A %1 REFUSEE >>Data.log
                        ping localhost -n 6 >nul
                        )
    if %errorlevel%==0 (echo [%date%] [%time%] CONNECTION A %1 OK !>>Data.log)                  
    echo.
    echo TEST TERMINE
    echo.
    goto :eof
   
    :Mail
    cls
    Set NomComputer=%ComputerName%
    Set Expediteur=%NomComputer%@%NomComputer%.com
    set Destinataire=tonemail@yahoo.fr
    set subj=-s "Multi Ping Test"
    set server=-server smtp.orange.fr
    set Message=-bodyF "Data.log"
    set log=-log LogBlat.txt
    echo.
    echo Envoi de Mail ......
    blat %Message% -to %Destinataire% -f %Expediteur% %subj% %server% %log%

[ousssama76000]

et un grand à SACHA pour l'idée de ping
Voila le code complet avec envoi du mail à l'aide de du logiciel Blat :
Multi Ping sur plusieurs hôtes.
Il vous suffit de télécharger le logiciel Blat et de le copier avec ce script batch et de changer bien sûr le nom de votre smtp et l'email du destinataire
Bonne Chance à vous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
35
 @echo off
 Title Multi Ping Test avec alerte par Mail
 mode con cols=90 lines=8 & color 9B
 if Exist Data.log del Data.log 
    set adresse=www.developpez.net www.yahoo.com bbat.forumeiros.com www.voila.fr www.orange.fr www.google.com
    For %%a in (%adresse%) do call :test_ping %%a
    Call :Mail
    
    :test_ping
    cls
    echo.
    echo TEST EN COURS......
    echo.
    ping %1 | find "sur"
    if %errorlevel%==1 (echo [%date%] [%time%] CONNECTION A %1 REFUSEE >>Data.log
                        ping localhost -n 6 >nul
                        )
    if %errorlevel%==0 (echo [%date%] [%time%] CONNECTION A %1 OK !>>Data.log)                  
    echo.
    echo TEST TERMINE
    echo.
    goto :eof
   
    :Mail
    cls
    Set NomComputer=%ComputerName%
    Set Expediteur=%NomComputer%@%NomComputer%.com
    set Destinataire=tonemail@yahoo.fr
    set subj=-s "Multi Ping Test"
    set server=-server smtp.orange.fr
    set Message=-bodyF "Data.log"
    set log=-log LogBlat.txt
    echo.
    echo Envoi de Mail ......
    blat %Message% -to %Destinataire% -f %Expediteur% %subj% %server% %log%

Bonjour, j'ai copié le code tel qu'il est mais ça ne fonctionne pas !!
voici l'erreur : The SMTP server does not like the sender name.Have you set your mail address correctly?
Auriez-vous une idée pour résoudre ce problème ?

[hackoofr]

Avez-vous changer le nom du serveur smtp qui vous correspond ?

[hackoofr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
35
36
37
38
39
40
41
42
 @echo off
 Title Multi Ping Test avec alerte par Mail
 mode con cols=90 lines=8 & color 9B
 ::*************A changer*****************
 Set Exp=moi@yahoo.fr
 Set Dest=toi@yahoo.fr
 Set MySmtp=smtp.votreserveur.com
 ::***************************************
 if Exist Data.log del Data.log 
 If Exist LogBlat.txt del LogBlat.txt
    set adresse=www.developpez.net www.yahoo.com www.google.com
    For %%a in (%adresse%) do call :test_ping %%a
    Call :Mail
    
    :test_ping
    cls
    echo.
    echo TEST EN COURS......
    echo.
    ping %1 | find "sur"
    if %errorlevel%==1 (echo [%date%] [%time%] CONNECTION A %1 REFUSEE >>Data.log
                        ping localhost -n 6 >nul
                        )
    if %errorlevel%==0 (echo [%date%] [%time%] CONNECTION A %1 OK !>>Data.log)                  
    echo.
    echo TEST TERMINE
    echo.
    goto :eof
   
    :Mail
    cls
    Set Expediteur=-f %Exp%
    set Destinataire=-to %Dest%
    set subj=-s "Multi Ping Test"
    set server=-server %MySmtp%
    set Message=-bodyF "Data.log"
    set log=-log LogBlat.txt
    set Debug=-debug
    echo.
    echo Envoi de Mail ......
    blat %Message% %Destinataire% %Expediteur% %subj% %server% %log% %Debug%
    Start LogBlat.txt