如何擷取配接器名稱

  • 發行項

設定 IPDLC 連線時必須執行的工作之一，就是擷取您要連接之介面卡的名稱。

擷取配接器名稱

  1. 使用 GetObject連線到本機電腦上的命名空間。

  2. 使用 ExecMethod 搭配 GetAllNetworkAdapters 擷取配接器的名稱，做為要執行的方法。

    下列範例示範如何擷取系統上第一張介面卡的名稱：

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