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

Avatar de l’utilisateur
LM2I_Laurent
Administrateur - Site Admin
Messages : 260
Inscription : jeu. 27 août 2009 17:00

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

Message par LM2I_Laurent » lun. 12 janv. 2009 00:29

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