Discussion :

[therock]

Bonjour,

J'ai besoin de récupérer la ou les adresses MAC d'un poste. Le code suivant permet de les récupérer:

Code :

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

1
2
3
4
5
6
7
8
ManagementClass oMClass = new ManagementClass("Win32_NetworkAdapterConfiguration");
 
            ManagementObjectCollection colMObj = oMCLass.GetInstances();
 
            foreach (ManagementObject objMO in colMObj)
            {
                Console.WriteLine(objMO["MacAddress"].ToString());
            }

Cependant, avec cette méthode, j'obtiens un total de 6 adresses MAC, alors qu'en exécutant ipconfig/all, je n'en obtiens que deux.

Comment récupérer les adresses qui m'intéressent et que représentent les adresses supplémentaires?

Merci d'avance

[notalp]

Bonjour,
Comme tu n'as pas précisé le framework :

pour le 2.0 vas voir : http://msdn2.microsoft.com/fr-fr/lib...aladdress.aspx

sinon pour le 1 :
j'ai pas trop d'idee mais bon vas vers : Dns.Resolve ... (dans la FAQ il y a un exemple)

[therock]

Merci! That's the solution

[joefou]

Essayes ceci pour réduire un peu le nombre de réponses renvoyées, ça vient d'un projet pour PPC en vb.net :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
        Dim m_Adapters As AdapterCollection
        Dim m_AdapterEnCours As Adapter
        Dim I As Integer
        m_Adapters = Networking.GetAdapters()
 
        For Each m_AdapterEnCours In m_Adapters
            TextBox1.Text += m_AdapterEnCours.Name & vbCrLf
            'TextBox1.Text += m_AdapterEnCours.CurrentIpAddress & vbCrLf
            For I = 0 To m_AdapterEnCours.MacAddress.Length - 1
                If m_AdapterEnCours.MacAddress(I) = 0 Then
                    TextBox1.Text += "00"
                Else
                    TextBox1.Text += Hex(m_AdapterEnCours.MacAddress(I))
                End If
 
                If I < m_AdapterEnCours.MacAddress.Length - 1 Then
                    TextBox1.Text += ":"
                End If
            Next I
            TextBox1.Text += vbCrLf
        Next m_AdapterEnCours