Bonjour, j'ai fait un script pour me permettre de lancer des softs dans un ordre établi et avec des intervalles de temps définis.

J'ai fait le tout en vbscript dans un hta.

Je voudrais savoir comment faire pour pouvoir utiliser un fichier ini, config ou autre dans lequel j'entrerais les chemins , délais et textes à afficher et que le script les lisent dans un boucle.

Bref, pouvoir éditer la liste des softs à lancer sans avoir à retoucher systematiquement au script en lui meme.
peut etre avec un ini du style:
start01:
nom : 111
chemin : C:\Program Files\111\111.exe
delai : 5000

start02
etc...
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
<SCRIPT language="vbscript">
Dim WshShell
 
		Sub Window_onLoad
			StartTimer	    
		End Sub
 
Sub StartTimer
			MonTimer0 =window.setTimeOut ("welcome", 1000, "VBScript") 'Appel de MonScript
			MonTimer1 = window.setTimeOut ("Start01", 5000, "VBScript") 'Appel de MonScript 
			MonTimer2 = window.setTimeOut ("Start02", 10000, "VBScript") 'Appel de MonScript 
			MonTimer3 = window.setTimeOut ("Start03", 15000, "VBScript") 'Appel de MonScript 
			MonTimer4 = window.setTimeOut ("Start04", 20000, "VBScript") 'Appel de MonScript 
			MonTimer5 = window.setTimeOut ("Start05", 25000, "VBScript") 'Appel de MonScript
			MonTimer6 = window.setTimeOut ("Startend", 30000, "VBScript") 'Appel de MonScript 
			MonTimer7 = window.setTimeOut ("Startclose", 35000, "VBScript") 'Appel de MonScript 
		End sub
 
Sub Welcome
S = SetTimeOut("MaSub (""Vos applications vont se lancer dans un instant... Veuillez patienter..."")", 100)
End Sub		
 
Sub Start01
Set WshShell = CreateObject ("Wscript.Shell")
 
WshShell.Run Chr(34) & "C:\Program Files\111\111.exe"
S = SetTimeOut("MaSub (""111 a bien été lancé !"")", 100)
End Sub
 
Sub Start02
Set WshShell = CreateObject ("Wscript.Shell")
 
WshShell.Run Chr(34) & "C:\Program Files\222\222.exe"
S = SetTimeOut("MaSub (""222 a bien été lancé !"")", 100)
End Sub
 
Sub Start03
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "C:\Program Files\333\333.exe"
S = SetTimeOut("MaSub (""333 a bien été lancé !"")", 100)
End Sub
 
Sub Start04
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "C:\Program Files\444\444.exe"
S = SetTimeOut("MaSub (""444 a bien été lancé !"")", 100)
End Sub
 
 
Sub Start05
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "C:\Program Files\555\555.exe"
S = SetTimeOut("MaSub (""555 de mixage a bien été lancée !"")", 100)
End Sub
 
Sub Startend
S = SetTimeOut("MaSub (""toutes les applications ont été correctement lancées !"")", 100)
End Sub
 
Sub Startend
window.close()
End Sub
 
Set WshShell = nothing
 
</SCRIPT>
Merci à vous pour votre aide, car j'ai boucoup galéré pour faire ce script et je ne maitrise clairement pas assez pour m'en sortir seul sur cet appel/boucle avec un fichier ini