Comment afficher l’état de la connexion

  • Article

La récupération des status d’une connexion est une tâche courante que vous pouvez effectuer avec WMI.

Pour afficher le status d’une connexion

  1. Connectez-vous à l’espace de noms à l’aide de GetObject avec un moniker dans le paramètre .

  2. Énumérez MsSnaStatus_Connections à l’aide de ExecQuery.

  3. Affichez les codes d’erreur si nécessaire.

    L’exemple suivant montre comment afficher le status de toutes les connexions définies dans 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