[VB.NET] Recuperare MAC Address di tutte le schede presenti

[RBZaga]

Ciao a tutti,
avrei un problema legato al MAC Address, con le mie conoscenze di VB riesco a recuperare il MAC Address del pc ma solo della scheda di rete connessa e non di tutte le schede di rete presenti, potete gentilmente suggerirmi come risolvere il problema?
Spero non ci sia già stata una discussione simile.

Grazie in anticipo.

[LeleFT]

Sposto la discussione nel forum dedicato a VB.
Devi dire quale versione di VB usi.


Ciao.

[SirJo]

Mostraci il codice che utilizzi,
perchè per calcolare il MAC della scheda connessa devi (in teoria) fare la scansione di tutte le schede presenti (reali o virtuali) per cui in teoria dovresti già avere disponibile una lista di schede di rete

[oregon]

Non hai fatto nessuna ricerca su Google? E' pieno di suggerimenti e soluzioni ...

[RBZaga]

Ragazzi grazie per le risposte, di seguito il codice che sto usando. La versione di VB è quella presente in Visual Studio 2019.

Dim manc As ManagementClass
Dim mobj As ManagementObject
manc = New ManagementClass("Win32_NetworkAdapterConfiguration ")
Dim mocl As ManagementObjectCollection = manc.GetInstances()
For Each mobj In mocl
If mobj.Item("IPEnabled") = True Then
MsgBox("MAC: " & mobj.Item("MacAddress").ToString())
End If
Next

Se imposto la condizione a "False" mi mostra molti codici e non solo quelli delle schede di rete.

Su google non sono riuscito a trovare molto.

Grazie in anticipo per l'aiuto

[RBZaga]

Scusate, in rete ho trovato questo codice che mi riposta i vari mac address oltre che altre informazioni sulle schede di rete, il problema è che io ho 2 schede (1 ethernet e 1 wifi) ma mi mostra anche le schede virtuali di microsoft.

Dim nics() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces()
For Each nic In nics
MsgBox(nic.GetPhysicalAddress.ToString)
MsgBox(nic.Name.ToString)
MsgBox(nic.Description.ToString)
Next

Grazie ancora.

[SirJo]

Prova questo 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