---

Nogen af jer der ved/kender et MRTG script der kan lave statestik
over hvor mange pcer der er online på ens LAN/WAN ??
Jeg ved der findes et/flere ... men cant find it.

Nu er jeg heller ikke den store Perl-koder .. såeee .. kan/vil nok heller
ikke kunne kode mig et optimalt script.

mvh

Martin D

---

On Tue, 8 May 2001 15:24:13 +0200, "Martin" <test@vejen-net.dk> wrote:

>Nogen af jer der ved/kender et MRTG script der kan lave statestik
>over hvor mange pcer der er online på ens LAN/WAN ??
>Jeg ved der findes et/flere ... men cant find it.

måske kan du bruge dette til et eller andet

@echo off
echo . > ipcount.txt
for /L %%1 in (1,1,255) DO ping -n 1 10.10.10.%%1 >> ipcount.txt
for /F "tokens=3" %%2 in ('find /c "Reply" ipcount.txt') do @echo %%2

T.BoP.

---

Hej t.bop@image.dk

>@echo off
>echo . > ipcount.txt
>for /L %%1 in (1,1,255) DO ping -n 1 10.10.10.%%1 >> ipcount.txt
>for /F "tokens=3" %%2 in ('find /c "Reply" ipcount.txt') do @echo %%2

Sejt, nu blev perl nævnt. Fordelen ved at bruge et lidt kraftigere
sprog er at man let kan trigge andre handlinger - eller blot formatere
et output (fx HTML).

Anyway, her er et eksempel på hvordan det kunne gøres med perl.

use strict;
use Net::Ping;

my $p = Net::Ping->new("icmp");
my $base = '10.10.10';
my $timeout = 1;

for (my $t=1; $t <= 255; $t++) {
chkip("$base.$t");
}

sub chkip {
my $ip = shift;
if ($p->ping($ip, $timeout)) {
print "$ip is Alive\n";
}
else {
print "$ip is Dead\n";
}
}

--
Lars Kim Lund
http://www.net-faq.dk/