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 !
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.