Aprire Microsoft Excel 2007 e di tipo "Function GetMACAddress ( ) " e premere " Invio " per creare una nuova funzione .
2
Tipo " Dim objVMI As Object
Dim vAdptr As Variant
Dim objAdptr As Object Dim
adptrCnt As Long "per creare le vostre variabili .
3
Tipo "Set objVMI = GetObject ( " winmgmts : . \\ \\ "& " " &" \\ root \\ CIMV2 " ) per
vAdptr = objVMI.ExecQuery ( " SELECT * FROM WHERE Win32_NetworkAdapterConfiguration IPEnabled = True " ) " a definire gli oggetti di adattatori.
4 Tipo
" For Each objAdptr In vAdptr
If Not IsNull ( objAdptr.MACAddress ) E IsArray ( objAdptr.IPAddress ) Poi
Per adptrCnt = 0 To UBound ( objAdptr.IPAddress ) per
Se Non objAdptr.IPAddress ( adptrCnt ) = " 0.0.0.0 " Allora
GetNetworkConnectionMACAddress = objAdptr.MACAddress
Exit per
End If
Avanti adptrCnt
MsgBox "Il tuo indirizzo MAC è: " & GetNetworkConnectionMACAddress
End If
Avanti "per ciclo attraverso 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 vostro indirizzo MAC .
Programmazione © www.354353.com