Page 1 sur 1
[R] Installation du pack office
Posté : mar. 11 août 2009 15:11
par 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....")
Re: [...] Installation du pack office
Posté : mar. 11 août 2009 16:07
par Yogui
Re: [...] Installation du pack office
Posté : mer. 12 août 2009 12:23
par fredgaub
Merci, intéressant en effet mais je me demande pourquoi mon petit script ne se déroule pas de façon fiable...
Re: [...] Installation du pack office
Posté : mer. 12 août 2009 14:45
par 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
Re: [...] Installation du pack office
Posté : ven. 14 août 2009 16:50
par 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")
Re: [...] Installation du pack office
Posté : ven. 14 août 2009 22:10
par 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
)
Re: [...] Installation du pack office
Posté : lun. 17 août 2009 12:50
par fredgaub
Oui ça fonctionne, merci