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
News
Plan de site
SitemapIndex
Flux RSS