Dim mc,moSet mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")For Each mo In mcIf mo.IPEnabled=True ThenMsgBox "本机网卡MAC地址是: " & mo.MacAddressExit ForEnd IfNext