script ping toutes les 5 minutes

Version imprimable

02/10/2006, 09h11
suya95

script ping toutes les 5 minutes

Bonjour,

voila je suis pas un expert en script, et je souhaite savoir s'il est possible en perl ou un autre langague de faire :

un script qui sera en fond de tache de windows, qui executera un ping sur mon routeur toutes les 5 minutes, si le routeur repond correctement, le script attend 5 minutes avant de relancer le ping.

Si le routeur ne répond pas le script renvoi une requete ping pour retester et si le routeur ne répond pas bien, le script reboot la machine.

Savez vous comment je pourrais m'y prendre, si perl est un bon langague pour le faire ou un autre langague serait mieux? Et si un autre langague que me conseillez vous avez quel site?

Merci..
02/10/2006, 09h56
MarneusCalgarXP

Je ne comprends pas bien... tu veux rebooter le routeur s'il ne répond pas au ping c'est bien ça ? mais s'il ne répond pas au ping, il risque de ne pas répondre non plus à la commande reboot, non ?
02/10/2006, 10h00
suya95

non rebooter l'ordi et non le routeur
02/10/2006, 11h03
Jedai

C'est tout à fait faisable en Perl, ceci dit ce que tu demandes (reboot) est très dépendant de l'OS, donc sans précision de ce côté là nous ne pourrons pas t'en dire davantage.

--
Jedaï
02/10/2006, 13h33
Woufeil

Bonjour.

Pour lancer un script toutes les 5 minutes, tu peux utiliser de gestionnaires de tache, ou faire une boucle qui contient un sleep tout simplement.
Pour rebooter le serveur, come l'a dit Jedai, ça dépend de la machine, il va te falloir utiliser une commande systeme (avec system()) mais ça ne sera sûrement pas portable. Et si ton serveur est sous Windows, ça va surement se compliquer (me semble pas qu'il existe une commande console accessible pour rebooter le serveur)...
02/10/2006, 14h28
suya95

l'os est un windows xp,

Il existe l'executable

Code:

1
2
 
%WINDIR%\system32\shutdown.exe

documentation rapide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Utilisation : shutdown [-i | -l | -s | -r | -a] [-f] [-m \\nom_ordinateur] [-t xx] [-c "commentaire"] [-d up:xx:yy]
 
        Sans argument           Affiche ce message (identique à -?)
        -i                      Affiche l'interface graphique, doit être la 1ère option
        -l                      Ferme la session (ne peut pas être utilisé avec l'option -m)
        -s                      Met l'ordinateur hors tension
        -r                      Met l'ordinateur hors tension et le redémarre
        -a                      Annule une mise hors tension système
        -m \\nom_ordinateur     Ordinateur distant à mettre hors tension/redémarrer/annuler
        -t xx                   Définir le délai d'expiration pour la mise hors tension à xx secondes
        -c "commentaire"                Commentaire de la mise hors tension (maximum de 127 caractères)
        -f                      Force des applications en cours d'exécution à se fermer sans avertissement
        -d [u][p]:xx:yy         Le code de raison de la mise hors tension
                                u est le code utilisateur
                                p est un code de mise hors tension planifié
                                xx est le code de raison majeur (valeur entière inférieure à 256)
                                yy est le code de raison mineur (valeur entière positive inférieure à 65536)

02/10/2006, 18h17
Woufeil

Ah ? shutdown pour XP ? Bah je savais pas du tout tient !
Donc ici c'est l'option -r qui devrait intérésser suya95.

Merci pour l'info MarneusCalgarXP ;)
03/10/2006, 09h20
suya95

je connaissais la commande shutdown -..

mais ce que je cherche le plus c'est pour faire le script qui ping.
Avez vous un site pour debuter???

Merci

tu peux aller sur google et tape "perl ping"
tu vas trouver ton bonheur

exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl -w
 
use strict;
use Net::Ping;
 
my $host = $ARGV[0];
 
my $p = Net::Ping->new("icmp");
 
if ($p->ping($host)) {
    print "$host est vivant.\n";
} else {
    print "$host est hors d'atteinte.\n";
}

03/10/2006, 10h15
djibril

je comprends ps l'interet de ce que tu veux faire, tu peux expliquer.
Sinon http://perldoc.perl.org/Net/Ping.html
03/10/2006, 10h39
MarneusCalgarXP

Probablement qu'il possède une machine avec une carte réseau défaillante, et donc que la seule solution qu'il a pour la maintenir connectée est de la rebooter...

Mais ça ne me parait pas une très bonne solution 8O
03/10/2006, 12h09
suya95

c'est tout à fait ce qu'a dit MarneusCalgarXP

J'ai un ordi ou la carte reseau deconne, perte de connexion entre la machine et le routeur.

Et l'ordi doit etre sur le reseau. Et donc si je perds la connexion pdt la nuit je ne peux pas la demarrer avant le matin.

Donc c'est pour ca que je souhaitais faire un script pour pinguer l'ordi et redemarrer celui ci si je perds la connexion .
03/10/2006, 13h45
MarneusCalgarXP

A mon avis, ça te coutera moins cher d'acheter une nouvelle carte réseau (dans les 10 euros) et ce sera une solution plus pérenne que de faire un script qui reboot l'ordi à la moindre défaillance de la carte réseau !