Cómo mostrar el estado de conexión

Recuperar el estado de una conexión es una tarea común que es posible que desee realizar con WMI.

Para mostrar el estado de una conexión

1. Conéctese al espacio de nombres mediante GetObject con un moniker en el parámetro .

2. Enumerar MsSnaStatus_Connections mediante ExecQuery.

3. Muestra los códigos de error si es necesario.

   En el ejemplo siguiente se muestra cómo mostrar el estado de todas las conexiones definidas en Host Integration Server (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