[vb.NET] - Récupération de l'adresse MAC du visiteur

Répondre
Avatar du membre
LM2I_Laurent
Administrateur - Site Admin
Messages : 280
Enregistré le : jeu. 27 août 2009 17:00

[vb.NET] - Récupération de l'adresse MAC du visiteur

Message par LM2I_Laurent »

La p'tite fonction ci-dessous vous permet de récupérer l'adresse Mac de votre visiteur:

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


@+
Laurent
Image
Webmaster
http://www.lm2i.fr
http://www.lm2i.eu

Image Image Image Image
.
Répondre