[R] Aide Variable Débutant

[Andranik]

Bonjour,

Je suis nouveau sur ce forum.

Voilà mon idée.

Dans la boite ou je travail, on doit préparer des PC et la plus part du temps il faut installer les même logiciel.
Les Pc ne sont pas les même et donc je ne peut pas créer des images Ghost.
Pour cela je me suis pris au AutoIt.

J'ai fait un script qui va installer tout une liste des logiciel, tout ce passe bien.

j'utilise ShellExecute avec une liste des commande pour tout automatiser.

Mais voilà ma question:

Il est possible d'attribuer une installation avec les commande pour installation automatique à une variable?
Pour ensuite créer un menu ou je vais proposer deux choix d'installation :
(exemple)
Si on choisi d'installer le 1 alors je exécute la variable 1 et 3
Si on choisi d'installer le 2 alors je exécute les variable 2 et 4...
Merci pour votre aide !

[timmalos]

Je pense que vous ne prenez pas le problème du bon point de vue : Votre question claire du tout

Il est possible d'attribuer une installation avec les commande pour installation automatique à une variable?

Essayez de préciser votre pensée afin que nous puissions vous aiguiller vers la bonne solution.

[Andranik]

Alors l'idée c'est de créer un exécutable qui va m'afficher plusieurs proposition (ex: Install Caisse ou Install Serv)
Si je sélectionne Caisse, alors il m'installe les logiciel de caisse.
Si je sélectionne Serv, alors il m'installe les logiciel du serv.

Donc moi j'ai pensé a créer une variable qui va exécuter une série de commande (ex: exécuter un logiciel , taper entrer tab...)

Apres quand j’exécute le programme et je choisi Serv il m’exécute une suite de variable

C'est mieux?

[timmalos]

C'est deja mieux en effet Ce que je vous conseille, c'est de créer une fonction par logiciel qui contiendra tout ce que vous devez faire pour ce logiciel. Par exemple

Code : Tout sélectionner

Func acrobat_reader()
   ShellExecute("setup.exe")
   ControlClick blabla
   etc...
EndFunc

Puis vous creez un tableau qui donne pour chaque logiciel la liste les groupes pour lequel il doit être installé.
Plusieurs solutions sont possibles, l'idée c'est que quand l'utilisateur choisit un groupe on doit obtenir un tableau contenant la liste des logiciels qu'on doit installer.

Disons qu'on obtient $liste_programmes=["acrobat_reader","google_chrome",etc...]
Il suffit alors de procéder ainsi :

Code : Tout sélectionner

For $i=0 to Ubound($liste_programmes)-1
    Call($liste_programmes[$i])
Next

La fonction Call va alors appeler notre fonction acrobat_reader(), puis google_chrome(),etc...

[Andranik]

Merci pour votre repense, mais j'ai pas bien compris la deuxième partie.
Je suis vraiment débutant.
^^
Merci pour votre aide !

Voila ce que j'ai fait ! Mais ne fonctionne pas

► Afficher le texte

Code : Tout sélectionner

$rep = InputBox("Installation Logiciel", "Quel installation voulez vous effectuer?") ;\\ Comment leur proposer de choisir entre Caisse et Serveur? 
 
For $rep=serveur to Ubound($liste_programmes0)-1
    Call($liste_programmes0[$rep])
    Next

For $rep=caisse to Ubound($liste_programmes1)-1
    Call($liste_programmes1[$rep])
    Next

$liste_programmes0=["ammyy","Chrossloop","vfp","Chrome"]
$liste_programmes1=["vfp","Chrome"]


#requireadmin

Func Ammyy()
   ; Copie fichier AA_v3.exe dans c:\Windows
FileCopy ( "AA_v3.exe", "c:\windows")


; Affichage d'une infobulle d'information
TrayTip("Ammyy","Début d'installation d'Ammy",1000)

;Lance du programme d'installation
ShellExecute("AA_v3.exe")


; Attendre la fenetre principale du programme Ammyy
WinWaitActive("Ammyy")

Sleep (1000)

Send ("{ALT}") ;alt
Send ("{ENTER 2}");enter
Send ("{TAB 5}") ;tab
Send ("{ENTER}");enter
Send ("{TAB}") ;tab
Send ("{ENTER}");enter
Send ("{TAB 3}") ;tab


;Pause de 3 secondes
Sleep(1000)

Send ("kangourousav")
Send ("{TAB}") ;tab
Send ("kangourousav")
;Send ("{TAB}") ;tab
Send ("{ENTER}");enter
Sleep(1000)
Send ("{TAB 6}") ;tab
Send ("{ENTER}");enter
Send ("{TAB 2}") ;tab
Send ("{ENTER}");enter

