Récupérer l'état d'un service

bonjour,

J'ai besoin dans un script VBS de récupérer l'état d'un service windows et de tester sa valeur afin d'opérer d'autres commande.
La commande pour récupérer l'état du service que j'utilise est

Code:

---

1 2	cmd = sc interrogate nom_service | find /c /i "running"

---

Ensuite je m'occupe du problème de quotes et je lance cette commande et récupère l'état :

Code:

---

1 2 3 4

cmd = Replace("sc interrogate aspnet_state | find /c /i $$running$$", "$$", chr(34)) service_state = WshShell.run(cmd, 2, true) wscript.echo service_state

---

Et pour mon echo j'obtiens toujours la valeur 0 (service arrété) meme si le "vrai" état dans la console mmc ou en CLI affiche 1 (pour démarré)

Alors comment ce fait-il que je n'obtiens pas le meme résultat qu'en CLI ou dans les services.msc?

Merci de votre aide
:lol::ccool:

Run retourne un entier, mais celui-ci n'est pas en rapport avec ce qui est affiché sur la sortie standard... pour récupérer la sortie standard utilise StdOut :

Code:

---

1 2 3 4 5

cmd = "cmd /c sc interrogate ""iPod Service"" | find /c /i ""running""" Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec(cmd) service_state = Cint(oExec.StdOut.ReadAll) wscript.echo ">" & service_state & "<"

---

Nota :pour mettre des guillemets dans une chaine en VB il suffit de doubler ces guillemets, pas la peine d'utiliser ces replace et Chr(34).



et avec WMI ?

voir :faq: Comment lister les services actifs ?

Code:

---

1 2 3 4 5 6 7 8 9

strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service Where Name = 'aspnet_state'",,48) For Each objItem in colItems Wscript.Echo "Service : " & objItem.Name & " : " & objItem.State Next   Set colItems = Nothing Set objWMIService = Nothing

---

Merci pour ton aide
j'ai enfin pu tester et ça fonctionne très bien
:ccool: