hvordan man bruger en VBA til at finde en mac adresse

Indlæg af Dan Dejligbjerg     opdateret: 2011-12-22

Det er værdifuldt at vide, hvordan man kan kontrollere Media Access Control ( MAC ) adresse ved hjælp af Visual Basic for Applications ( VBA ) , når du indstiller flere adaptere . Hver adapter har en permanent unikt identifikationsnummer kendt som en MAC- adresse . MAC- adressen bruges til at identificere adapteren i et computernetværk . Antallet er 12 tegn , med både tal og bogstaver adskilt af bindestreger eller koloner . Du kan nemt tjekke MAC -adressen ved at oprette en simpel funktion ved hjælp af VBA
1 .
Åbn Microsoft Excel 2007 og skriv " Function GetMACAddress () " , og tryk på " Enter "for at oprette en ny funktion .
2 .

Type " Dim objVMI som objekt
Dim vAdptr Som Variant
Dim objAdptr som objekt
Dim adptrCnt As Long " til at skabe dine variabler
3
Type " Set objVMI=GetObject . ( " winmgmts : \ \ " " " " \ root \ cimv2 " . )

Set vAdptr=objVMI. ExecQuery ( " SELECT * FROM WMI: Win32_NetworkAdapterConfiguration WHERE IPEnabled=True " ) " til at definere din adapter objekter .
4 .
Skriv " For Each objAdptr I vAdptr
Hvis ikke IsNull ( objAdptr. MACAddress ) Og IsArray ( objAdptr. IPAddress ) Så

For adptrCnt=0 Til UBound ( objAdptr. IPAddress )
Hvis ikke objAdptr. IPAddress ( adptrCnt )=" 0. 0. 0. 0 " Så
GetNetworkConnectionMACAddress=objAdptr. MACAddress
Afslut For
End If
Næste adptrCnt
MsgBox " din MAC-adresse er : " GetNetworkConnectionMACAddress

End If
Næste " for at sløjfe gennem netværkskort i dit system og få din MAC -adresse .
5 .
Skriv " End Function " hvis det er nødvendigt og køre din funktion . Du vil se en besked med din MAC -adresse

gode råd og advarsler


  • Din funktion skal se sådan ud :
  • " Funktion GetMACAddress ( )
  • Dim objVMI som objekt
  • Dim vAdptr Som Variant
  • Dim objAdptr som objekt
  • Dim adptrCnt As Long
  • Set objVMI=GetObject ( " winmgmts : \ \ " . " " \ root \ cimv2 " )
  • Set vAdptr=objVMI. ExecQuery ( " SELECT * FROM WMI: Win32_NetworkAdapterConfiguration WHERE IPEnabled=True " )
  • For Each objAdptr I vAdptr
  • Hvis ikke IsNull ( objAdptr. MACAddress ) Og IsArray ( objAdptr. IPAddress ) Så
  • For adptrCnt=0 Til UBound ( objAdptr. IPAddress )
  • Hvis ikke objAdptr. IPAddress ( adptrCnt )=" 0. 0. 0. 0 " Så
  • GetNetworkConnectionMACAddress=objAdptr. MACAddress
  • Afslut For
  • End If
  • Næste adptrCnt
  • MsgBox " Dit MAC Adressen er: " GetNetworkConnectionMACAddress
  • End If
  • Næste
  • End Function "


  • Previous:hvordan man bruger tekstbokse i Visual Basic Next:hvordan man åbner en postsættet



     

    Kommentarer

    Code:
    change