Discussion :

[Invité]

Bonsoir,

J'aimerais récupérer les adresses MAC présente sur mon PC, pouvez vous m'aidez svp?

Voici ce que j'ai fait mais qui ne marche pas.. ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Public Function monMac() As String
        Dim i As NetworkInformation.PhysicalAddress
        Dim j As String
 
        j = i.GetAddressBytes(0).ToString
 
        Return (j)
    End Function

Merci

[tomlev]

Ben tu n'as jamais initialisé i, donc ça vaut toujours Nothing...

Pour afficher toutes les adresses MAC, tu peux faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each i In NetworkInterface.GetAllNetworkInterfaces()
    Dim macAddress As String = i.GetPhysicalAddress().ToString()
    Console.WriteLine(macAddress)
Next

[Invité]

ah oui mince, NetworkInterface tu le déclare comment?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim NetworkInterface As System.Net.NetworkInformation

peut être un bout de juste la dedans xD

[tomlev]

ah oui mince, NetworkInterface tu le déclare comment?

Tu ne peux pas créer toi-même une instance de NetworkInterface (d'ailleurs ça n'aurais pas de sens, puisque tu veux chercher une interface réseau et non la créer)

Comme je te l'ai dit, il faut boucler sur le résultat de GetAllNetworkInterfaces

[Invité]

d'accord mais le problème est que :

'NetworkInterface' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.

[tomlev]

Ah ok ! Il faut importer le namespace System.Net.NetworkInformation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports System.Net.NetworkInformation

[Invité]

ah oui mince, merci beaucoup