Bonjour,

j'ai un script qui vérifie l'etat d'un service et le relance si il est arreté mais cela ne fonctionne pas.

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
 Dim objFSO, objWMIService, objService, colServiceList
 Dim objReseau, Ordinateur
 Dim Reponse
 
 Set objReseau = CreateObject("WScript.Network")
 Ordinateur = LCase(objReseau.ComputerName)
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objWMIService = GetObject("winmgmts:" & _
 "{impersonationLevel=impersonate}!\\" & Ordinateur & "\root\cimv2")
 Set colServiceList = objWMIService.ExecQuery _
 ("Select * from Win32_Service where Name='opsstart'")
 For Each objService In colServiceList
 If (objService.Name = "opsstart") Then
 	If (objService.State <> "Stopped")Then
 Reponse = objService.StartService()
 End If
 End If
 Next
 Set objFSO = Nothing
 Set objReseau = Nothing
WScript.Quit
Quelqu'un peut-il me venir en aide?