Adresses mac des cartes réseaux

Commenter

Contenu du snippet

Salut,

Voila un ptit code pour trouver toutes les adresses MAC d'un ordinateur.

La fonction renvoi un tableau typé string avec un enregistrement pas adresse.

Source / Exemple : 


Imports System
Imports System.Management

    Public Function GetMacAddress() As String()
        Dim Query As ManagementObjectSearcher
        Dim QueryCollection As ManagementObjectCollection
        Dim Oq As ObjectQuery
        Dim Co As ConnectionOptions = New ConnectionOptions()
        Dim Ms As ManagementScope = New ManagementScope("\\\\\\\\\\\\\\\\" + Environment.MachineName + "\\\\\\\\root\\\\\\\\cimv2", Co)
        Oq = New ObjectQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")
        Query = New ManagementObjectSearcher(Ms, Oq)
        QueryCollection = Query.Get
        Dim Mo As ManagementObject
        Dim Tablo() As String
        Dim Compteur As Integer = 0
        For Each Mo In QueryCollection
            If CType(Mo("IPEnabled"), Boolean) = True Then
                ReDim Preserve Tablo(Compteur)
                Tablo(Compteur) = CType(Mo("MacAddress"), String)
                Compteur += 1
            End If
        Next
        Return Tablo
    End Function

Conclusion :


WMI powwwaaaa !

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (lumesh)