1
Abra Microsoft Excel 2007 y escriba " Función getmacaddress ()" y presionar "Enter " para crear una nueva función.
2
Type " objVMI Dim As Object
vAdptr Dim As Variant
objAdptr Dim As Object
adptrCnt Dim As Long "para crear las variables.
3
Tipo "Set objVMI = GetObject ( " winmgmts : . \\ \\ " &" " &" \\ root \\ cimv2 " )
Set vAdptr = objVMI.ExecQuery ( " SELECT * FROM Win32_NetworkAdapterConfiguration DONDE IPEnabled = True ")" para definir sus objetos de adaptador .
4
tipo " For Each objAdptr En vAdptr
Si no IsNull ( objAdptr.MACAddress ) Y IsArray ( objAdptr.IPAddress ) Entonces
Para adptrCnt = 0 To UBound ( objAdptr.IPAddress )
Si No objAdptr.IPAddress ( adptrCnt ) = " 0.0.0.0" Entonces
GetNetworkConnectionMACAddress = objAdptr.MACAddress
Exit a la Venta
End If
Siguiente adptrCnt
MsgBox " Su dirección MAC es :" & GetNetworkConnectionMACAddress
End If
Siguiente "para bucle a través de los adaptadores de red en su sistema y obtener su dirección MAC.
5 Tipo
" End Function " si es necesario y ejecutar su función. Aparecerá un mensaje con su dirección MAC.