Come utilizzare un VBA per trovare un indirizzo MAC

February 6

Come utilizzare un VBA per trovare un indirizzo MAC


E 'prezioso per sapere come controllare l'indirizzo Media Access Control (MAC) utilizzando Visual Basic, Applications Edition (VBA) quando si sta configurando più schede. Ogni adattatore ha un numero di identificazione univoco permanente conosciuto come un indirizzo MAC. L'indirizzo MAC viene utilizzato per identificare la scheda in una rete di computer. Il numero è di 12 caratteri, con numeri e lettere, separati da trattini o due punti. È possibile controllare facilmente l'indirizzo MAC attraverso la creazione di una semplice funzione utilizzando VBA.

istruzione

1 Aprire Microsoft Excel 2007 e del tipo "GetMACAddress function ()" e premere "Invio" per creare una nuova funzione.

2 Tipo "Dim objVMI come oggetto

Dim vAdptr As Variant

Dim objAdptr As Object

Dim adptrCnt As Long "per creare le variabili.

3 Digitare "Set objVMI = GetObject (" winmgmts: \ "&" "&" \ root \ CIMV2 ".)

Set vAdptr = objVMI.ExecQuery ( "SELECT * FROM WHERE Win32_NetworkAdapterConfiguration IPEnabled = True") "per definire gli oggetti di adattamento.

4 Tipo "Per ogni objAdptr In vAdptr

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

Per adptrCnt = 0 Per UBound (objAdptr.IPAddress)

Se non objAdptr.IPAddress (adptrCnt) = "0.0.0.0" Allora

GetNetworkConnectionMACAddress = objAdptr.MACAddress

Exit For

Finisci se

Successivo adptrCnt

MsgBox "Il tuo indirizzo MAC è:" & amp; GetNetworkConnectionMACAddress

Finisci se

Next "per scorrere le schede di rete nel sistema e ottenere il vostro indirizzo MAC.

5 Tipo "End Function" se necessario ed eseguire la funzione. Verrà visualizzato un messaggio con il proprio indirizzo MAC.

Consigli e avvertenze

  • La funzione dovrebbe essere simile a questo:
  • "GetMACAddress function ()
  • Dim objVMI As Object
  • Dim vAdptr As Variant
  • Dim objAdptr As Object
  • Dim adptrCnt As Long
  • Set objVMI = GetObject ( "winmgmts: \\" & & "\ root \ CIMV2" ".")
  • Set vAdptr = objVMI.ExecQuery ( "SELECT * FROM WHERE Win32_NetworkAdapterConfiguration IPEnabled = True")
  • Per ogni objAdptr In vAdptr
  • Se non IsNull (objAdptr.MACAddress) E IsArray (objAdptr.IPAddress) Poi
  • Per adptrCnt = 0 Per UBound (objAdptr.IPAddress)
  • Se non objAdptr.IPAddress (adptrCnt) = "0.0.0.0" Allora
  • GetNetworkConnectionMACAddress = objAdptr.MACAddress
  • Exit For
  • Finisci se
  • Successivo adptrCnt
  • MsgBox "Il tuo indirizzo MAC è:" & GetNetworkConnectionMACAddress
  • Finisci se
  • Il prossimo
  • End Function "