[..] Progression graphique + installation KB

[toniino38]

Bonjour à tous,

Pour vous situer un peu le contexte je cherche à créer un WSUS Offline très particulier concernant la messagerie Exchange Office 365 (les KB n'étant pas tous disponible sur le catalogue de WSUS). Pour cela il faut installer un certain nombre de MAJ spécifique pour Office 2007 et Office 2010.

Dans mon script j'aimerai :

1 : Vérification de la version d'Office (2007 ou 2010)

2 : Installation d'un lot de KB en paramètre /quiet en fonction de la version d'Office détectée.

3 : Afficher une barre de progression qui nous indique le pourcentage de l'avancement et le nom de chaque KB qu'il installe.

J'ai cherché un peu à droite à gauche je suis arriver à un script :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3> ;Librairie graphique
HotKeySet("{ESC}", "endscript") ;Touche de raccourci pour exit

; *** DECLARATION DES VARIABLES => CLEFS DE REGISTRE ***
$reg2007 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\12.0\Outlook\InstallRoot","Path")
$reg2010 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Outlook\InstallRoot","Path")

;*** Si Office 2007 installé alors : ***
If $reg2007 = "" Then
   
   $KB2289158 = Run("Microsoft Office 2007 Security Update\Office2007-kb2289158-fullfile-x86-glb.exe /quiet")
   $KB2596993 = Run("Microsoft Outlook 2007 Update\office-kb2596993-fullfile-x86-glb.exe /quiet") 


            $Ca = GUICreate ( "" , 250 , 46 , -1 , -1 , $WS_POPUP,$WS_EX_TOPMOST+$WS_EX_WINDOWEDGE+$WS_EX_DLGMODALFRAME)
            GUISetBkColor ( 0x000000 , $Ca )
            $Da = GUICtrlCreateLabel ("    Installation en cours ...",  23, -1, 250,23)
            GuiCtrlCreateGraphic(-1, 1, 252,45,$SS_SUNKEN)
            GUICtrlSetColor(-1, 0XFFFFFF)
            GUICtrlSetColor ( $Da, 0XFFFFFF)
            GUICtrlSetFont ($Da, "12" , "50" , "" , "Courrier New")
            GUICtrlCreateGraphic(1, 23, 250,20)
            GUICtrlSetColor(-1, 0x007F00)
            GuiSetState(@SW_SHOW)
            _SliderRight()

            Func _getmsg()
                    $Msg = GUIGetMsg()
                If $Msg = $GUI_EVENT_CLOSE Then Exit
               
                ; Vérification de l'existence des ces KB
                If ProcessExists($KB2289158,$KB2596993)=0 Then endscript()
               
            EndFunc

            Func _SliderRight()
                    Local $newcolor,$color = 0x050000
                For $m = 0 To 245 Step 5
                    $newcolor += $color
                    $ba = GUICtrlCreateLabel( "", $m, 25, 4,16)
                    GUICtrlSetBkColor($ba, $newcolor)
                    Sleep(50)
                Next
                _getmsg()
                _SliderLeft()
            EndFunc

            Func _SliderLeft()
                Local $backcolor,$color = 0x050000
                For $m = 245 To 0 Step -5
                    $backcolor += $color  
                    $ba = GUICtrlCreateLabel( "", $m, 25, 4,16)
                    GUICtrlSetBkColor($ba, $backcolor)
                    Sleep(50)
                Next
                _getmsg()
                _SliderRight()
            EndFunc

            Func endscript()
                Exit
            EndFunc
Elseif $reg2010 = "" Then
      
Run("Microsoft Office 2010 Update\Office2010-kb2566458-fullfile-x64-glb.exe /quiet")
Run("Microsoft Office 2010 Update\Office2010-kb2566458-fullfile-x86-glb.exe /quiet")
Run("Microsoft Office 2010 Update\office-kb2435954-fullfile-x64-glb.exe /quiet")
Run("Microsoft Office 2010 Update\office-kb2435954-fullfile-x86-glb.exe /quiet")

Run("Microsoft Outlook 2010 Update\outlook2010-kb2597011-fullfile-x64-glb.exe /quiet") 
Run("Microsoft Outlook 2010 Update\outlook2010-kb2597011-fullfile-x86-glb.exe /quiet") 

Run("Microsoft OneNote 2010 Update\onenote2010-kb2523130-fullfile-x64-glb.exe /quiet") 
Run("Microsoft OneNote 2010 Update\onenote2010-kb2523130-fullfile-x86-glb.exe /quiet") 
Else
 MsgBox(1,"Pack Office non présent","Outlook 2007 ou 2010 n'est pas installé.")
Exit
 

Je suis relativement novice en développement. Si vous pouvez m'aider à avancer ce serait sympa, je bloque un peu sur la mise en place de la progression graphique et notamment l'affichage du nom du KB quand il l'installe.

Merci beaucoup

[toniino38]

J'ai avancé un peu sur la mise en forme graphique, je me suis aidé de Koda le rendu me va bien maintenant ce qu'il me manque c'est l'animation du progress et là je sèche vraiment !!

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

; *** DECLARATION DES VARIABLES => CLEFS DE REGISTRE ***
$reg2007 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\12.0\Outlook\InstallRoot","Path")
$reg2010 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Outlook\InstallRoot","Path")

If $reg2007 = "" Then
    $versionoffice = "2007"
ElseIf $reg2010 = "" Then
    $versionoffice = "2010"
Else
    $versionoffice = ": Produit non installé."
EndIf

; *** DECLARATION DES VARIABLES => KB Office 2007 ***
$KB2289158 = Run("Microsoft Office 2007 Security Update\Office2007-kb2289158-fullfile-x86-glb.exe /quiet")
$KB2596993 = Run("Microsoft Outlook 2007 Update\office-kb2596993-fullfile-x86-glb.exe /quiet")

; *** DECLARATION DES VARIABLES => Graphique ***
Global $Largeur = 500, $Hauteur = 450, $Titre = "MAJ pour Office 365"
Local $Ver = "Version 1.0"

#Region ### START Koda GUI section ### Form=c:\form1.kxf
$Form1_1 = GUICreate($Titre & " - " & $Ver, $Largeur, $Hauteur, 167, 130)
GUISetFont(12, 400, 0, "Arial")
GUISetBkColor(0xFFFFFF)
$Progress1 = GUICtrlCreateProgress(72, 248, 361, 25)
GUICtrlSetColor(-1, 0x99B4D1)
GUICtrlSetBkColor(-1, 0x000000)
$Pic1 = GUICtrlCreatePic("Microsoft-office-365.jpg", 144, 296, 225, 137)
$Label1 = GUICtrlCreateLabel("La version d'Office installée est " & $versionoffice & " !", 72, 112, 283, 22)
GUICtrlSetColor(-1, 0x808080)
$Label2 = GUICtrlCreateLabel("Installation en cours : " & $KBinstall & " ...", 72, 208, 52, 22)
GUICtrlSetColor(-1, 0x808080)
$Pic2 = GUICtrlCreatePic("Logo.jpg", 104, 16, 283, 78)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Form1_1
    EndSwitch
WEnd
 

Ce que j'aimerai faire c'est :

• Suivant la version détectée 2007 ou 2010 j'aimerai lancer la liste des KB à installer (je ne sais pas où placer cette condition dans tous mes essais cela ne marchait pas).
• Afficher dans le $Label2 le nom du KB qui est en cours d'installation.
• Avoir une barre de progression qui progresse en fonction de l'installation de l'ensemble des MAJ (et non pas 0 to 100 à chaque MAJ).

Merci beaucoup à ceux qui veulent bien m'aider =)

[mikell]

Au moins pour tester tu pourrais essayer ça :

Code : Tout sélectionner

$KB2289158 = "Microsoft Office 2007 Security Update\Office2007-kb2289158-fullfile-x86-glb.exe"
$btninstall = GUICtrlCreateButton("Installer", 210, 300, 80, 25)

et mettre ça dans le While

Code : Tout sélectionner

Case $btninstall
    Switch $versionoffice
        Case 2007
            GuiCtrlSetData($Label2, "Installation en cours : " & $KB2289158 & " ..."
            Run($KB2289158 & " /quiet")
        Case 2010
            ;....
    EndSwitch

Pour la progressbar, ça se calcule en faisant le % de fichier installé/taille totale avec un GuiCtrlSetData sur la progressbar... si tu n'as pas ces données, ça va être dur
Pourquoi ne pas laisser s'afficher la barre du fichier d'installation ?

[toniino38]

Tout d'abord merci beaucoup pour ta réponse

Au moins pour tester tu pourrais essayer ça :

Code : Tout sélectionner

$KB2289158 = "Microsoft Office 2007 Security Update\Office2007-kb2289158-fullfile-x86-glb.exe"
$btninstall = GUICtrlCreateButton("Installer", 210, 300, 80, 25)
 

J'ai créé mon bouton qui me sert à déclencher mon action jusque là pas de soucis.
Ensuite je crée mon while case :

► Afficher le texte

Code : Tout sélectionner

While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $btninstall
               Switch $versionoffice
            Case 2007
                GuiCtrlSetData($Label2, "Installation en cours : " & $KB2289158 & " ...")
                Run($KB2289158 & " /quiet")
            Case 2010
            ;....
                EndSwitch
        EndSelect
WEnd
 

Quand je fais F5 que le script se lance je n'ai aucune erreur pourtant je ne peux pas cliquer sur le bouton Installer il ne se presse pas y aurait-il d'autres paramètres à lui ajouter ?

Pour la progressbar, ça se calcule en faisant le % de fichier installé/taille totale avec un GuiCtrlSetData sur la progressbar... si tu n'as pas ces données, ça va être dur

La taille totale de toutes les MAJ réunis ou seulement d'une seule ? Dans tous les cas j'ai la taille mais ne connaît pas l'unité de mesure dans laquelle je dois les saisir.

Pourquoi ne pas laisser s'afficher la barre du fichier d'installation ?

Si je laisse la barre d'installation s'afficher elle va s'afficher pour une seule MAJ puis se fermer et lancer la deuxième mise à jour et ainsi de suite. Je préfère vraiment cloisonner mes utilisateurs dans une interface GUI simple car si j'affiche la barre d'installation à chaque MAJ je risque d'avoir des retours de personnes qui dès qu'ils voient une MAJ finit vont fermer le script. C'est pourquoi je veux vraiment une interface GUI simple avec un seul bouton "Installer", un Label pour nous leur dire s'ils ont un 2007 ou 2010 et enfin un Label qui indique la MAJ qui est en train de s'installer tout ça représenter par une barre de progression unique qui quand elle arrivera à la fin les utilisateurs seront invités quitter proprement.

[mikell]

Si tu as bien défini ton bouton dans le code de la gui, je vois pas pourquoi il ne marcherait pas

Pour la progressbar, l'unité de mesure de taille on s'en fout (Ko, Mo) pourvu que ce soit la même dans tout le calcul
Pour l'affichage, si tu veux que la progressbar suive l'ensemble des MAJ, alors faut la taille de l'ensemble des MAJ, etc
Le problème va être :
- Mesurer (dans une boucle) la taille de ce qui a déjà été installé, ça tu peux le faire avec un DirGetSize sur le répertoire dans lequel tu vas installer les fichiers, par exemple
- Calculer le % par rapport à la taille totale des fichiers à installer
- transmettre ce % à la progressbar
Bon courage

[toniino38]

Si tu as bien défini ton bouton dans le code de la gui, je vois pas pourquoi il ne marcherait pas

Et bien c'est également ce que je ne comprends pas car le bouton est bien définie dans la GUI :

► Afficher le texte

Code : Tout sélectionner

;*** INCLUDE DES LIBRAIRIES ***
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

; *** VERIFICATION DE LA VERSION ***
RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\12.0\Outlook\InstallRoot","Path")
If @error = "0" Then
    $versionoffice = "2007"
Else
EndIf
RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Outlook\InstallRoot","Path")
If @error = "0" Then
    $versionoffice = "2010"
Else
EndIf

; *** DECLARATION DES VARIABLES => KB Office 2007 ***
$KB2289158 = "Microsoft Office 2007 Security Update\Office2007-kb2289158-fullfile-x86-glb.exe"
;$btninstall = GUICtrlCreateButton("Installer", 210, 300, 80, 25)
; *** DECLARATION DES VARIABLES => Graphique ***
Global $Largeur = 500, $Hauteur = 450, $Titre = "MAJ pour Office 365"
Local $Ver = "Version 1.0" , $msg,$Label2,$btninstall,$Progress1

#Region ### START Koda GUI section ### Form=c:\form1.kxf
$Form1_1 = GUICreate($Titre & " - " & $Ver, $Largeur, $Hauteur, 167, 130)
GUISetFont(10, 400, 0, "Arial")
GUISetBkColor(0xFFFFFF)
$Progress1 = GUICtrlCreateProgress(72, 248, 361, 25)
GUICtrlSetColor(-1, 0x99B4D1)
GUICtrlSetBkColor(-1, 0x000000)
$Pic1 = GUICtrlCreatePic("Microsoft-office-365.jpg", 144, 296, 225, 137)
$Label1 = GUICtrlCreateLabel("La version d'Office installée est " & $versionoffice & " !", 72, 112, 283, 22)
GUICtrlSetColor(-1, 0x808080)
$btninstall = GUICtrlCreateButton("Installer", 210, 300, 80, 25)
$Label2 = GUICtrlCreateLabel("Cliquez sur Installer pour lancer la mise à jour.", 72, 208, 283, 22)
GUICtrlSetColor(-1, 0x808080)
$Pic2 = GUICtrlCreatePic("Logo.jpg", 104, 16, 283, 78)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $btninstall
               Switch $versionoffice
                Case 2007
                        MsgBox(4096,"TEST 2007","Je rentre bien dans l'installation")
                        GuiCtrlSetData($Label2, "Installation en cours : " & $KB2289158 & " ...")
                        Run($KB2289158 & " /quiet")
                    Case 2010
                    ;....
               EndSwitch
        EndSelect
WEnd
 

Je ne rentre même pas dans mon case puisque je ne peux pas afficher le MsgBox.

Pour la progressbar, l'unité de mesure de taille on s'en fout (Ko, Mo) pourvu que ce soit la même dans tout le calcul
Pour l'affichage, si tu veux que la progressbar suive l'ensemble des MAJ, alors faut la taille de l'ensemble des MAJ, etc
Le problème va être :
- Mesurer (dans une boucle) la taille de ce qui a déjà été installé, ça tu peux le faire avec un DirGetSize sur le répertoire dans lequel tu vas installer les fichiers, par exemple
- Calculer le % par rapport à la taille totale des fichiers à installer
- transmettre ce % à la progressbar
Bon courage

Merci beaucoup pour le raisonnement je m'y mets dès que j'ai réglé ce problème de case

[toniino38]

En cherchant j'ai réussi à cibler le problème il vient de :

► Afficher le texte

Code : Tout sélectionner

While 1
        $msg = GUIGetMsg()
        Select
        Case $msg = $GUI_EVENT_CLOSE
                MsgBox(4096,"TEST FERMETURE","OK je passe le GUI EVENT CLOSE")
                ExitLoop
            Case $msg = $btninstall
                MsgBox(4096,"TEST btninstall","Je rentre bien dans le case btninstall")
               If $versionoffice = "2007" Then
                        MsgBox(4096,"TEST 2007","Je rentre bien dans l'installation")
                        ;GuiCtrlSetData($Label2, "Installation en cours : " & $KB2289158 & " ...")
                        ;Run($KB2289158 & " /quiet")
                Elseif $versionoffice = "2010" Then
                        MsgBox(4096,"TEST2010","Je rentre bien dans l'installation")
                EndIf
        EndSelect
WEnd
 

Il s'agit du Case $msg = $btninstall en fait à aucun moment il ne rentre dans le case.

Dans le case GUI_EVENT_CLOSE aucun problème si je met une MsgBox dedans je la reçois bien quand je clique sur fermer.

EDIT :

J'ai trouvé ! Il s'agit en réalité du bouton installer qui (bien que non visible quand on regarde le programme car le fond de l'image est en blanc ^^) "mord" sur son espace, en changeant les valeurs de mes GUI pour lui donner un peu plus d'espace (ça se joue à 10pixel) et ben le bouton fonctionne sans problème !!!

[mikell]

ça serait sympa que tu édites tes messages et que tu mettes des balises "spoiler" pour encadrer les balises de code (pour les codes volumineux)

[toniino38]

ça serait sympa que tu édites tes messages et que tu mettes des balises "spoiler" pour encadrer les balises de code (pour les codes volumineux)

C'est fait

[toniino38]

Je reviens vers vous car je bloque un peu sur la barre de progression tout le reste fonctionne.

J'utilise le GUICtrlCreateProgress et je trouve aucune infos malheureusement sur comment animer cette progress dois-je utiliser le ProgressOn ?

Voici un exemple de ce que j'ai fais pour le moment :

Code : Tout sélectionner

If $versionos = "WIN_7" or "WIN_VISTA" Then

                        ;GUICtrlSetData($btninstall, "Stop")
                        ;For $i = $s To 100 Step 10

                        GuiCtrlSetData($Label2, "Installation en cours : " & $KB2289158 & " ...")
                        #RequireAdmin
                        RunWait($KB2289158 & " /quiet")

                        ;Next

                        ;   If $i < 100 Then
                        ;   $s = 50
                        ;   GUICtrlSetData($Progress1, $s)
                        ;   EndIf

                        GuiCtrlSetData($Label2, "Installation en cours : " & $KB2596993 & " ...")
                        #RequireAdmin
                        RunWait($KB2596993 & " /quiet")

                        ;Next

                            ;If $i < 100 Then
                            ;$s = 100
                        ;   GUICtrlSetData($Progress1, $s)
                        ;   EndIf

                        GuiCtrlSetData($Label2, "Installation en terminée. ")

                        ;ExitLoop
 

J'ai mis en commentaire tout ce qui appartient à la progressbar (si j'enlève je me retrouve avec plein d'erreur sur mes EndIf. Si quelqu'un pourrait m'éclairer sur la syntaxe à adopter

Merci beaucoup