共用方式為

如何顯示連線狀態

擷取連線狀態是您可能想要使用 WMI 執行的常見工作。

顯示連線的狀態

  1. 使用 GetObject 並在參數中指定一個識別標記來連接到命名空間。

  2. 使用 ExecQuery 列舉MsSnaStatus_Connections。

  3. 視需要顯示錯誤碼。

    下列範例示範如何顯示主機整合伺服器 （HIS） 中所定義之所有連線的狀態：

Private Function DisplayConnectionStatus ()  
'Variables  
   Dim objWMIService, colItems, iCounter, objItem, _  
       strReport  
'Connect to the namespace  
   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\microsofthis")  
'Enumerate the Class  
   Set colItems = objWMIService.ExecQuery("Select * from MSSnaStatus_Connection")  
   iCounter = colItems.Count  
   if Err.Number = 0 then  
      For Each objItem in colItems  
         strReport = "Connection " & objItem.Name & " status is " & objItem.StatusText     
         Wscript.Echo strReport  
         strReport = ""        
      Next  
   else  
      Wscript.Echo "An error occurred enumerating instances for status " & Err.Number & " " & Err.Description  
   End If  
   DisplayConnectionStatus = true  
End Function