Vbs etat d'un service windows

[Résolu/Fermé]
Signaler
-
 bobo -
Bonjour,



Je suis vraiment nul en développement et j'ai pas beaucoup le temps d"apprendre.

Peut ont m'écrire un petit programme en vbs qui test un service windows et qui renvoit :

- 1 pour service start

- 0 pour service stop

Bien cordialement.

1 réponse

Messages postés
15969
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 septembre 2021
1 535
Ton code est parfait mais je voudrais juste l'affichage du 0 ou 1 mais pas de texte.

Peux tu me modifier le code si te plait ?
En manipulant l'application je vient de me rendre compte qu'il faut respecter format des valeurs.

Merci
Utilisateur anonyme
Bonjour,

Ajoute une variable :
Dim Flag

If (objService.Name = "EMDMgmt") Then 
	Flag =True
End If 

If (Flag) Then
	WScript.Echo "1"
Else
	WScript.Echo "0"
End If


Cdt

Lupin
Messages postés
15969
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 septembre 2021
1 535
Bonjour

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service Where Name = 'Telnet'",,48)
For Each objItem in colItems
If objItem.State="Running" Then
Etat=1
Else
Etat=0
End If
Wscript.Echo Etat
Next

Set colItems = Nothing
Set objWMIService = Nothing

Bonne suite
Merci beaucoup