CLASSE .NET LISTANT LES ADRESSES MAC D'UNE MACHINE - COMPATIBLE XP/2000/NT

' -------------------------------------------------
' Exemple d'utilisation dans un projet :
' -------------------------------------------------

        Dim p As Integer
        Dim mac As New MacAdresses
        For p = 0 To mac.Count
            MsgBox(mac.Item(p))
        Next

' ------------------------------------------------------------
' Exemple d'utilisation sur une machine distante :
' ------------------------------------------------------------

        Dim p As Integer
        Dim mac As New MacAdresses("NomMachine", "UserName", "Password")
        For p = 0 To mac.Count
            MsgBox(mac.Item(p))
        Next

' Voici donc cette classe

    Private Class MacAdresses
        Dim i As Integer
        Dim Adresses() As String

        Public Sub New(Optional ByVal MachineName As String = "localhost", Optional ByVal UserName As String = "", Optional ByVal Password As String = "")
            Dim co As New System.Management.ConnectionOptions
            Dim oq As System.Management.ObjectQuery
            Dim query As System.Management.ManagementObjectSearcher
            Dim ms As System.Management.ManagementScope
            Dim queryCollection As System.Management.ManagementObjectCollection
            Dim MonMO As System.Management.ManagementObject
            Dim j As Integer
            Dim doublons As Boolean

            If UserName <> "" And Password <> "" Then
                co.Username = UserName
                co.Password = Password
            End If

            Try
                ms = New System.Management.ManagementScope("\\" + MachineName + "\root\cimv2", co)
                oq = New System.Management.ObjectQuery("SELECT MACAddress FROM Win32_NetworkAdapter")
                query = New System.Management.ManagementObjectSearcher(ms, oq)
                queryCollection = query.Get()
                i = 0
                For Each MonMO In queryCollection
                    If Not MonMO("MACAddress") Is Nothing Then
                        doublons = False
                        For j = 0 To i - 1
                            If Adresses(j) = MonMO("MACAddress") Then
                                doublons = True
                                Exit For
                            End If
                        Next
                        If Not doublons Then
                            ReDim Adresses(i)
                            Adresses(i) = MonMO("MACAddress")
                            i = i + 1
                        End If
                    End If
                Next
            Catch ex As Exception
            End Try
        End Sub

        ReadOnly Property Count() As Integer
            Get
                Return i
            End Get
        End Property

        Public Function Item(ByVal index As Integer) As String
            If index > -1 And index < i Then
                Return Adresses(index)
            End If
        End Function
    End Class