Forum d'assistance informatique - LM2I

Voici un lien d'installation pour le pilote ODBC d'acces a une base MySQL:

Lien

Celui-ci vous permet de vous connecter à une base MySQL sur un serveur distant...

La p'tite fonction 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