mar 09
4

[Script] Ping automatique sur plusieurs HOST

1 Comment

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";
}
}

This entry was posted on 4 mars 2009 at 9 h 36 min. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

Posted in Linux Réseau by admin 1 Comment

1 Response to "[Script] Ping automatique sur plusieurs HOST"

  • nicolas says:
    5 août 2010 à 14 h 30 min

    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++;
    }

Leave a Comment

Notifiez-moi des commentaires à venir via email. Vous pouvez aussi vous abonner sans commenter.