Anders <astaehr@tiscali.dk> skrev 2006-10-03:
> Jeg har surfet lidt rundt for at finde et lille program/utility, der ganske
> simpelt skal monitorere ca. 40 enheder på et netværk, f.eks. 1 gang i timen
> døgnet rundt, for eksempel med ping kommandoen. Blot for at se om der er liv
> i alle enheder. Der må gerne kunne sendes en e-mail (SMTP) og genereres en
> rapport når der er noget galt med en enhed.
> Programmet skal køre på Windows, og være gratis - og altså kontrollere 40-50
> enheder.
Som skrevet, så kan perl bruges. Activeperl, perl2exe og følgende stump
startkode burde kunne gøre det du vil i løbet af en 2 minutter hvis
activeperl og perl2exe allerede er installeret. Ellers må man nok
påregne hele 15-30 minutter.
#!/usr/bin/perl
use strict;
use Mail::Sendmail;
my @hosts=(
"192.168.1.2",
"192.168.1.3",
);
foreach my $host (@hosts) {
my $output = ping -n 1 $host;
my $error = $?;
if($error) {
my %mail = (
To => 'To',
From => 'From',
Bcc => 'Someone <him@there.com>, Someone else her@there.com',
Cc => 'Yet someone else <xz@whatever.com>',
Subject => 'Test message',
'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION",
);
$mail{Smtp} = 'special_server.for-this-message-only.domain.com';
$mail{'X-custom'} = 'My custom additionnal header';
$mail{'mESSaGE : '} = "The message key looks terrible, but works.";
# cheat on the date:
$mail{Date} = Mail::Sendmail::time_to_date( time() - 86400 );
if (sendmail %mail) {
print "Mail sent OK.\n"
} else {
print "Error sending mail: $Mail::Sendmail::error \n"
}
}
}
Thomas
--