105 lines
3 KiB
PostScript
105 lines
3 KiB
PostScript
|
string $broadcast=$argv[1];
|
||
|
|
|
||
|
|
bool $ok;
|
||
|
|
int $i = 0;
|
||
|
|
@echo off;
|
||
|
|
@record on;
|
||
|
|
string $cmd = "ping -broadcast $broadcast";
|
||
|
|
$ok = `$cmd`;
|
||
|
|
@record off;
|
||
|
|
@echo on;
|
||
|
|
if ( $ok ) {
|
||
|
|
string $dst_addrs = GetCmdData("dstAddr");
|
||
|
|
int $ttls = GetCmdData("ttl");
|
||
|
|
int $errors = GetCmdData("pingErr");
|
||
|
|
|
||
|
|
string $arp_ips;
|
||
|
|
string $arp_macs;
|
||
|
|
string $arp_types;
|
||
|
|
@echo off;
|
||
|
|
@record on;
|
||
|
|
string $arpcmd = "arp2k -print";
|
||
|
|
bool $ok=`$arpcmd`;
|
||
|
|
ifnot($ok) {
|
||
|
|
$arpcmd = "arp";
|
||
|
|
$ok=`$arpcmd`;
|
||
|
|
}
|
||
|
|
if ($ok) {
|
||
|
|
$arp_ips = GetCmdData("ip_addr");
|
||
|
|
$arp_macs = GetCmdData("phys_addr");
|
||
|
|
$arp_types = GetCmdData("type");
|
||
|
|
} else {
|
||
|
|
echo "Could not check arp table!";
|
||
|
|
}
|
||
|
|
@record off;
|
||
|
|
@echo on;
|
||
|
|
|
||
|
|
$i = 0;
|
||
|
|
while ($i < sizeof($dst_addrs)) {
|
||
|
|
string $cur_addr = $dst_addrs[$i];
|
||
|
|
if ($errors[$i]==0) {
|
||
|
|
echo "UNIX exploration; Broadcast response $dst_addrs[$i] with TTL $ttls[$i]";
|
||
|
|
# echo "UNIX exploration;\t\tError 00: No Error";
|
||
|
|
} else {
|
||
|
|
echo "UNIX exploration; Broadcast response $dst_addrs[$i] with TTL $ttls[$i] and error $errors[$i]";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==1) {
|
||
|
|
echo "UNIX exploration;\t\tError 01: Ping Completed";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==2) {
|
||
|
|
echo "UNIX exploration;\t\tError 02: No more addresses responded to broadcast ping";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==3) {
|
||
|
|
echo "UNIX exploration;\t\tError 03: Invalid parameter(s)";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==4) {
|
||
|
|
echo "UNIX exploration;\t\tError 04: Unknown ping type";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==5) {
|
||
|
|
echo "UNIX exploration;\t\tError 05: Error creating the socket";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==6) {
|
||
|
|
echo "UNIX exploration;\t\tError 06: Error binding the socket";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==7) {
|
||
|
|
echo "UNIX exploration;\t\tError 07: Error setting socket to broadcast mode";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==8) {
|
||
|
|
echo "UNIX exploration;\t\tError 08: Unable to resolve given address";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==9) {
|
||
|
|
echo "UNIX exploration;\t\tError 09: Unspecified error occured while attempting to send the ping";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==10) {
|
||
|
|
echo "UNIX exploration;\t\tError 10: Send of the ping timed out";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==11) {
|
||
|
|
echo "UNIX exploration;\t\tError 11: Timed out while waiting for a response to our ping";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==12) {
|
||
|
|
echo "UNIX exploration;\t\tError 12: Unspecified error occured while attempting to receive the ping response";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==13) {
|
||
|
|
echo "UNIX exploration;\t\tError 13: An error occured while attempting to send back the ping response";
|
||
|
|
}
|
||
|
|
if ($errors[$i]==14) {
|
||
|
|
echo "UNIX exploration;\t\tError 14: An unknown error occured";
|
||
|
|
}
|
||
|
|
int $j = 0;
|
||
|
|
while ($j < sizeof($arp_ips)) {
|
||
|
|
if ($arp_ips[$j]==$dst_addrs[$i]) {
|
||
|
|
echo "UNIX exploration;\t\tMAC addr for $arp_ips[$j]: $arp_macs[$j]";
|
||
|
|
echo "UNIX exploration;\t\tType for $arp_ips[$j]: $arp_types[$j]";
|
||
|
|
}
|
||
|
|
$j++;
|
||
|
|
}
|
||
|
|
@echo off;
|
||
|
|
`script UnixExplore.eps $dst_addrs[$i]`;
|
||
|
|
@echo on;
|
||
|
|
$i++;
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
echo "unable to ping";
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
return true;
|