Vbs- Presence d'un service

Bonjour,

J'aimerai savoir si quelqu'un connait la maniere de savoir si un service est présent ou non.
Si possible avec l'objet Shell.Application.

Je sais savoir si un service est demarré ou non :

Code:

---

1 2 3 4

service="Eventsystem" Set sh = CreateObject("Shell.Application") EtatService=sh.IsServiceRunning(service)

---

Je sais le demarrer ou l'arreter :

Code:

---

1 2 3

sh.ServiceStop (service),False 'False ou true indique si on veut que l'opération indiquer soit persistente ou non. sh.ServiceStart (service),true

---

Mais je ne sais pas comment tester l'existence / presence d'un service.

Salut;

J'ai posté il y a environ 2 mois un code VBS qui peut lister tous les services qu'ils soient actifs ou non. Tu peux le modifier selon ton besoin ou t'en inspirer.

Il est ICI

Je regarde ton script. Merci de ta réponse.

EN BATCH il y a :

Code:

---

1 2 3

Netsvc /list \\%computername% | Find "NameService > NUL" echo %errorlevel%

---

qui retourne 1 si non present ou zero si le service existe.

Je suis donc parti sur une piste plutot que du WMI

Code:

---

1 2 3 4 5 6 7 8

Set ObjShell = WScript.CreateObject("WScript.Shell") Set Oexec=ObjShell.Exec("cmd") commande="Netsvc /list \\%computername% | Find ""Nomservice > NUL""" Oexec.StdIn.WriteLine commande Oexec.StdIn.WriteLine "echo %errorlevel%" Oexec.StdIn.WriteLine "Exit" wscript.echo Oexec.StdOut.readAll

---

ca fait un peu trop bricolo à momn gout.
Si quelqu'un à une autre solution je suis preneur.

Bon voilà j'ai pondu un code.
SI quelqu'un à une autre idée sinon c'est resolu pour ma part

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

'Script pour determiner les services sous windows 2000 et 2003 EtatService=PresenceService("TOTO") Wscript.Echo EtatService   Function PresenceService(NomService) Dim ObjShell,Oexec Dim compt,commande,result Set ObjShell = WScript.CreateObject("WScript.Shell") compt=0 commande="Netsvc /list \\COmputerName | Find """ & NomService & """ > NUL" Set Oexec=ObjShell.Exec("cmd") 'Execute CMD Oexec.StdIn.WriteLine commande 'Execute sous DOS la commande Oexec.StdIn.WriteLine "echo %errorlevel%" 'Faire un echo de errorlevel afin d'aficher son etat (1 si erreur 0 sinon) Oexec.StdIn.WriteLine "Exit" 'sortir de CMD   'Analyser le flux de sortie mais les premieres lignes ne nous interressent pas donc on met en place un compteur Do until Oexec.StdOut.AtEndOfStream 'Analyser le flux de sortie jusqu'à la fin result= Oexec.StdOut.ReadLine() 'traiter ligne par ligne le flux If Instr (1,result,"0") > 0 And compt > 5 Then 'chercher le resultat de l'echo errorlevel des que le compteur et superieur à 5 PresenceService="present" 'Si c'est 0 alors le service existe exit do ' sortir de la boucle end if If Instr (1,result,"1") > 0 And compt > 5 Then 'chercher le resultat de l'echo errorlevel des que le compteur et superieur à 5 PresenceService="absent" 'si c'est 1 alors le service est absent exit do end if Compt=Compt+1 'incrementer compteur Loop End Function

---

Merci encore à tous les scripteurs :ccool: