用WMI: Private Sub Command2_Click() Dim objWMIService, colNetAdapters, objNetAdapter, strComputer As String strComputer = "." Dim s As String Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each objNetAdapter In colNetAdapters s = s + objNetAdapter.MACAddress + vbCrLf Next MsgBox s End Sub
Private Sub Command2_Click()
Dim objWMIService, colNetAdapters, objNetAdapter, strComputer As String
strComputer = "."
Dim s As String
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter In colNetAdapters
s = s + objNetAdapter.MACAddress + vbCrLf
Next
MsgBox s
End Sub