Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 186 fois - Téléchargée 36 fois
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
Merci Spec
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 !
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.