perl如何获取本机MAC地址，Net::Libnet安装报错

mouse.rice

XP平台 notebook编辑   perl5.8

获取主机名和IP可以用模块Net::Hostname   Net::HostIP   ,但是如何获取MAC地址呢？ 用`ipconfig/all`,再摘取数据貌似不雅。CPAN查到一个模块Net::Libnet,但是死活装不上去，错误提示如下：

F:\perl_modle\Net-Libnet-0.01_04>nmake

Microsoft (R) Program Maintenance Utility   Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.

        cl -c  -I.  -nologo -GF -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO
_STRICT -DHAVE_DES_FCRYPT -DNO_HASH_SEED -DUSE_SITECUSTOMIZE -DPRIVLIB_LAST_IN_I
NC -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFI
X -MD -Zi -DNDEBUG -O1    -DVERSION=\"0.01_04\"  -DXS_VERSION=\"0.01_04\"  "-IC:
\Perl\lib\CORE"   Libnet.c
'cl' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
NMAKE : fatal error U1077: 'C:\WINDOWS\system32\cmd.exe' : return code '0x1'
Stop.

请教，如何解决？有更好的模块吗？多谢！

[ 本帖最后由 mouse.rice 于 2008-11-3 17:09 编辑 ]

ulmer

Hello,

under Windows you can use Win32 modules to access information
about MAC address.
Sample code:

1. 
   
2. use strict;
   
3. use  warnings;
   
4. use Win32::OLE qw(in);
   
5. use Win32::OLE::Variant;
   
6. 
   
7. 
   
8. my $wmi_object ='winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2';
   
9. my $objWMIService = Win32::OLE->GetObject($wmi_object);
   
10. my $wql = 'SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True';
    
11. my $nics = $objWMIService->ExecQuery($wql);
    
12. 
    
13. my $cnt = 1;
    
14. print "=" x 60, "\n";
    
15. foreach my $nic (in $nics) {
    
16.     print "Network Interface Card: $cnt\n";
    
17.     print '  Description: ' . $nic->Description, "\n";
    
18.     print '  Physical (MAC) address: ' . $nic->MACAddress, "\n";
    
19.     print '  Host name:              ' . $nic->DNSHostName, "\n";
    
20. 
    
21.     # display all IP addresses configured for this adapter
    
22.     if (!!($nic->IPAddress)) {
    
23.         for my $x (0 .. $#{$nic->IPAddress}) {
    
24.             print '  IP address:             ' . $nic->IPAddress($x), "\n";
    
25.         }
    
26.     }
    
27. 
    
28.     if (!!($nic->IPSubnet)) {
    
29.         for my $x (0 .. $#{$nic->IPSubnet}) {
    
30.             print '  Subnet:                 ' . $nic->IPSubnet($x), "\n";
    
31.         }
    
32.     }
    
33. 
    
34.     if (!!($nic->DefaultIPGateway)) {
    
35.         for my $x (0 .. $#{$nic->DefaultIPGateway}) {
    
36.             print '  Default gateway:        ' . $nic->DefaultIPGateway($x), "\n";
    
37.         }
    
38.     }
    
39.     $cnt++;
    
40.     print "=" x 60, "\n";
    
41. }
    

复制代码

mouse.rice

Thanks for ulmer

撒哈拉里的鱼

我发现好多人喜欢自己编译模块安装，但是事实上连自己有没有编译器都不知道。

jkwy2112

楼主for windows 的perl环境没装？

sjdy521

回复 1# mouse.rice


    你确定Net::Libnet不是内部又调用shell的ifconfig获取mac地址？

sjdy521

回复 1# mouse.rice


    觉得不雅的话，自己封装一个包就可以啦

sjdy521

回复 1# mouse.rice


    不好意思，居然是08年的帖子。。。我蛋疼了

freewind31

my $mac_address = $1 if `ipconfig /all` =~ m/Physical Address.+\s(..-..-..-..-..-..)\s/;