16,722
社区成员




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