Discussion :

[PAB/31/SAB]

Bonjour à tous,

je souhaiterai executer un script unique pour démarrer des services qui sont
differents sur deux serveurs.

serveur1 = Service1,Service2,Service3,Service4,Service5
serveur2 = Service6,Service7,Service8,Service9,Service10


J'ai pensé à un script : "StartServices.vbs" qui lirait un fichier .ini (que je pourrais modifier dans le cas d'un ajout de service)
dans lequel j'aurais la liste des services à démarrer, mais je ne sais pas faire

Merci à tous pour votre aide

Aujourd'hui j'utilise un script different sur chaque serveur exemple :


Mon script :

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
Dim Log
Dim objFSO,FileLog,fso,ObjFile
Dim objShell
Dim Commande
Dim Tempo
 
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Log="E:\Appli\StartServices.log"
 
 
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 Demarre_Service(Nom_Service)
 
 
	msglog "0","0000","---Debut: Démarrage des service " & Nom_Service
	set objShell = WScript.CreateObject("WScript.Shell") 
	Tempo=" """& Nom_Service &""" "
	Commande="net start" & Tempo
 
 
	Wscript.echo Commande
	objShell.run(Commande)
 
	wscript.sleep 60000
 
	msglog "0","0000","---Fin:   Demarrage des service " & Nom_Service
 
end sub
 
'---------------------------
' Corps su script
'---------------------------
 
msglog "0","0000","---Debut: StartServices.vbs "
Demarre_Service "Service1"
Demarre_Service "Service2"
Demarre_Service "Service3"
Demarre_Service "Service4"
Demarre_Service "Service5"
msglog "0","0000","---Fin: StartServices.vbs"
FileLog.Close

[ProgElecT]

Salut

Peut être que Les Fichiers de Script Windows de la FAQ VBScript pourrait être la solution.