16,552
社区成员
发帖
与我相关
我的任务
分享
Sub Main()
Dim mcMAC As New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim mocMAC As ManagementObjectCollection = mcMAC.GetInstances()
For Each m As ManagementObject In mocMAC
'循环实例化管理对象
If CBool(m("IPEnabled")) Then
'管理对象(NIC)的当前mac地址
Console.WriteLine(m("MacAddress").ToString().Replace(":", "-"))
Exit For
End If
Next
Console.ReadKey()
End Sub