Ir para o conteúdo

Verificar as máquinas da rede

Este script tem como principal função verificar as maquinas da rede, que estão enumeradas num ficheiro de texto.E após a análise vai imprimir para o ecrã uma mensagem a dizer quais estão online ou offline.

#!/usr/bin/perl
use warnings;
use strict;
use Net::Ping;
use autodie;
my $host;
my $my_addr="<ip>";
my $ping;   
my @reportlist;
chomp(my $date = `date +%a%d%m%y%k%M`);

open(FILE, "<ficheiro que contem os ips de rede>");
chomp (my @ips = <FILE>);
close(FILE);

foreach $host (@ips){
    $ping = Net::Ping->new();
    if ($ping->ping($host)){
    #print "$host -> está activo.\n";
    push(@reportlist,"$host -> está activo.");
    }else{      
    #print "$host -> está offline\n";
    push(@reportlist,"$host -> está offline.");
    }
    $ping ->close();
}

#Reporte da lista
foreach (@reportlist) 
{
    print "$_\n";
}