Script demarrage de services avec fichier.ini
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:
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 |
