Prova questo codice:
codice:
Private Function MACs() As List(Of String)
Dim lst As New List(Of String)
For Each nic As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces
If (nic.NetworkInterfaceType = NetworkInterfaceType.Ethernet _
Or nic.NetworkInterfaceType = NetworkInterfaceType.Wireless80211) And _
Not nic.Description.Contains("Virtual") And Not nic.Description.Contains("Pseudo") Then
lst.Add(nic.GetPhysicalAddress.ToString & " " & nic.Description)
End If
Next
Return lst
End Function