AW: Find out the MAC Address of a Remote Computer

[Manfred Maier]

Here is an example

# 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";

Prints: 
MAC-Adrese von "PPS1": 00 02 A5 87 39 B6

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:   [EMAIL PROTECTED]
         www.kmk-miller.de
------------------------------------
 


-----Urspr�ngliche Nachricht-----
Von: [EMAIL PROTECTED] [mailto:denis.banovic@;ncm.at] 
Gesendet: Dienstag, 22. Oktober 2002 15:14
An: [EMAIL PROTECTED]
Betreff: Find out the MAC Address of a Remote Computer


Hi!

Is it possible to get the MAC Adress of a Remote PC in LAN or in the
Internet?

Which module should I use?

Thanks

"THINK THE WEB WAY."
---------------------------------------------------
        NCM - NET COMMUNICATION MANAGEMENT GmbH
---[  Denis Banovic - CTO
        mailto:denis.banovic@;ncm.at
---[  M�hlstrasse 4a
      AT - 5023 Salzburg
      Tel. 0662 / 644 688
---[  Fax: 0662 / 644 688 - 88 
      http://www.ncm.at
---------------------------------------------------
_______________________________________________
Perl-Win32-Admin mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

To: [EMAIL PROTECTED]


_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs