AutoIt Français

Bonjour,

Je développe une application de distribution de paquets MSI sur des machines clientes.

Cette application fait la chose suivante :

- permet à l'administrateur réseau de choisir l'emplacement d'un paquet MSI
- crée des raccourcis dans les menu démarrer des groupes d'utilisateurs que l'on souhaite (dans un environnement SAMBA et profils itinérants)
- après validation, l'interface créée un "lanceur" que va exécuter le client sur son poste. Ce lanceur rehausse les droits avec un RunAsSet(), et fait office de lanceur automatique : si le programme est déjà installé, ça le lance, sinon, ça lance le MSI.

Après cette explication généraliste, j'en viens au fait et à ma question :

Au lancement de l'interface par l'administrateur, le mot de passe du compte d'installation contenu dans un fichier INI est comparé à celui existant sur le serveur. Pour ce faire, je fais un RunAsSet avec le mot de passe du INI.

Je voudrais que si ça marche, l'interface soit lancée. Sinon, je voudrais mettre à jour le INI en demandant le mot de passe actuel.

Problème : quand mon RunAsSet échoue car le mot de passe du INI est erroné, j'ai un message d'erreur fatal. Le programme s'arrête là et je ne peux pas demander de mettre à jour le fichier INI ... Voir message en fichier joint.

Ci-dessous ma fonction de comparaison.

Merci pour votre aide.

Cordialement.

► Afficher le texte

Code : Tout sélectionner

Func ComparePwds()
    Local $INIPwd
    Local $NewPwd = ""
    Local $CurrentUserName
    $INIPwd = IniRead("T:\logiciels\alias\" & $INIFile, "PWD", "EncryptedPwd", "empty")
    If $INIPwd = "empty" Then
        $NewPwd = InputBox("Erreur", "Le mot de passe n'a pas encore été encodé dans le fichier INI. Renisegnez-le dans la zone ci-dessous afin d'assurer la bonne installation des logiciels par les postes clients.", "", "*")
        While $NewPwd = ""
            $NewPwd = InputBox("Erreur", "Merci de saisir un mot de passe.", "", "*")
        WEnd
        RunAsSet("install", "SCRIIBE", $NewPwd)
        RunWait(@ComSpec & " /C echo %USERNAME% > C:\TestPwd.txt", "C:\WINDOWS\system32\", @SW_HIDE)
        RunAsSet()
        $TempPwd = FileOpen("C:\TestPwd.txt", 0)
        $CurrentUserName = FileRead($TempPwd, 7)
        FileClose($TempPwd)
        FileDelete("C:\TestPwd.txt")
        If StringInStr("install", $CurrentUserName) < 1 Then
            Msgbox(1, "Erreur", "Le mot de passe que vous avez saisi ne correspond pas à celui de l'installeur Scribe. Relancez l'application et entrez le mot de passe à nouveau.")
            RunAsSet()
            Exit
        Else
            RunAsSet()
            IniWrite("T:\logiciels\alias\" & $INIFile, "PWD", "EncryptedPwd", _StringEncrypt (1, $NewPwd, $EncondingKey, 2))
        EndIf
    Else
        $INIPwd =  _StringEncrypt (0, $INIPwd, $EncondingKey, 2)
        RunAsSet("install", "SCRIIBE", $INIPwd)
        RunWait(@ComSpec & " /C echo %USERNAME% > C:\TestPwd.txt", "C:\WINDOWS\system32\", @SW_HIDE)
        RunAsSet()
        $TempPwd = FileOpen("C:\TestPwd.txt", 0)
        $CurrentUserName = FileRead($TempPwd, 7)
        FileClose($TempPwd)
        FileDelete("C:\TestPwd.txt")
        If StringInStr("install", $CurrentUserName) < 1 Then
            Msgbox(1, "Erreur", "Le mot de passe contenu dans le fichier INI ne correspond pas à celui du serveur Scribe. Le mot de passe actuel va vous être demandé pour mettre à jour le fichier INI.")
            RunAsSet()
            IniWrite("T:\logiciels\alias\" & $INIFile, "PWD", "EncryptedPwd",  _StringEncrypt (1, InputBox("Mot de passe", "Quel est le mot de passe actuel du compte install ?", "", "*"), $EncondingKey, 2))
            ComparePwds()
        Else
            RunAsSet()
        EndIf
    EndIf
EndFunc

Bonjour,

En regardant dans le fichier d'aide d'AutoIt concernant la commande RunAsSet(), je suis tombé sur ceci:

RunErrorsFatal: Sets if the script should terminate with a fatal error if a Run/RunWait function fails due to bad paths/file not found/Bad login IDs:
1 = fatal error (default)
0 = silent error (@error set to 1)

Est-ce que le fait de mettre cette option d'AutoIt à 0 avec un:

Code : Tout sélectionner

Opt("RunErrorsFatal", 0)

ne pourrait pas solutionner ton souci?

L'erreur serait silencieuse et tu pourrais à priori catcher l'erreur en regardant la valeur de la variable @error pour y associer un traitement spécifique.

Cordialement,

C'est exactement ça. Je n'étais pas parvenu à trouver la solution, je m'attendais à un #quelquechose et j'ai cherché dans ce sens sans succès.

Merci pour ta réactivité et la pertinence de ta réponse.

AutoIt Français

[R] Ignorer les erreurs d'exécution

[R] Ignorer les erreurs d'exécution

Re: [..] Ignorer les erreurs d'exécution

Re: [..] Ignorer les erreurs d'exécution