Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 556 fois - Téléchargée 36 fois
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
jaimerai utiliser ce code mais je ne comprend pas ou je doit preciser le nom du service a verifier quelquun peut t'il maider?
Merci par avance
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.