;Pause de 3 secondes
Sleep(1000)


Send ("{ALT}") ;alt
Send ("{DOWN 3}") ;down
Send ("{RIGHT}") ;droite
Send ("{ENTER 2}");enter
Send ("{ALT}") ;alt
Send ("{DOWN 3}") ;down
Send ("{RIGHT}") ;droite
Send ("{DOWN}") ;down
Send ("{ENTER 2}");enter
Send ("!{F4}")
EndFunc

Func Chrossloop()
   ; Affichage d'une infobulle d'information
TrayTip("Installation de Croosloop","Début d'installation de Croosloop",1000)


;Lance du programme d'installation
ShellExecute("Crls.exe")

; Attendre la fenetre principale du programme Croosloop
WinWaitActive("Langue de l'assistant d'installation")

; Effectuer un Ok Pour choisir la langue Fr
Opt("WinTitleMatchMode", 1)
WinWaitActive( "Langue de l'assistant d'installation" )
Send ("{TAB}")
Send ("{ENTER 2}")
Send ("{TAB}")
Send ("{UP}")
Send ("{ENTER}")
Send ("{ENTER}")
Send ("{ENTER}")
Opt("WinTitleMatchMode", 1)
WinWaitActive( "Installation - CrossLoop","Fin de l'installation de CrossLoop" )
Send ("{SPACE}")
Send ("{ENTER}")
EndFunc

Func NET()
   TrayTip("Installation .NET Framwark4","Début d'installation",1000)

;Lance du programme d'installation
ShellExecute("Net4.exe")


Sleep(100)


Opt("WinTitleMatchMode", 1)
WinWaitActive( "Installation de Microsoft .NET" )

Send( "{TAB 3}" )
Send ( "{SPACE}" )
Send ( "{ENTER}" )

Opt("WinTitleMatchMode", 1)
WinWaitActive( "Installation de Microsoft .NET","Installation terminée" )
Send( "{TAB}" )
Send ( "{ENTER}" )
EndFunc

Func vfp()
   ;Installation Setup9

TrayTip("Installation VFP","Début d'installation Setup9",1000)

ShellExecute("Setupvfp\setup9.exe")


Opt("WinTitleMatchMode", 1)
WinWaitActive( "Installshield Wizard","Bienvenue dans l'Installshield" )

sleep(1000)
send ("{ENTER}")
send ("{UP}")
send ("{ENTER}")
send ("{ENTER}")
send ("{ENTER}")
send ("{ENTER}")
WinWaitActive( "Installshield Wizard","Installhield Wizard de Runtime VFP9 terminé" )
send ("{ENTER}")

; Installation VFPOLEDBSetup


TrayTip("Installation VFP","Début d'installation VFPOLEDBSetup",1000)
ShellExecute("Setupvfp\VFPOLEDBSetup.msi")
Sleep(100)
Opt("WinTitleMatchMode", 1)
WinWaitActive( "Microsoft Visual FoxPro")

send ("{ENTER}")
WinWaitActive( "Microsoft Visual FoxPro","License Agreement")
Send ("!a")
send ("{ENTER}")
send ("{ENTER}")
Opt("WinTitleMatchMode", 1)
WinWaitActive( "Microsoft Visual FoxPro","Select Installation Folder")
send ("{ENTER}")
send ("{ENTER}")
Opt("WinTitleMatchMode", 1)
WinWaitActive( "Microsoft Visual FoxPro","Installation Complete")
send ("{ENTER}")

; Installation Smb2

TrayTip("Installation VFP","Début d'installation smb2",1000)
ShellExecute("Setupvfp\smb2-infocache.msi")
Sleep(10000)
;install Softpos=============================================================================================================
TrayTip("Installation SoftPos5","Copie Du Dossier SoftPost",1000)
DirCreate("C:\SOFTPOS5")
FileCopy ( "SOFTPOS5\*.*", "c:\SOFTPOS5")
EndFunc

Func Chrome()
   TrayTip("Installation Chrome","Début d'installation",1000)

;Lance du programme d'installation
ShellExecute("Chrome.exe")


sleep(15000)
While 1
If Not ProcessExists("chrome.exe")Then ExitLoop
ProcessClose("Chrome.exe")     
WEnd

Send ("!{TAB}")
Send ("!{F4}") 

EndFunc


 

[Hugues]

Salut,

