Hi,

thanks for that nice prog. It worked fine - but:
I never go a mac when I used an IP-Address (Hostnames only)
and it did only work within my LAN. In my case a wanna get
the mac of an internet user...

Do u or anyone else have a solution?

Harry

-----Original Message-----
From: Manfred Maier [mailto:Manfred.Maier@[...].de]
Sent: Wednesday, November 06, 2002 7:15 AM
To: hwopenka@spar.at; 'Perl-Win32-Users'
Subject: AW: I want your MAC!


Try:

# NetAdmin_MAC_Adresse.pl ermittelt die MAC-Adrese
use Win32::NetAdmin;
 $ref = {};
 $host = $ARGV[0] || Win32::NodeName();
 my $trans;
 my $rtn;
 if (Win32::NetAdmin::GetTransports( "\\\\$host", $ref)) {
   foreach $trans (keys %{$ref}) {
     if( $ref-> {$trans}->{'transport_name'} =~ /NetBT_/) {
       $rtn = $ref-> {$trans}->{'transport_address'};
       $rtn =~ s/(.{2})(.{2})(.{2})(.{2})(.{2})(.{2})/$1\ $2\ $3\ $4$5\ $6/;
       $rtn = 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üßen
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
------------------------------------

-----Ursprüngliche Nachricht-----
Von: hwopenka@[...].at [mailto:hwopenka@[...].at]
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@[...].com


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