Bonjour à tous,

Je débute en VBS et je souhaiterais arrêter les services suivants sans avoir a répéter la commande:
objShell.run

J'ai essayé ceci, mais cela ne marche pas, pourriez-vous m'aider SVP

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
Option Explicit 
 
 
Dim ObjWMIService
Dim objItem, objService, ColListOfServices
Dim strComputer, strService, ServList
servList = Array ("InformaticaServices8.6.0", "InformaticaOrchestrationServer") 
strComputer = "." 
	Set ObjWMIService = GetObject ("winmgmts:" & "! {= ImpersonationLevel usurper l'identité} \ \" & strComputer & "\ root \ cimv2") 
	Set colListOfServices = objWMIService.ExecQuery ("Select * from Win32_Service Lorsque le nom IN ('" & Join (servList ,"','") & "')") 
 
 
'Pour chaque objService dans colListOfServices 
objService.StartService () 
WScript.Sleep 1500 
Next
Script d'origine

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Dim Log
Dim objFSO, FileLog,fso
 
Log="C:\Log\StopServices.log"
 
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set FileLog = FSO.CreateTextFile(Log)
MyDate = Day(Now) & "." & Month(Now) & "." & Year(Now)
 
Sub Msglog(severite,code,label)
	Wscript.echo Mydate & "-" & time & " " & severite & " " & code & " " & label
	FileLog.WriteLine(Mydate & "-" & time & " " & severite & " " & code & " " & label)
end sub
 
Sub StopServices
 
	On Error Resume Next
	msglog "0","0000","---Debut: Arrêt des services Informatica & BO"
 
Dim objShell 
	set objShell = WScript.CreateObject("WScript.Shell") 
	objShell.run "net stop InformaticaServices8.6.0")
	objShell.run "net stop InformaticaOrchestrationServer")
	objShell.run "net stop Web Intelligence Report Server")
	objShell.run "net stop Web Intelligence Job Server")
	objShell.run "net stop Destination Job Server")
	objShell.run "net stop Crystal Event Server")
	objShell.run "net stop Crystal Input File Repository Server")
	objShell.run "net stop Crystal Output File Repository Server")
	objShell.run "net stop List of Values Job Server")
	objShell.run "net stop Program Job Server")
	objShell.run "net stop Report Application Server")
	objShell.run "net stop Desktop Intelligence Report Server")
	bjShell.run "net stop Desktop Intelligence Cache Server")
	objShell.run "net stop Desktop Intelligence Job Server")
	objShell.run "net stop Central Management Server")
	objShell.run("net stop Connection Server")
 
msglog "0","0000","---Fin: Services Informatica & BO arrêtés "
 
end sub
 
 
'---------------------------
' Corps su script
'---------------------------
msglog "0","0000","---Debut: StopServices.vbs "
StopServices
msglog "0","0000","---Fin: StopServices.vbs"
FileLog.Close