AutoIt Français

Code : Tout sélectionner

#include <Constants.au3>
#include <array.au3>


;$title_arg="to_send_ssh.txt"
$title_arg="test.txt"
if FileExists($title_arg) Then FileDelete($title_arg)
FileWriteLine($title_arg,"logout") ; all case for unix
FileWriteLine($title_arg,"exit") ; some case Win32

;init des messages de retours
$mess_err_pb_connexion_machine="Unable to open connection:" ; message typique de plink lorsqu'une machine n'est pas joignable
$pb_access_login="Access denied" ; erreur générique, peut être à complèter avec d'autres messages dépendant des serveur
; et en faire un tableau de message d'erreur dédié au login à parcourir
$pb_mdp="Wrong passphrase" ; pb mot de passe , même remarque que précédément

;section des init des paramètres
;il faudra initialiser ces variables par lecture de fichier ini est faire une boucle
$password="xxxxxxxx"
$login="xxxxxxxxxxx"
$machine='xxx.xxx.xxx.xxx'
$port=22
$flux_out=Run(@ComSpec&' /c plink -pw '&$password&' '&$login&'@'&$machine&' < '&$title_arg,@WorkingDir,@SW_HIDE,$STDERR_CHILD + $STDOUT_CHILD)
;$flux_out=Run(@ComSpec&' /c ssh -R '$machine& ':'&$port&$password&' '&$login&'@'&$machine&' < '&$title_arg,@WorkingDir,@SW_HIDE,$STDERR_CHILD + $STDOUT_CHILD)

$rep_err=""
$rep_ok=""

While 1
    $rep_err &= StderrRead($flux_out)
    If @error Then ExitLoop
   
    $rep_ok &= StdoutRead($flux_out)
    If @error Then ExitLoop
Wend

If StringInStr($rep_err,$pb_mdp)<>0 Then
        MsgBox(0,"Pb connection","Mot de passe erronné pour login "&$login&" sur machine "&$machine)
Else    
    If StringInStr($rep_err,$mess_err_pb_connexion_machine)<>0 Then
        MsgBox(0,"Pb connection","Impossible de joindre "&$machine)
    Else
        If StringInStr($rep_err,$pb_access_login)<>0 Then
            MsgBox(0,"Pb connection",$pb_access_login&" n'est pas authorisé à se connecter sur "&$machine)
        Else
            MsgBox(0,"connection OK","Connection établie sur "&$machine&' pour le compte '&$login)
        EndIf
    EndIf
EndIf
MsgBox(0, "STDOUT read:", $rep_ok)
MsgBox(0, "STDERR read:", $rep_err)
Exit 0