Discussion :

[vikingraver]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
service="Eventsystem"
Set sh = CreateObject("Shell.Application")
EtatService=sh.IsServiceRunning(service)

Je sais le demarrer ou l'arreter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[l_autodidacte]

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

[vikingraver]

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

EN BATCH il y a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[vikingraver]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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