;installation de Antivir Personal Edition 8 Francais à partir du fichier antivir_workstation_winu_fr_h.exe
;JEAN-RENE DANIS 28-11-08
;Mise à jour le 05-12-08 : correction aprés test : OK
;Liste des variable(s)
;variable qui définit l'emplacement du fichier log
$DossierDeLog = "%systemdrive%\install\log\"
;variable qui définit la destination temporaire :
$dossierprov = '%systemdrive%\install\antivir8FR\'
;variable qui définit le dossier de 7Zip ou se trouve 7z.exe :
$SEI_7Z = '%SYSTEMDrive%\Program Files\7-Zip'
;Création du dossier pour mettre le fichier log si ce dossier n'existe pas
IF NOT EXIST ($DossierDeLog)
MD $DossierDeLog
ENDIF
;Ouverture du fichier log et redirection des messages
IF RedirectOutput($DossierDeLog + @SCRIPTNAME + ".txt") = 0
?? "Ouverture de " + @SCRIPTNAME + " à " + @TIME
ELSE
? "Impossible de créer le fichier log"
GOTO "finerreur"
ENDIF
;Définition de la fonction EnumProcess
;http://www.kixtart.org/UDF/
FUNCTION EnumProcess($exe, optional $terminate, optional $Computer)
Dim $winmgmts, $ExecQuery, $Process, $id, $getobject, $
if not $computer $computer=@wksta endif
$winmgmts="winmgmts:{impersonationLevel=impersonate}!//$COMPUTER"
select
case val($exe)>0
$ExecQuery="select * from Win32_Process where ProcessId='$exe'"
$GetObject=GetObject($winmgmts).ExecQuery($ExecQuery)
For each $Process in $GetObject
if $terminate $=$Process.Terminate endif
$EnumProcess = $Process.name
next
$GetObject=''
case vartype($exe)=8
$ExecQuery="select * from Win32_Process where Name='$exe'"
$GetObject=GetObject($winmgmts).ExecQuery($ExecQuery)
For each $Process in $GetObject
if $terminate $=$Process.Terminate endif
$id=$Process.ProcessId
$EnumProcess = "$Id" + "|" + "$EnumProcess"
Next
$EnumProcess=left($EnumProcess,len($EnumProcess)-1)
$GetObject=''
case 1
exit 1
endselect
ENDFUNCTION
cd @SCRIPTDIR\
;Décompression du fichier
$fichieradecomp = 'antivir_workstation_winu_fr_h.exe'
$destinationdeladecomp = $dossierprov
$commande='"$SEI_7Z\7z.exe" x -o$destinationdeladecomp $fichieradecomp'
? $commande
shell '%COMSPEC% /c ' + $commande
IF @ERROR <> 0
? "Erreur n° " + @ERROR
GOTO "finerreur"
ENDIF
;Lancement du programme d'installation
$commande=$dossierprov + 'basic\setup.exe'
? $commande
;A la différence de SHELL, RUN n'attend pas que l'application soit terminée.
RUN $commande
IF @ERROR <> 0
? "Erreur n° " + @ERROR
GOTO "finerreur"
ENDIF
;Prend la main sur une fenêtre
$nomdelafenetre = "Avira AntiVir Personal - Free Antivirus"
$whilestf = 1
$lock = 1
WHILE $whilestf <> 0
sleep 1
$lock = $lock + 1
$whilestf = setfocus ($nomdelafenetre)
LOOP
? "Prend la main sur la fenêtre $nomdelafenetre réussi"
;Envoi une touche clavier pour répondre "Suivant"
? "Répond suivant à la fenêtre de bienvenue"
SendKeys ("s")
SendKeys ("s")
? "Répond suivant à la fenêtre 'More Thread categories'"
SendKeys (" ")
? "Coche la cas pour accepter la licence d'utilisation du logiciel AntiVir"
SendKeys ("s")
? "Répond suivant à la fenêtre de la licence d'utilisation de AntiVir"
SendKeys (" ")
? "Coche la cas pour accepter d'utiliser le logiciel AntiVir à des fins personnel et non commercial"
SendKeys ("s")
? "Répond suivant à la fenêtre des condition d'utilisation de AntiVir"
SendKeys ("s")
? "Répond suivant à la fenêtre du choix d'installation en laissant l'option d'installation complète par default"
;Prend la main sur une fenêtre
$nomdelafenetre = "Avira AntiVir Personal - Free Antivirus Assistant de licence"
$whilestf = 1
$lock = 1
WHILE $whilestf <> 0
sleep 1
$lock = $lock + 1
$whilestf = setfocus ($nomdelafenetre)
LOOP
? "Prend la main sur la fenêtre $nomdelafenetre réussi"
SendKeys ("+({TAB}{TAB}{TAB}{TAB}) +{TAB} ")
? "Décoche l'enregistrement et la souscription à la newslettre Avira"
SendKeys ("s")
? "Répond suivant à la fenêtre d'enregistrement d'Antivir et d'abonement à la newslettre Avira"
? "Installation de l'antivirus AntiVir 8 en cours"
;Attend l'existance du processus qui renseigne sur la fin de l'installation.
$ProcessusATrouver = "avgnt.exe"
$whilestf = 1
$lock = 1
WHILE $whilestf <> 0
? "Patienter quelques minutes (essai n°" + $lock +")"
sleep 2
$lock = $lock + 1
if (EnumProcess($ProcessusATrouver)<>"")
$whilestf = 0
endif
LOOP
? "le processus a été trouvé...patienter 1 seconde"
sleep 1
;Prend la main sur une fenêtre
$nomdelafenetre = "Avira AntiVir Personal - Free Antivirus"
$whilestf = 1
$lock = 1
WHILE $whilestf <> 0
sleep 1
$lock = $lock + 1
$whilestf = setfocus ($nomdelafenetre)
LOOP
? "Prend la main sur la fenêtre $nomdelafenetre réussi"
SendKeys ("{TAB}{TAB} {ENTER}")
;Prend la main sur une fenêtre
$nomdelafenetre = "Setup de Avira AntiVir Personal - Free Antivirus"
$whilestf = 1
$lock = 1
WHILE $whilestf <> 0
sleep 1
$lock = $lock + 1
$whilestf = setfocus ($nomdelafenetre)
LOOP
? "Prend la main sur la fenêtre $nomdelafenetre réussi"
SendKeys ("n")
? "Répond 'Ne pas lancer la mise à jour"
;Prend la main sur une fenêtre
$nomdelafenetre = "Luke Filewalker"
$whilestf = 1
$lock = 1
WHILE $whilestf <> 0
sleep 1
$lock = $lock + 1
$whilestf = setfocus ($nomdelafenetre)
If $lock = 10
? "$nomdelafenetre n'est pas lancé."
$whilestf = 0
ENDIF
LOOP
IF $lock = 10
? "Fin de l'installation"
ELSE
? "Prend la main sur la fenêtre $nomdelafenetre réussi"
;Annulation le scanne des fichiers
SendKeys ("s")
? "Stop la mise à jour en cour"
sleep 5
? "Patienter 5 secondes"
SendKeys ("a")
? "Quitte le programme de mise à jour en cour"
ENDIF
;effacement d'un dossier
$dossierasupprimer = $dossierprov
del $dossierasupprimer + "\*.*" /c /f /s
rd $dossierasupprimer /s
IF NOT EXIST ($dossierasupprimer)
? "Le dossier : " + $dossierasupprimer + " a été supprimé"
ELSE
? "Le dossier : " + $dossierasupprimer + " n'a pas été supprimé complétement"
ENDIF
GOTO "fin"
;label de fin avec erreurs
:finerreur
? "fin du script d'installation : erreur"
;Ouverture du fichier log pour signaler la présence d'erreurs
IF RedirectOutput($DossierDeLog + "ERREUR_" + @SCRIPTNAME +".txt") = 0
?? "Ouverture de erreur_" + @SCRIPTNAME + " à " + @TIME
? "le script d'installation à rencontrer des erreurs : consulter le fichier log :"
? $DossierDeLog + @SCRIPTNAME +".txt"
ENDIF
sleep 5
;label de fin sans erreurs
:fin
? "fin du script d'installation"
;annule la redirection vers un fichier
RedirectOutput("")
|