Pour le choix entre Caisse ou Serveur, tu peux faire afficher un GUI avec du genre

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$GUI = GUICreate("Choisissez...", 226, 77, 192, 124)
$Radio1 = GUICtrlCreateRadio("Caisse", 8, 8, 65, 17)
$Radio2 = GUICtrlCreateRadio("Serveur", 72, 8, 113, 17)
$Button1 = GUICtrlCreateButton("OK", 48, 32, 43, 25)
GUISetState(@SW_SHOW)

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

    EndSwitch
WEnd

Ensuite tu as des erreurs ici:

Code : Tout sélectionner

$rep=serveur

et

Code : Tout sélectionner

$rep=caisse

car serveur et caisse ne sont pas des variables donc pas interpretables -> Erreur ^^

Ensuite du appelle tes liste de programme avant de les avoir défini:

Code : Tout sélectionner

For $rep=serveur to Ubound($liste_programmes0)-1
    Call($liste_programmes0[$rep])
    Next

For $rep=caisse to Ubound($liste_programmes1)-1
    Call($liste_programmes1[$rep])
    Next

$liste_programmes0=["ammyy","Chrossloop","vfp","Chrome"]
$liste_programmes1=["vfp","Chrome"]

Un exemple, c'est peut-être pas ce que tu recherches non plus...

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)


Global $liste_programmes0[4], $liste_programmes1[2]

Dim $liste_programmes0[4] = ["ammyy","Chrossloop","vfp","Chrome"]
Dim $liste_programmes1[2] = ["vfp","Chrome"]

Local $GUI = GUICreate("Choisir...", 226, 77, 192, 124)
Local $Radio1 = GUICtrlCreateRadio("Caisse", 8, 8, 65, 17)
Local $Radio2 = GUICtrlCreateRadio("Serveur", 72, 8, 113, 17)
Local $Button1 = GUICtrlCreateButton("OK", 48, 32, 43, 25)
GUICtrlSetOnEvent($Button1, "_Choose")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlSetState($radio2, $GUI_CHECKED)
GUISetState(@SW_SHOW)

Func _Choose()
    Select
        Case BitAND(GUICtrlRead($radio1), $GUI_CHECKED) = $GUI_CHECKED
            GUIDelete()
            _LoadListProg0()
        Case BitAND(GUICtrlRead($radio2), $GUI_CHECKED) = $GUI_CHECKED
            GUIDelete()
            _LoadListProg1()
    EndSelect
EndFunc

 While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func _LoadListProg0()
    For $i = 0 to Ubound($liste_programmes0) - 1
        Call($liste_programmes0[$i])
    Next
EndFunc

Func _LoadListProg1()
    For $i = 0 to Ubound($liste_programmes1) - 1
        Call($liste_programmes1[$i])
    Next
EndFunc

Func ammyy()
    SplashTextOn("Software installation", "Installation de ammyy en cours...")
    sleep(2000)
    SplashOff()
EndFunc

Func Chrossloop()
    SplashTextOn("Software installation", "Installation de Chrossloopen cours...")
    sleep(2000)
    SplashOff()
EndFunc

Func vfp()
    SplashTextOn("Software installation", "Installation de vfp en cours...")
    sleep(2000)
    SplashOff()
EndFunc

Func Chrome()
    SplashTextOn("Software installation", "Installation de Chrome en cours...")
    sleep(2000)
    SplashOff()
EndFunc

Func _Exit()
    Exit
EndFunc
 

[jguinch]

Les Pc ne sont pas les même et donc je ne peut pas créer des images Ghost.

Je sais que ça n'a rien à voir avec AutoIt, mais est-ce que tu connais MDT (Microsoft Deployment Toolkit) ? C'est vraiment adapté pour ce genre de choses.

[timmalos]

Vu le script que tu as mis, il n'y a clairement rien que nous puissions faire pour t'aider à part si quelqu'un prend le temps d'ecrire un script complet, et ça ne sera pas moi

Soit vous regardez plus en détails le lien de jguinch qui peut résoudre votre problème, soit vous faites des recherches car vous n'etes pas le premier à faire un logiciel de ce type en AutoIt et le forum regorge de pleins d'exemples, soit vous commencez par lire un tutorirel AutoIt pour reprendre les bases que vous n'avez pas.

[Andranik]

Merci, vous m'avais bien aider avec votre scripte.
Je vais essayer de le comprendre.
Mais j'ai essayer et c'est top
Merci merci merci
Et j'ai pas utiliser le tool kit juste parce-que javais une envie d'apprendre a faire un scripte et je vais essayer d'apprendre sur ce site qui est TOP merci C'est [R]