Tester l'etat d'un service avec wmi

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 877 fois - Téléchargée 39 fois

Contenu du snippet

Cette function permet de retourner l'etat d'un service Windows en fonction de trois paramètres :
1) le nom du serveur
2) le nom du service
3) l'état attendu pour le service

Il retourne 1 si le test correspond à l'état attendu, sinon il retourne l'état actuel.

Nécéssite une référence à "Microsoft WMI Scripting library"

Source / Exemple :


Public Function CheckServices(ComputerToConnect As String, ServiceChecked As String, StateRequired As String) As Variant
    On Error GoTo GestErr
    Dim Service
    
    For Each Service In GetObject("winmgmts:{impersonationLevel=impersonate}!//" & ComputerToConnect).InstancesOf("win32_service")
        If Service.Description = ServiceChecked Then
            If Service.State <> StateRequired Then
                CheckServices = ComputerToConnect & "\" & Service.Description & "->" & Service.State
            Else
                CheckServices = 1
            End If
        End If
    Next

GestErr:
    If Err.Number <> 0 Then
        CheckServices = "Connection to :" & ComputerToConnect & "->" & Err.Number & ":" & Err.Description
    End If
  

End Function

A voir également

Ajouter un commentaire

Commentaires

cs_Crazyht
Messages postés
1522
Date d'inscription
mardi 18 décembre 2001
Statut
Modérateur
Dernière intervention
21 août 2010
4 -
Vive les MSDN :(

A ton réellement le droit de diffuser les Code gentillement donner par Microsoft ?
cs_Spectrum
Messages postés
21
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
7 décembre 2004
-
Ce code ne vient pas du msdn. Quand je donne un source qu'il n'y a pas forcément sur VB France et qu'il est de Microsoft, je le dis !

Il est vrai que les objets WMi sont documentés dans le MSDN, mais dans ce cas il en est de même pour tous !

Si cette fonction est écrite tel quel dans le MSDN je ne crois pas l'avoir vu
daetips
Messages postés
142
Date d'inscription
jeudi 10 juillet 2003
Statut
Membre
Dernière intervention
10 novembre 2007
-
Wai ben même si c'est dans msdn c'est beaucoup mieux que les convertisseurs euros francs. Ce code va me servir.Pour remonbter la note 7/10

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.