Adresses mac des cartes réseaux

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 032 fois - Téléchargée 29 fois

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

Ajouter un commentaire

Commentaires

ABL-Online
Messages postés
65
Date d'inscription
dimanche 16 septembre 2001
Statut
Membre
Dernière intervention
21 septembre 2006
-
Oups la que je recherchais ce code pour te le dire ici , mais tu as été plus vite que moi. ;)

Merci quand même
TigerFab
Messages postés
115
Date d'inscription
samedi 15 février 2003
Statut
Membre
Dernière intervention
18 mai 2008
-
En fait Labout m'a donné le truc .. tout bête : ajoute à ce projet dans les références (dans l'explorateur de solutions) la référence .Net sur system.management et le tour est joué.
ABL-Online
Messages postés
65
Date d'inscription
dimanche 16 septembre 2001
Statut
Membre
Dernière intervention
21 septembre 2006
-
Marche pas :( même prob que TigerFab
TigerFab
Messages postés
115
Date d'inscription
samedi 15 février 2003
Statut
Membre
Dernière intervention
18 mai 2008
-
C'est étrange, moi je mets Imports System.management et il me dit : espace de noms introuvable.
Management est repris dans System et même l'aide fournit un exemple ! J'ai VS 2003 ... où est le blème ?
cs_labout
Messages postés
1356
Date d'inscription
samedi 8 décembre 2001
Statut
Membre
Dernière intervention
23 octobre 2006
5 -
Il me semblait bien qu'il y avait beaucoup de Merci de ta réponse rapide.
Cest OK

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.