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 cartes. Chaque adaptateur a un numéro d`identification unique et permanent connu sous le nom d`une 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.
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 "Set objVMI = GetObject ("winmgmts:" & "." & " Root cimv2")
Set vAdptr = objVMI.ExecQuery ("* SELECT FROM WHERE Win32_NetworkAdapterConfiguration IPEnabled = True")" pour définir vos objets adaptateurs.
Type "Pour chaque objAdptr Dans vAdptr
If Not IsNull (objAdptr.MACAddress) Et IsArray (objAdptr.IPAddress) Ensuite,
Pour adptrCnt = 0 To UBound (objAdptr.IPAddress)
Si Non objAdptr.IPAddress (adptrCnt) = "0.0.0.0" alors
GetNetworkConnectionMACAddress = objAdptr.MACAddress
exit For
Fin si
adptrCnt Suivant
MsgBox "Votre adresse MAC est: " &Amp GetNetworkConnectionMACAddress
Fin si
Prochain" pour boucler à travers 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
- Set objVMI = GetObject ("winmgmts:" & "." & " Root cimv2")
- Set 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 To UBound (objAdptr.IPAddress)
- Si Non objAdptr.IPAddress (adptrCnt) = "0.0.0.0" alors
- GetNetworkConnectionMACAddress = objAdptr.MACAddress
- exit For
- Fin si
- adptrCnt Suivant
- MsgBox "Votre adresse MAC est: " & GetNetworkConnectionMACAddress
- Prochain
- End Function"