Forum d'assistance informatique - LM2I

Code : Tout sélectionner

   Public MacAdr As String


    Public Function GetMACAddress() As String
        Dim mc As New System.Management.ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As Management.ManagementObjectCollection = mc.GetInstances()
        Dim mo As Management.ManagementObject
        Dim MACAddress As String = String.Empty

        For Each mo In moc
            If CBool(mo("IPEnabled")) Then
                MACAddress = mo("MacAddress").ToString
                mo.Dispose()
                Exit For
            End If
            mo.Dispose()
        Next
        MacAdr = MACAddress
        Return MACAddress
    End Function