1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Tester l'etat d'un service avec wmi

Tester l'etat d'un service avec wmi

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 453 fois - Téléchargée 41 fois

Commenter

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
daetips Messages postés 142 Date d'inscription jeudi 10 juillet 2003 Statut Membre Dernière intervention 10 novembre 2007
25 août 2004 à 13:03
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
cs_Spectrum Messages postés 21 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 7 décembre 2004
14 mars 2003 à 11:36
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
cs_Crazyht Messages postés 1522 Date d'inscription mardi 18 décembre 2001 Statut Membre Dernière intervention 21 août 2010 8
14 mars 2003 à 11:16
Vive les MSDN :(

A ton réellement le droit de diffuser les Code gentillement donner par Microsoft ?
S'inscrire maintenant

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.

Du même auteur (cs_Spectrum)