Tester un service

Version imprimable

Tester un service

Bonjour,

Apres avoir parcouru le forum je n'ai pas trouvé mon bonheur c'est pour ca que je me permets de vous demander de ma mettre soit sur la piste soit comment le faire. Je voudrais tester si un service est deja démarré. Si celui -ci est demarré alors il me renvoie une erreur sinon il effetue la commande passé.

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
 
 
'Fonction remontant le service et son etat
 
Dim objWMIService, objItem, objService
Dim colListOfServices, strComputer, intSleep
strComputer = "."
intSleep = 5000
 
' NB strService is case sensitive.
Set args  = Wscript.Arguments
ETAT_SERVICE = args(0) 
WIN_SERVICE1 = args(1)
 
message = "The service" & (WIN_SERVICE1)  & "is in state :" & (ETAT_SERVICE)
 
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name ="_
& WIN_SERVICE1 & " ")
For Each objService in colListOfServices
 
If (ETAT_SERVICE) = "Startservice" Then
  return = objService.StartService(WIN_SERVICE1)
  Else If (ETAT_SERVICE) = "Stopservice" Then
   return = objService.StopService(WIN_SERVICE1)
 End If
End If

Merci pour votre aide

08/11/2006, 14h54
ced600

Bizzare pourtant il me semble que j'ai déja des questions concernant les services sur ce sous forum. D'ailleurs dans au moins l'une de ces discussion j'ai proposé le lien suivant :
http://msdn.microsoft.com/library/de...__services.asp
Et je suis sur que tu trouveras ton bonheur sur ce lien ;) .
08/11/2006, 15h13
lephyrexian

hé hé merci cedric pour ta rapidité comme toujours :)

Je vais voir ca de suite et je vosu tiens au courant
10/11/2006, 09h18
lephyrexian

hello,
Apres avoir vu ton lien je ne vois pas comment teste si un service est deja lancé.

Merci pour tes infos

Citation:

How do I......determine which services are running and which ones are not?
Code:

1 2 3 4 5 6 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service",,48) For Each objItem in colItems Wscript.Echo "Service Name: " & objItem.Name & VBNewLine & "State: " & objItem.State Next
Cela me parait purtant clair. Tu as l'objet Item et objItem.Name te donne le nom d'un service de la liste et objItem.State son état.
Est ce plus clair ?

10/11/2006, 11h02
lephyrexian

Oui merci pour tes infos !!!
Je vais faire mon scripts. Je vous tiens au courant.

Voila le code que j ai essayer de modifier pour faire mon truc mais ca marchec pas

help me :)
Code:

1 2 3 4 5 6 7 8 9 10 11 strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service",,48) 'For Each objItem in colItems if objItem.Name = stopped then Wscript.Echo "Service pas actif" else Wscript.Echo "Service Name: " & objItem.Name & VBNewLine & "State: " & objItem.State 'Next endif
Si possible je voudrais rentrer le nom du service en parametre. Je debute dans le scripting un peu d'indulgence

Merci

10/11/2006, 11h35
ced600

Plusieurs point :
1. Apprend à te "balader" sur les liens que l'on te donne :
http://msdn.microsoft.com/library/de...32_service.asp
En regardant les arguments de l'objet Win32_Service, tu comprendra peut être une de tes erreurs.
2. Reprends les docs et les faqs.
3.Pour les paramètres on ne t'a pas déja repondus ?