16,554
社区成员
发帖
与我相关
我的任务
分享
Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
For Each WmiObj As Management.ManagementObject In Wmi.Get
If CBool(WmiObj("IPEnabled")) Then
Dim s As String = WmiObj("MACAddress")
MessageBox.Show(s)
End If
Next