Monday, August 17, 2009

Ping Entire network

SkyHi @ Monday, August 17, 2009

#!/usr/bin/perl -w

use strict;
use Net::Ping;

my $p = Net::Ping->new("icmp");

for(my $i=0; $i <= 255; $i++)
{
$_="192.168.20.". $i;
if ($p->ping($_)) {
print "$_ is alive.\n";
} else {
print "$_ is not reachable.\n";
}
}





Ping to Death


sudo ping -s 65507 -f -l 10 -n -Q 0x10 -q -v ip address