Come recuperare un nome di adapter

  • Articolo

Una delle attività da eseguire durante la configurazione di una connessione IPDLC consiste nel recuperare il nome della scheda con cui ci si connette.

Per recuperare il nome di un adattatore

  1. Connettersi allo spazio dei nomi nel computer locale usando GetObject.

  2. Recuperare il nome dell'adapter usando ExecMethod con GetAllNetworkAdapters come metodo da eseguire.

    Nell'esempio seguente viene illustrato come recuperare il nome della prima scheda in un sistema:

Private Sub GetAdapterName()  
   Dim objService, outParam, objSD, MyArray, nArray  
   set objService = GetObject("winmgmts:root/microsofthis")  
   set outParam = objService.Execmethod("MsSna_LinkService_IPDLC",   
"GetAllNetworkAdapters")  
   objSD = Join(outParam.Adapters, ",")  
   MyArray = Split(objSD, ",")  
   nArray = Ubound(MyArray)  
   if nArray < 0 then  
      strLocalAddress = ""  
   else  
      strLocalAddress = MyArray(0)  'default to first one  
   end if  
End Sub