使用VBA获取电脑MAC地址

实例需求：如何使用VBA读取电脑的MAC地址，包含有线网卡和无线网卡。

这个需求看似有些无厘头，为嘛要用VBA来读取MAC地址，存在的就是合理的。例如使用MAC地址和其他硬件信息可以生成电脑的唯一识别号，用于软件注册和实现软件狗功能。当然可能还也更多的应用场景。

VBA对象模型只是涵盖Office对象，如果需要读取硬件信息，就要借助WMI（Windows Management Instrumentation），其简单介绍请参考 微软官方文档

示例代码如下。

Sub MAC_Address()
    Dim objSht As Worksheet
    Dim iRow As Integer
    Dim strSQL As String    
    Set objSht = ActiveSheet
    Set objWMI = GetObject("winmgmts:root\CIMV2")
    strSQL = "Select * from Win32_NetworkAdapterConfiguration"
    Set oAdapConfs = objWMI.ExecQuery(strSQL)
    objSht.Range("A1:B1").Value = [{"名称", "MAC地址"}]
    iRow = 2
    For Each objAdapConf In oAdapConfs
        With objAdapConf
            objSht.Cells(iRow, 1) = .Description
            objSht.Cells(iRow, 2) = .MACAddress
        End With
        iRow = iRow + 1
    Next
    Set objWMI = Nothing
    Set objSht = Nothing
End Sub

【代码解析】
第5行代码获取活动工作表对象，用于保存结果。
第6行代码创建WMI对象。
第7行代码为用于读取读取网卡配置信息的sql语句。
第8行代码调用ExecQuery执行sql。
第9行代码设置标题行。
第10行代码设置数据起始行为2。
第11~17行代码循环遍历网卡配置信息。
第13~14行代码读取Description和MACAddress信息分别写入A列和B列。
第18~19行代码释放对象变量占用的系统资源。

运行代码结果如下所示。