Abfrage eines Adapternamens

Eine der Aufgaben, die Sie beim Einrichten einer IPDLC-Verbindung ausführen müssen, besteht darin, den Namen des Adapters abzurufen, mit dem Sie eine Verbindung herstellen.

Um einen Adapternamen abzurufen

1. Stellen Sie mithilfe von GetObject eine Verbindung mit dem Namespace auf dem lokalen Computer her.

2. Rufen Sie den Namen des Adapters mithilfe von ExecMethod mit GetAllNetworkAdapters als auszuführende Methode ab.

   Das folgende Beispiel zeigt, wie der Name des ersten Adapters auf einem System abgerufen wird:

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