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é
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.