4
2009
[Script] Ping automatique sur plusieurs HOST
An article by 
Voici un script permettant de faire des pings sur plusieurs hosts et d’afficher le résultat de cette maniere :
192.168.0.1 OK
192.168.15.1 NOK
192.168.18.15 OK
Voici le code en shell et en perl :
En shell :
CMD=’192.168.0.1 192.168.15.2 192.168.18.5’
for i in $CMD
do
ping -c 1 -w 2 $i 1>2
if [ "$?" = 0 ];then
echo "OK : $i"
else
echo "NOK : $i"
fi
done
En perl :
#!/usr/bin/perl
@ip = (“192.168.26.1”,”192.168.0.5”,”192.168.15.18”);
$taille1 = scalar @ip;
for $i (0..$taille1-1) {
$res=system("ping -c 1 -w 2 $ip[$i]>/dev/null");
if ($res==0){
print "OK : $ip[$i]n";
}
else{
print "NOK : $ip[$i]n";
}
}
Au sujet de l'auteur: Olivier Legras
Auteur de ce Blog, je partage quelques unes de mes notes que je juge utile à vous comme à moi. Je suis très heureux de voir que mon blog a de plus en plus d'affluence. Merci à vous!
Publicité :)
Articles récents
- Grep – Extraire toutes les adresses IP d’un fichier text, Json, etc…
- Failed to Start File System Check – Vcenter 7
- Powershell – Se connecter à l’active directory depuis un poste windows 11
- Powershell – Autoriser l’exécution de scripts non signés
- Powershell – Changer le domaine des adresses emails de tous les utilisateurs AD
Partenaires
Mot-clefs
Je soutiens
Mes derniers tweets
-
RT @BSE_Anoss: Lancement de #Starwheels le 19 Juin à 20h30 sur twitch/oganoss ! C'est mon plus gros projet, j’espère que vous sere… https://t.co/NjLCKbaHXA
L’utilisation du module Net::Ping (ci-dessous) est orientée objet mais peut être moins simple à utiliser si un proxy est utilisé :
#!/usr/bin/perl
use Net::Ping;
@ip = (“192.168.26.1”,”192.168.0.5”,”192.168.15.18”);
@ip_desc = (“serveur_1″,”serveur_2″,”serveur_3”);
$i=0;
foreach $ip (@ip) {
if ($p->ping($ip)) {
print “@ip_desc[$i] : actif”; }
else { print “@ip_desc[$i] : inactif”; }
$i++;
}