Tester l'etat d'un service windows

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 927 fois - Téléchargée 36 fois

Contenu du snippet

Teste l'état d'un service windows en fonction de l'état désriré.

Peut nécessiter un référence a "Microsoft WMI Scripting" pour fonctionner.

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.Name = ServiceChecked Then ' V_ Corrected
            If Service.State <> StateRequired Then
                CheckServices = True
            Else
                CheckServices = False
            End If
        End If
    Next
    
GestErr:
    If Err.Number <> 0 Then
        CheckServices = "Connection to :" & ComputerToConnect & "->" & Err.Number & ":" & Err.Description
    End If

End Function

Conclusion :


-Renvoi True ou False si le service a été trouvé...
-Renvoi "Not Found" si le service n'a pas été trouvé...
-Ou Renvoi "Connection Failed" si le programme n'a pas réussi a se connecter à l'ordinateur désiré

A voir également

Ajouter un commentaire

Commentaires

cs_Spectrum
Messages postés
21
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
7 décembre 2004
-
Dis donc toi ca va la vie ?
http://www.vbfrance.com/article.aspx?Val=8087 ....

Pour info, Oui ca nécéssite OBLIGATOIREMENT une référence à WMI.
Sinon, t'aurais au moins pu changer le nom des variables....

@ bonne entendeur Salut !
cs_nickylarsen
Messages postés
1
Date d'inscription
vendredi 11 avril 2003
Statut
Membre
Dernière intervention
15 avril 2003
-
Petit Correctif du code si bien proposé par Spectrum ( http://www.vbfrance.com/article.aspx?Val=8087 ) d'où le "V_ Corrected"

Merci Spec

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.