实例需求：如何使用VBA读取电脑的MAC地址，包含有线网卡和无线网卡。
这个需求看似有些无厘头，为嘛要用VBA来读取MAC地址，存在的就是合理的。例如使用MAC地址和其他硬件信息可以生成电脑的唯一识别号，用于软件注册和实现软件狗功能。当然可能还也更多的应用场景。
VBA对象模型只是涵盖Office对象，如果需要读取硬件信息，就要借助WMI（Windows Management Instrumentation），其简单介绍请参考 微软官方文档
示例代码如下。
Sub MAC_Address()Dim objSht As WorksheetDim iRow As IntegerDim strSQL As String Set objSht = ActiveSheetSet objWMI = GetObject("winmgmts:root\CIMV2")strSQL = "Select * from Win32_NetworkAdapterConfiguration"Set oAdapConfs = objWMI.ExecQuery(strSQL)objSht.Range("A1:B1").Value = [{"名称", "MAC地址"}]iRow = 2For Each objAdapConf In oAdapConfsWith objAdapConfobjSht.Cells(iRow, 1) = .DescriptionobjSht.Cells(iRow, 2) = .MACAddressEnd WithiRow = iRow + 1NextSet objWMI = NothingSet 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行代码释放对象变量占用的系统资源。
运行代码结果如下所示。
