Try:

# NetAdmin_MAC_Adresse.pl ermittelt die MAC-Adrese
use Win32::NetAdmin;
 $ref =3D {};
 $host =3D $ARGV[0] || Win32::NodeName();
 my $trans;
 my $rtn;
 if (Win32::NetAdmin::GetTransports( "\\\\$host", $ref)) {
   foreach $trans (keys %{$ref}) {
     if( $ref-> {$trans}->{'transport_name'} =3D~ /NetBT_/) {
       $rtn =3D $ref-> {$trans}->{'transport_address'};
       $rtn =3D~ s/(.{2})(.{2})(.{2})(.{2})(.{2})(.{2})/$1\ $2\ $3\ $4$5\ $6/;
       $rtn =3D uc( $rtn );
       last;
     }
   }
 }
 print "MAC-Adrese von \"$host\": $rtn\n";

---------------------------------
Perl NetAdmin_MAC_Adresse.pl 30.0.0.225

MAC-Adrese von "30.0.0.225": 00 50 DA 65 A0 70


Mit freundlichen Gr=FC=DFen
i.A. Manfred Maier

------------------------------------
Karl Miller GmbH,
Dettinger Str. 13, 88486 Kirchberg
Manfred Maier, Leiter EDV
Telefon: 07354 / 886-447
Fax:     07354 / 886-100
Email:   manfred.maier@[...].de
         www.kmk-miller.de
------------------------------------
=20
-----Urspr=FCngliche Nachricht-----
Von: hwopenka@[...].at [mailto:hwopenka@[...].at]=20
Gesendet: Mittwoch, 6. November 2002 01:14
An: Perl-Win32-Users
Betreff: I want your MAC!


Hi again,
how can I determine the MAC-Address via IP-Address? Is there a function
in perl? tia Harry

_______________________________________________
Perl-Win32-Users mailing list Perl-Win32-Users@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

To: perl-win32-users@listserv.ActiveState.com