Discussion :

[lephyrexian]

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 :

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
 
 
'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

[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 .

[lephyrexian]

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

Je vais voir ca de suite et je vosu tiens au courant

[lephyrexian]

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

Merci pour tes infos

[ced600]

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

Code :

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

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 ?

[lephyrexian]

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