AutoIt Français

Code : Tout sélectionner

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

$title_arg="to_send_ssh.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="mdp"
$login="login"
$machine='remote_machine'
$flux_out=Run(@ComSpec&' /c plink -pw '&$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
 

Code : Tout sélectionner

$host = _XLRange ($XL_READVALUE, "L" & $dep_r & ":L" & $fin_r)

Code : Tout sélectionner

$host = _XLRange ($XL_READVALUE, "D" & $dep_r & ":D" & $fin_r)