Cómo utilizar un VBA para encontrar una dirección MAC

Es útil saber cómo comprobar el control de dirección de acceso a medios ( MAC ) con Visual Basic para Aplicaciones ( VBA) cuando se está configurando varios adaptadores . Cada adaptador tiene un número único de identificación permanente conocida como dirección MAC. La dirección MAC se utiliza para identificar el adaptador en una red informática . El número es de 12 caracteres con números y letras , separados por guiones o dos puntos . Usted puede comprobar fácilmente la dirección MAC mediante la creación de una función simple usando VBA. Instrucciones
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.