Tecnología

Inicio

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

November 15

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


Es importante saber cómo comprobar la dirección de Media Access Control (MAC) utilizando Visual Basic para Aplicaciones (VBA) cuando se está configurando varios adaptadores. Cada adaptador tiene un número de identificación único permanente conocida como dirección MAC. La dirección MAC se usa 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. 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 el tipo "getmacaddress Función ()" y pulse "Enter" para crear una nueva función.

2 Tipo "Dim objVMI como objeto

Dim vAdptr como variante

Dim objAdptr como objeto

Dim adptrCnt As Long "para crear sus variables.

3 Tipo "Establecer objVMI = GetObject (" winmgmts: \ "&" "&" \ root \ cimv2 ".)

Establecer vAdptr = objVMI.ExecQuery ( "SELECT * FROM Win32_NetworkAdapterConfiguration DONDE IPEnabled = True") "para definir sus objetos de adaptador.

4 Tipo "Para Cada objAdptr En vAdptr

If Not IsNull(objAdptr.MACAddress) And IsArray(objAdptr.IPAddress) Then

Para adptrCnt = 0 Para UBound (objAdptr.IPAddress)

Si no objAdptr.IPAddress (adptrCnt) = "0.0.0.0" Entonces

GetNetworkConnectionMACAddress = objAdptr.MACAddress

Para Salir

Terminara si

Siguiente adptrCnt

MsgBox "Tu dirección MAC es:" & amp; GetNetworkConnectionMACAddress

Terminara si

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. Verá un mensaje con su dirección MAC.

Consejos y advertencias

  • Su función debería tener este aspecto:
  • "Getmacaddress función ()
  • Dim objVMI como objeto
  • Dim vAdptr como variante
  • Dim objAdptr como objeto
  • Dim adptrCnt As Long
  • Establecer objVMI = GetObject ( "winmgmts: \\" & & "\ root \ cimv2" ".")
  • Set vAdptr = objVMI.ExecQuery ( "SELECT * FROM Win32_NetworkAdapterConfiguration DONDE IPEnabled = True")
  • Para cada objAdptr En vAdptr
  • Si no IsNull (objAdptr.MACAddress) Y IsArray (objAdptr.IPAddress) A continuación,
  • Para adptrCnt = 0 Para UBound (objAdptr.IPAddress)
  • Si no objAdptr.IPAddress (adptrCnt) = "0.0.0.0" Entonces
  • GetNetworkConnectionMACAddress = objAdptr.MACAddress
  • Para Salir
  • Terminara si
  • Siguiente adptrCnt
  • MsgBox "Tu dirección MAC es:" & GetNetworkConnectionMACAddress
  • Terminara si
  • Siguiente
  • Función del final "