Averiguar direccion mac
Publicado por Guberal (1 intervención) el 16/09/2004 22:38:08
¿Como puedo averiguar la direccion MAC de la tarjeta del ordenador en el que está corriendo la aplicación mediante codigo en acces?.
Valora esta pregunta
0
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