Access - Averiguar direccion mac

Option Compare Database

Option Explicit

Declare Function GetAdaptersInfo Lib "IPHLPAPI" (pAdapterInfo As Any, pOutBufLen As Long) As Long

Public Function GetMACAddress() As String

    Dim pAdapterInfo As Any

    Dim pOutBufLen As Long

    Dim ret As Long

    Dim MACAddress As String

    ' Obtener el tamaño del búfer necesario

    ret = GetAdaptersInfo(ByVal 0&, pOutBufLen)

    ' Asignar el búfer necesario

    ReDim pAdapterInfo(1 To pOutBufLen) As Byte

    ' Obtener la información de la tarjeta de red

    ret = GetAdaptersInfo(pAdapterInfo(1), pOutBufLen)

    If ret = 0 Then

        Dim i As Long

        Dim b As Byte

        ' Leer la dirección MAC

        For i = 1 To 6

            b = pAdapterInfo(22 + i)

            MACAddress = MACAddress & Right$("0" & Hex$(b), 2) & ":"

        Next i

        ' Eliminar el último ":" de la dirección MAC

        MACAddress = Left$(MACAddress, Len(MACAddress) - 1)

        ' Retornar la dirección MAC

        GetMACAddress = MACAddress

    Else

        ' Error al obtener la dirección MAC

        GetMACAddress = "Error"

    End If

End Function

Sub ObtenerDireccionMAC()

    Dim MAC As String

    MAC = GetMACAddress()

    If MAC <> "Error" Then

        MsgBox "La dirección MAC es: " & MAC

    Else

        MsgBox "Error al obtener la dirección MAC"

    End If

End Sub