- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 获取MAC错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18404)
-- 发布时间：2012/4/12 8:50:00
-- 获取MAC错误
请教各位老师：这段代码执行报错。不能获取本机的MAC地址。请问是哪出错了？谢谢!
代码：Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
Dim mo As New System.Management.ManagementObject
For Each mo In queryCollection
If IsDBNull(mo.Item("macaddress")) = False Then
If mo.Item("macaddress") <> "" Then
output.show(mo.Item("macaddress"))
End If
End If
Next
错误提示图如附件
-- 发布时间：2012/4/12 8:57:00
--
添加引用： system.management.dll
-- 发布时间：2012/4/12 9:48:00
--
谢谢！已经能获取了。但输出来是八个MAC地址。而且好几个是重复的。我电脑上只有一个网卡。咋会出来这么多MAC地址呢？有没有办法判断哪一个是我电脑真正的MAC地址呢？谢谢！
-- 发布时间：2012/4/12 10:53:00
--
除了macaddress，应该还有其他item的，可以通过这些item的返回值，对网卡进行进一步的判断。
[此贴子已经被作者于2012-4-12 10:55:57编辑过]
-- 发布时间：2012/4/12 11:58:00
--
请教老师：如何判断由上面的代码输出的ITEM返回值呢？谢谢！
-- 发布时间：2014/11/3 14:47:00
--
If mo.Item("macaddress") <> "" AndAlso mo.Item("IPEnabled") Then
output.show(mo.Item("macaddress"))
End If
-- 发布时间：2016/9/13 8:58:00
--
各位大虾：请问如何添加引用呀，语法是什么？
刚打了客服电话，已解决了：谢谢
[此贴子已经被作者于2016/9/13 9:03:54编辑过]
-- 发布时间：2021/11/9 10:24:00
--
如何同时获取到mac对应的ip呢
-- 发布时间：2021/11/9 10:44:00
--
output.show(mo.Item("IPXAddress"))
https://docs.microsoft.com/zh-cn/windows/win32/cimwin32prov/win32-networkadapterconfiguration