Bonjour a tous!

Je suis nouveau dans le VBscript(depuis deux jours pour tout dire) Je fait déjà du java et du C en apply(en cours, rien de bien poussé vu que je fessais des études de réseau et pas d'info).
J'ai fait aussi un peu de prog web en PHP/Sql en travaillant comme développeur sur www.enchantier.com (c'est pas de la pub hein, je travaille plus chez eux^^), avec un petit détour assez traumatisant par le JS.

Enfin me voila pour vous demander un coup de main. Je cherche a faire un script qui effectue une série d'installation de manière automatique.
Pour cela je me connecte a un serveur su le quel se trouvent les .exe, je les lance et je simule l'action d'un utilisateur qui ferais okokoksuivantokterminé.

Voici donc une version beta -- du future script génial:

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
 
'--------------------------------Mappage de ****** sur Q:---------------------------------------------
On Error Resume Next 
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "Q:","\\******\images\creation_master",false
 
if err.Number = 0 Then
        Wscript.Echo "Connection de Q: sur \\******\images\creation_master réussie"
Else
        Wscript.Echo err.Number & " : " & err.description
End If
 
'-----------------------------------------Install de XNvieuw------------------------------------------------
 
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "Q:\IbisXP03\soft\xnview_xnview_1.90.2_francais_9667.exe"
 
Wscript.Echo "Début de l'instalation de XNview"
 
   WScript.Sleep 1000
   WshShell.SendKeys "{ENTER}" 'next
   WScript.Sleep 1000
   WshShell.SendKeys "{TAB}" 'switcher sur "I desagree"/"i agree"
   WScript.Sleep 1000
   WshShell.SendKeys "{UP}" 'selectioner "i agree"
   WScript.Sleep 1000
   WshShell.SendKeys "{Enter}" 'next
   WScript.Sleep 1000
   WshShell.SendKeys "{Enter}" 'next
   WScript.Sleep 1000
   WshShell.SendKeys "{Enter}" 'next
   WScript.Sleep 1000
   WshShell.SendKeys "{Enter}" '...
   WScript.Sleep 1000
   WshShell.SendKeys "{Enter}" 
   WScript.Sleep 1000
   WshShell.SendKeys "{TAB}" 
   WScript.Sleep 1000
   WshShell.SendKeys "{Enter}"
   WScript.Sleep 1000
   WshShell.SendKeys "{TAB}" 
   WScript.Sleep 1000
   WshShell.SendKeys "{Enter}"
   WScript.Sleep 3000
 
Wscript.Echo "Fin de l'instalation de XNview"
 
 
'--------------------------------Démappage de ****** sur Q:---------------------------------------------
On Error Resume Next 
 
WshNetwork.RemoveNetworkDrive("Q:")
 
if err.Number = 0 Then
        Wscript.Echo "Déconnection de Q: sur \\*****\images\creation_master réussie"
Else
        Wscript.Echo err.Number & " : " & err.description
End If
Il ne fait qu'une seul installe(le but final de scripter c'est d'en faire 25 pendant que l'on bois un café) et il fait déjà vraiment bricolage... J'ai remarqué notamment que si je réduisais un peu trop mes timoutes, ca décalais tout et fessais n'importe quoi.

La partie que je cherche a ameliorer c'est le bricolage au milieu.
Y'a pas un moyen un peu moi bancal pour faire la même chose? j'ai vu notamment qu'il étais possible de "communiquer" avec exel ou world. c'est possible avec le setup de xnview(enfin avec d'autre quoi, j'ai pas que ca a installer)? si oui comment?

Merci d'avance!