Vbs etat d'un service windows
Résolu
bobo
-
bobo -
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.
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.
A voir également:
- Service.vbs
- Clé windows 8 - Guide
- Service spouleur - Guide
- Montage video windows - Guide
- Windows ne démarre pas - Guide
- Windows movie maker - Télécharger - Montage & Édition
Merci d'avance.
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
il faut modifier :
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service Where Name = 'Telnet'",,48) par exemple ?
Merci de votre aide.
Je vous le fais.
A+