为什么VBA代码有的读取以太网对应的MAC,有的读取无线局域网对应的MAC

山海风云轩

有一段VBA代码，用来读取试用者电脑的物理地址MAC，大多数电脑都是读取“以太网对应的那个MAC”，近日发现有的读取的是最后一个“无线局域网对应的MAC”，请问有大佬知道什么原因吗？如何只读取“以太网对应的那个MAC”？更多详情请看附件图片

山海风云轩

有知道的大佬吗？

cutecpu

Sub demo()

Dim objwmiservice As Object
Dim devices As Object

Set objwmiservice = GetObject("winmgmts:\\.\root\cimv2")
Set devices = objwmiservice.ExecQuery _
("SELECT * FROM Win32_NetworkAdapter WHERE MACAddress Is Not NULL AND Manufacturer <> 'Microsoft' and NetConnectionID like '以太网%' ")

For Each device In devices
  MsgBox device.MACAddress
Next

End Sub

參考: Win32_NetworkAdapter 类

山海风云轩

cutecpu 发表于 2022-12-14 14:25
Sub demo()

Dim objwmiservice As Object

您好，大佬，感谢您的解答。我把代码输入后运行，信息框不显示哦，
现在的需求是，需要信息框显示，或者在某个单元格显示

可以再帮忙看看吗？

谢谢！

cutecpu

山海风云轩 发表于 2022-12-15 17:08
您好，大佬，感谢您的解答。我把代码输入后运行，信息框不显示哦，
现在的需求是，需要信息框显示，或者 ...

1. Sub demo()
   
2. 
   
3. Dim objwmiservice As Object
   
4. Dim devices As Object
   
5. 
   
6. Set objwmiservice = GetObject("winmgmts:\\.\root\cimv2")
   
7. Set devices = objwmiservice.ExecQuery _
   
8. ("SELECT * FROM Win32_NetworkAdapter WHERE MACAddress Is Not NULL AND Manufacturer <> 'Microsoft' and NetConnectionID like '以太网%' ")
   
9. 
   
10. For Each device In devices
    
11.    i = i + 1
    
12.    cells(i,1) = device.MACAddress
    
13. Next
    
14. 
    
15. End Sub

复制代码

山海风云轩

cutecpu 发表于 2022-12-15 17:35

您好，还是没反应哦，我用的是WPS

山海风云轩

山海风云轩 发表于 2022-12-16 10:11
您好，还是没反应哦，我用的是WPS

谢谢