Partager via

Comment récupérer un nom d’adaptateur

  • Article

L’une des tâches que vous devez effectuer lors de la configuration d’une connexion IPDLC consiste à récupérer le nom de l’adaptateur avec lequel vous vous connectez.

Pour récupérer un nom d’adaptateur

  1. Connectez-vous à l’espace de noms sur l’ordinateur local à l’aide de GetObject.

  2. Récupérez le nom de l’adaptateur à l’aide de ExecMethod avec GetAllNetworkAdapters comme méthode à exécuter.

    L’exemple suivant montre comment récupérer le nom de la première carte sur un système :

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