Comment utiliser un VBA pour trouver une adresse de mac

Il est utile de savoir comment vérifier l'adresse Media Access Control (MAC) en utilisant Visual Basic pour Applications (VBA) lorsque vous configurez plusieurs adaptateurs. Chaque adaptateur possède un numéro d'identification unique et permanent appelé adresse MAC. L'adresse MAC est utilisé pour identifier l'adaptateur dans un réseau informatique. Le nombre est de 12 caractères, avec des chiffres et des lettres, séparés par des tirets ou des colons. Vous pouvez facilement vérifier l'adresse MAC en créant une fonction simple à l'aide de VBA.

Sommaire

Instructions
Conseils & avertissements

Instructions

Ouvrez Microsoft Excel 2007 et le type "Fonction GetMACAddress ()" et appuyez sur "Entrer" pour créer une nouvelle fonction.
Type "Dim objVMI As Object
Dim vAdptr As Variant
Dim objAdptr As Object
Dim adptrCnt As Long" pour créer vos variables.
Type "Réglez objVMI = GetObject ("winmgmts:" & "." & " Root cimv2")
Réglez vAdptr = objVMI.ExecQuery ("* SELECT FROM WHERE Win32_NetworkAdapterConfiguration IPEnabled = True")" de définir vos objets adaptateurs.

Type "Pour chaque objAdptr Dans vAdptr

 If Not IsNull (objAdptr.MACAddress) Et IsArray (objAdptr.IPAddress) Ensuite,Pour adptrCnt = 0 Pour UBound (objAdptr.IPAddress)
Si Non objAdptr.IPAddress (adptrCnt) = "0.0.0.0" Puis
GetNetworkConnectionMACAddress = objAdptr.MACAddress
Exit For
End If
AdptrCnt Suivant
MsgBox "Votre adresse MAC est: " &Amp GetNetworkConnectionMACAddress
End If

Suivant" faire une boucle par les cartes réseau dans votre système et obtenir votre adresse MAC.

Type "End Function" si nécessaire et exécuter votre fonction. Vous verrez un message avec votre adresse MAC.

Conseils & Avertissements

Votre fonction devrait ressembler à ceci:
"Fonction GetMACAddress ()
Dim objVMI As Object
Dim vAdptr As Variant
Dim objAdptr As Object
Dim adptrCnt As Long
Réglez objVMI = GetObject ("winmgmts: " & "." & " Root cimv2")
Réglez vAdptr = objVMI.ExecQuery ("* SELECT FROM WHERE Win32_NetworkAdapterConfiguration IPEnabled = True")
Pour chaque objAdptr Dans vAdptr
If Not IsNull (objAdptr.MACAddress) Et IsArray (objAdptr.IPAddress) Ensuite,
Pour adptrCnt = 0 Pour UBound (objAdptr.IPAddress)
Si Non objAdptr.IPAddress (adptrCnt) = "0.0.0.0" Puis
GetNetworkConnectionMACAddress = objAdptr.MACAddress
Exit For
End If
AdptrCnt Suivant
MsgBox "Votre adresse MAC est: " & GetNetworkConnectionMACAddress
Suivant
End Function"

Les sujets:

Réponses populaires

Questions connexes