Discussion :

[suya95]

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..

[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 ?

[suya95]

non rebooter l'ordi et non le routeur

[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ï

[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)...

[suya95]

l'os est un windows xp,

[MarneusCalgarXP]

Il existe l'executable

Code :

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

1
2
 
%WINDIR%\system32\shutdown.exe

documentation rapide

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
 
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)

[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

[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

[rcageot]

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

exemple :

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
 
#!/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";
}

[djibril]

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

[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

[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 .

[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 !