• 
  

  hur man använder en VBA för att hitta en MAC-adress

  
  

Det är värdefullt att veta hur man kontrollerar Media Access Control ( MAC) med Visual Basic for Applications ( VBA) när du ställer in flera kort . Varje adapter har en permanent unikt identifikationsnummer känd som en MAC- adress . MAC- adressen används för att identifiera adaptern i ett datornätverk. Antalet är 12 tecken , med både siffror och bokstäver , åtskilda av streck eller kolon . Du kan enkelt kontrollera MAC- adressen genom att skapa en enkel funktion med VBA
1 .
Öppna Microsoft Excel 2007 och skriv " Funktion GetMACAddress () " och tryck på " Enter "för att skapa en ny funktion .
2 .

Typ " Dim objVMI As Object

Dim vAdptr As Variant

Dim objAdptr As Object

Dim adptrCnt As Long " för att skapa dina variabler
3
Typ " Set objVMI=GetObject . ( " winmgmts : \ \ " " " " \ root \ cimv2 " . )

Ange vAdptr=objVMI. ExecQuery ( " SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=true " ) "för att definiera ditt kort objekt .
4 .
Typ "för varje objAdptr I vAdptr

Om inte isNull ( objAdptr. MACAddress ) Och IsArray ( objAdptr. IPAddress ) Sen

För adptrCnt=0 till UBound ( objAdptr. IPAddress )

Om inte objAdptr. IPAddress ( adptrCnt )=" 0. 0. 0. 0 " Då

GetNetworkConnectionMACAddress=objAdptr. MACAddress

Exit för

End If

Nästa adptrCnt

MsgBox " din MAC-adress är : " GetNetworkConnectionMACAddress

End If

Nästa " för att slinga genom nätverkskort i ditt system och få din MAC-adress .
5 .
Skriv " End Function " om det behövs och köra din funktion . Du kommer att se ett meddelande med din MAC -adress


tips och varningar




Din funktion ska se ut så här :

" Funktion GetMACAddress ( )

Dim objVMI As Object

Dim vAdptr As Variant

Dim objAdptr As Object

Dim adptrCnt As Long

Ställ objVMI=GetObject ( " winmgmts : \ \ " . " " \ root \ cimv2 " )

Set vAdptr=objVMI. ExecQuery ( " SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=Sant " )

For Each objAdptr I vAdptr

Om Inte isNull ( objAdptr. MACAddress ) Och IsArray ( objAdptr. IPAddress ) Sedan

adptrCnt=0 till UBound ( objAdptr. IPAddress )

Om Inte objAdptr. IPAddress ( adptrCnt )=" 0. 0. 0. 0 " Då

GetNetworkConnectionMACAddress=objAdptr. MACAddress

Exit för

End If

Nästa adptrCnt

MsgBox " Din MAC Adressen är : " GetNetworkConnectionMACAddress

End If

Nästa

End Function "

Previous：nothing Next：Definitionen av flerradiga Visual Basic 6.0

Relaterade artiklar