Vérification et demarrage d'1 service
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:
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?
