Vbs etat d'un service windows

Résolu/Fermé
bobo - 10 avril 2012 à 15:17
 bobo - 12 avril 2012 à 08:51
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

f894009 Messages postés 16724 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 octobre 2022 1 659
10 avril 2012 à 19:00
0
Je ne comprend pas quel est le code que doit je utiliser ?

Merci d'avance.
0
f894009 Messages postés 16724 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 octobre 2022 1 659
Modifié par f894009 le 11/04/2012 à 10:42
Bonjour,
Un peu plus simple:

A vous de mettre le nom du service

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

Set colItems = Nothing
Set objWMIService = Nothing

Le programme renvoit: Stopped ou Running

Bonne suite
0
Merci, ça fonctionne pas quand je change le service que je veux tester.
il faut modifier :
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service Where Name = 'Telnet'",,48) par exemple ?
0
Je suis vraiment désoler ça fonctionne bien. Je suis chiant ! j'aimerais avoir 1 pour start et 0 pour stop mais pas stop ou running.

Merci de votre aide.
0
f894009 Messages postés 16724 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 octobre 2022 1 659
11 avril 2012 à 11:37
Re,
Je vous le fais.

A+
0