[R] Installation du pack office

[fredgaub]

Bonjour, je suis amené à réinstaller souvent le pack office avec les mêmes options; je débute alors j'ai fait un listing très simple de ce que je fais "à la main" mais ça ne marche pas de façon fiable et reproductible (parfois pas de problème et parfois ça fige sur la fenêtre "Installation personnalisée" notamment)
On dirait que le setup ne peux pas digérer les entrées au rythme où le script les envoie....?
Merci si qq'un a une idée du problème...

► Afficher le texte

Code : Tout sélectionner

; Install office 2003
$rep=msgbox(4,"Installation pack office 2003 pro", "Faut-il installer outlook 2003 ?")

Run("setup.exe")

; Initial Setup Screen
WinWaitActive("Installation de Microsoft Office 2003", "Entrez la clé")
Send("ChiffresDeLaLicence")
send("{ENTER}")

WinWaitActive("Installation de Microsoft Office 2003", "Informations utilisateur")
send("{ENTER}")

WinWaitActive("Installation de Microsoft Office 2003", "Contrat de Licence")
Send("!j")
send("{ENTER}")

WinWaitActive("Installation de Microsoft Office 2003", "Type d'installation")
Send("!i")
send("{ENTER}")

WinWaitActive("Installation de Microsoft Office 2003", "Installation personnalisée")
Send("!d")
send("{ENTER}")

WinWaitActive("Installation de Microsoft Office 2003", "Personnalisation avancée")

; selectionner install complète
Send("{SPACE}")
send("{DOWN 2}")
send("{ENTER}")

; supprimer access
send("{DOWN}")
Send("{SPACE}")
send("{DOWN 4}")
send("{ENTER}")

; supprimer publisher
send("{DOWN 4}")
Send("{SPACE}")
send("{DOWN 4}")
send("{ENTER}")

; supprimer info path
send("{DOWN 2}")
Send("{SPACE}")
send("{DOWN 4}")
send("{ENTER}")

; supprimer outlook si reponse = non
if $rep=7 then
    send("{UP 4}")
    Send("{SPACE}")
    send("{DOWN 4}")
    send("{ENTER}")
EndIf

send("{ENTER}") ; suivant

WinWaitActive("Installation de Microsoft Office 2003", "Résumé")
send("!i") ; installer

WinWaitActive("Installation de Microsoft Office 2003", "est terminée")
send("!t") ; terminer

; pack sp3
Run("Office2003SP3-KB923618-FullFile-FRA.exe")
WinWaitActive("Office 2003 Service Pack 3 (SP3)", "Voulez-vous installer")
send("!o") ; oui

WinWaitActive("Office 2003 Service Pack 3 (SP3)", "CONTRAT DE LICENCE")
send("!o") ; oui

WinWaitActive("Office 2003 Service Pack 3 (SP3)", "appliquée avec succès")
send("{ENTER}") ; OK

MsgBox ( 64, "Office 2003 + Service Pack 3", "L'installation est terminée....")

[Yogui]

Personnelement j'ai suivie cette procedure :

http://www.laboratoire-microsoft.org/ar ... 3_perso/2/

[fredgaub]

Merci, intéressant en effet mais je me demande pourquoi mon petit script ne se déroule pas de façon fiable...

[Yogui]

Pour plus de sécurité il est possible d'ajouter des controles

Votre code :

Code : Tout sélectionner

; Initial Setup Screen
WinWaitActive("Installation de Microsoft Office 2003", "Entrez la clé")
Send("ChiffresDeLaLicence")
send("{ENTER}")

Code avec plus de controle :

Code : Tout sélectionner

WinWait("Installation de Microsoft Office 2003","Entrez la clé")
If Not WinActive("Installation de Microsoft Office 2003","Entrez la clé")
 Then WinActivate("Installation de Microsoft Office 2003","Entrez la clé")
WinWaitActive("Installation de Microsoft Office 2003","Entrez la clé")
ClipPut("")
ClipPut("ChiffresDeLaLicence")
send(ClipGet())
send("{ENTER}")

j'utilise ClipPut() cela évite des erreurs de frappe (trop rapide)

à vous de faire le reste du script et de nous dire si c'est plus fiable

[fredgaub]

Bonjour,
Non ça ne change rien car les caractères entrés au clavier ne transitent pas par le presse-papier.
Par contre ça passe bien en modifiant la chaîne de caractères détectés sur certaines fenêtres qui "coinçaient" alors que c'était correct (récupéré avec autoit window info) :

Code : Tout sélectionner

;Avant modif: blocage
WinWaitActive("Installation de Microsoft Office 2003", "Installation personnalisée")
Send("d")
send("{ENTER}")

WinWaitActive("Installation de Microsoft Office 2003", "Personnalisation avancée")

;Après modif: ça passe
WinWaitActive("Installation de Microsoft Office 2003", "Sélectionnez les applications")
send("d")
send("{ENTER}")

WinWaitActive("Installation de Microsoft Office 2003", "Choisissez les options")
 

[Yogui]

Etonnant pour le press-papier.

Sinon le script est il fonctionnel maintenant ?

En ce qui me concerne je reste sur ma position concernant les scripts d'automatisation alors que le logiciel à un MSI :/ le plus rapide et de l'utiliser (surtout que ce n'est pas toujours simple )

[fredgaub]

Oui ça fonctionne, merci