Version imprimable
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
:salut:
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 :king:
Sinon,il faut attendre un autre batcheur pour vous donner des idées en batch :)
merci pour ta reponce ;; mais j'ai besoin d'un script .bat
Salut,
Pour la première partie et pour win en français :
Ca te cree un fichier data.log avec les resultat de connexions.Code:
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
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
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 ??
:salut:
Vous avez une seule adresse ou bien plusieurs à tester :koi:
:salut: et un grand :merci: à SACHA pour l'idée de ping :king:
Voila le code complet avec envoi du mail à l'aide de du logiciel Blat :
Multi Ping sur plusieurs hôtes. :king:
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 :mouarf:
Bonne Chance à vous ;)
Code:
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 !!Citation:
Envoyé par hackoofr
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 ?
:salut:
Avez-vous changer le nom du serveur smtp qui vous correspond ?
Code:
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