Petit Programme qui renvoi l'état d'un Service Windows
Source / Exemple :
Public Function CheckServices(ComputerToConnect As String, ServiceChecked As String) As String
On Error GoTo GestErr
Dim Service
For Each Service In GetObject("winmgmts:{impersonationLevel=impersonate}!//" & ComputerToConnect).InstancesOf("win32_service")
If LCase(Service.Name) = LCase(ServiceChecked) Then
CheckServices = Service.State
Exit For
Else
CheckServices = "Not Found"
End If
Next
GestErr:
If Err.Number <> 0 Then
CheckServices = "Connection Failed"
End If
End Function
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.