Vbs etat d'un service windows

Je ne comprend pas quel est le code que doit je utiliser ?

Merci d'avance.

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

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 ?

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.

Re,
Je vous le fais.

A+