Windows在没有TCP/IP协议的情况下获取网卡MAC地址

Win NT/XP中，获得网卡MAC地址，一般是通过netapi32.dll中的NetBIOS API发送NCBASTAT命令来获取，但这样做的前提是网络连接启用了TCP/IP协议，否则的话就不起作用，而且即使用ipconfig /all命令也看不到任何内容。

但MAC地址是固化在网卡硬件中的一个序列号，即使不安装任何网络协议也应该能读取，最简单的办法是用Windows的wmic命令进行查询：

wmic nic where netconnectionid!=NULL get macaddress

很 多人比较关心如何从注册表中获取MAC地址，其实注册表中的MountPoints2项中的确是保存有MAC地址，但很难从其它设备中查找出来，比较好的 办法是先从注册表中找到网卡的设备编号，再通过DeviceIoControl查找硬件的MAC地址，以下是Perl Win32的实现：

 

#!/usr/bin/perl -w

use strict;

use Win32API::File qw(CreateFile DeviceIoControl :FILE_SHARE_ :Misc);
use Win32::TieRegistry;

#use Data::Dump qw(dump);

sub IOCTL_NDIS_QUERY_GLOBAL_STATS () { 0x17 << 16 | 2 };
sub OID_802_3_PERMANENT_ADDRESS   () { 0x01010101 };
sub OID_802_3_CURRENT_ADDRESS     () { 0x01010102 };

sub NDIS_Query
{
    my ($handle, $oid) = @_;

    my $nBytes = 0;
    my $buf = "\0"x10;

    DeviceIoControl($handle,
                    IOCTL_NDIS_QUERY_GLOBAL_STATS(),
                    pack("L", $oid), 0,
                    $buf, length($buf),
                    $nBytes,
                    [] );

    return join "-", unpack("(a2)*", unpack("H*", $buf) );
}

my $adapters = $Registry->Open("LMachine/SOFTWARE/Microsoft/Windows NT/CurrentVersion/NetworkCards", { Access => "KEY_READ", Delimiter => "/" } );

#print dump($adapters);

foreach(keys %$adapters)
{
    my $adapterName = $adapters->{$_}->{ServiceName};
    print "Adapter name  = $adapterName\n";

    my $hMAC = CreateFile("//./$adapterName", 0, FILE_SHARE_READ(), [], OPEN_EXISTING(), 0, []);

    for (
 [ "permanent" => OID_802_3_PERMANENT_ADDRESS() ],
 [ "current  " => OID_802_3_CURRENT_ADDRESS()   ],
 ) {
 my ($type, $oid) = @$_;

 my $mac = NDIS_Query($hMAC, $oid);
 print "MAC $type = $mac\n";
    }
}