É importante saber como verificar o endereço de Media Access Control (MAC) usando o Visual Basic for Applications (VBA) quando você estiver configurando várias placas. Cada adaptador tem um número único de identificação permanente conhecido como endereço MAC. O endereço MAC é usada para identificar o adaptador numa rede de computadores. O número é 12 caracteres, com números e letras separados por traços ou dois pontos. Você pode facilmente verificar o endereço MAC através da criação de uma função simples usando VBA.
Abra o Microsoft Excel 2007 e tipo "GetMACAddress function ()" e pressione "Entrar" para criar uma nova função.
Digitar "Dim objVMI As Object
Dim vAdptr As Variant
Dim objAdptr As Object
Dim adptrCnt As Long" para criar suas variáveis.
Digitar "Definir objVMI = GetObject ("winmgmts:" & "." & " Root cimv2")
Definir vAdptr = objVMI.ExecQuery ("* SELECT FROM Win32_NetworkAdapterConfiguration ONDE IPEnabled = True")" para definir seus objetos adaptadores.
Digitar "Para Cada objAdptr Em vAdptr
If Not IsNull (objAdptr.MACAddress) E IsArray (objAdptr.IPAddress) Em seguida,
Para adptrCnt = 0 To UBound (objAdptr.IPAddress)
Se não objAdptr.IPAddress (adptrCnt) = "0.0.0.0" Então
GetNetworkConnectionMACAddress = objAdptr.MACAddress
Exit For
Fim se
Próximo adptrCnt
MsgBox "O seu Endereço MAC é: " &Amp- GetNetworkConnectionMACAddress
Fim se
Próximo" para percorrer os adaptadores de rede em seu sistema e obter o seu endereço MAC.
Digitar "End Function" se necessário e executar a função. Você verá uma mensagem com seu endereço MAC.
dicas & avisos
- Sua função deve ficar assim:
- "GetMACAddress function ()
- Dim objVMI As Object
- Dim vAdptr As Variant
- Dim objAdptr As Object
- Dim adptrCnt As Long
- Definir objVMI = GetObject ("winmgmts:" & "." & " Root cimv2")
- Definir vAdptr = objVMI.ExecQuery ("* SELECT FROM Win32_NetworkAdapterConfiguration ONDE IPEnabled = True")
- Para Cada objAdptr Em vAdptr
- If Not IsNull (objAdptr.MACAddress) E IsArray (objAdptr.IPAddress) Em seguida,
- Para adptrCnt = 0 To UBound (objAdptr.IPAddress)
- Se não objAdptr.IPAddress (adptrCnt) = "0.0.0.0" Então
- GetNetworkConnectionMACAddress = objAdptr.MACAddress
- Exit For
- Fim se
- Próximo adptrCnt
- MsgBox "O seu Endereço MAC é: " & GetNetworkConnectionMACAddress
- Próximo
- End Function"