Voici mon premier script, qui installe silencieusement Adobe Reader 10.
Si vous voyez des erreurs de méthodes mais aussi de forme, de mauvaise habitudes à ne pas prendre en programmation, je suis à l'écoute.
Je vous remercie par avance
Code : Tout sélectionner
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
$repertoireinstall = "c:\installtemp" ; le répertoire que je vais creer pour copier le fichier d'install
$setup_a_installer = "AdbeRdr1001_fr_FR.exe" ; le fichier a installer
$repertoireserveur = "\\XXXX\application\adobe10" ; le chemin du fichier a copier depuis le serveur
$fichierdelog = $repertoireinstall & "\adobe.log" ; un fichier adobe.log placé dans le dossier d'install déclaré plus haut
;je créé d'abord mon dossier d'install et le fichier de log en ecrivant l'heure et la date du jour
DirCreate($repertoireinstall)
FileOpen($fichierdelog)
FileWrite($fichierdelog, "creation du log le : " & @MDAY & "/" & @MON & " il est " & @HOUR & ":" & @MIN & @CRLF)
; si le fichier n'existe pas sur le serveur (que le serveur n'est pas joignable) on sort du script, sinon on inscrit dans le log : le fichier a ete trouvé ...
If FileExists("\\XXXX\application\adobe10\AdbeRdr1001_fr_FR.exe") <> 1 Then
FileWrite($fichierdelog, "le fichier est introuvable" & @CRLF)
Exit
Else
FileWrite($fichierdelog, "- le fichier a été trouvé la copie peut commencer" & @CRLF)
EndIf
; copie du fichier dans le repertoire d'installation
FileCopy("\\XXXX\application\adobe10\" & $setup_a_installer, $repertoireinstall)
;tant que le fichier n'existe pas dans le nouveau répertoire, on attend 5 secondes, au bout de 6 essai (8 - 2) on sort du script
$compteurdesommeil = 2
While FileExists($repertoireinstall & "\" & $setup_a_installer) <> 1
If $compteurdesommeil < 8 Then
FileWrite($fichierdelog, "le fichier ne s'est pas encore copié " & $compteurdesommeil & " ° essai dans 5 secondes" & @CRLF)
Sleep(5000)
$compteurdesommeil = $compteurdesommeil + 1
Else
FileWrite($fichierdelog, "- le fichier ne se copie toujours pas, annulation de l'installation" & @CRLF)
Exit
EndIf
WEnd
;a ce stade si on est pas sorti du script, c'est que le fichier existe, donc la copie a fonctionnée
FileWrite($fichierdelog, "- fichier copié" & @CRLF)
;lancer le setup avec l'argument silentieux et incrire dans le log: l'installation démmarre
Run("c:\installtemp\AdbeRdr1001_fr_FR.exe /msi EULA_ACCEPT=YES /qn")
FileWrite($fichierdelog, "- l'installation démarre" & @CRLF)
; tant que le dossier adobe10 n'existe pas dans program files je considere qu'il n'est pas installé et dors 10secondes,si au bout de 10 fois ca marche pas, je sorts du script
$compteurdesommeil = 2
While FileExists("C:\Program Files\Adobe\Reader 10.0") <> 1
If $compteurdesommeil < 12 Then
FileWrite($fichierdelog, "- le dossier n'existe pas encore," & $compteurdesommeil & "° essai dans 10 secondes" & @CRLF)
Sleep(10000)
$compteurdesommeil = $compteurdesommeil + 1
Else
FileWrite($fichierdelog, "- le dossier ne s'installe toujours pas, annulation de l'installation" & @CRLF)
Exit
EndIf
WEnd
; si le dossier existe je considere qu'il est installé, et j'écris la date et l'heure
If FileExists("C:\Program Files\Adobe\Reader 10.0") = 1 Then
FileWrite($fichierdelog, "- le dossier existe, adobe est surement installé" & @CRLF)
FileWrite($fichierdelog, "on est le : " & @MDAY & "/" & @MON & " il est " & @HOUR & ":" & @MIN & @CRLF)
EndIf
