Здравствуйте, Stas_Dragon, Вы писали:

S_D>Есть ли универсальный спосб на языке Perl определение MAC адреса по IP адресу работающий и под Unix и под NT. ?

S_D>Зарание все биг спасибо!

возможно пути к утилитам проидется прописать...

#!/usr/bin/perl

# код для Linux: Davor Ocelic, docelic+linux.hr
# код для Win: мой

print ip2mac('192.168.1.2');

sub ip2mac {
    local $_ = shift;
    $_ = quotemeta();
    my $result;
    if ($^O eq "linux") {
        chomp($result = `ping -c 1 $_ | arp -a | grep $_ | awk '{print \$4}'`);
    }
    elsif ($^O eq "MSWin32") {
        chomp($result = `ping -n 1 $_ | arp -a | grep $_ -o+`);
        $result = (split(/\s+/, $result))[2];
    }
    return $result;
}

к сожалению не нашел как c cmd сделать что либо подобное awk...