[..] Automatisation de Telnet avec collecte du texte console

[Cyril]

Bonjour à tous,

Je cherche depuis quelques jours sur les divers forums, je pense m'approcher de la solution mais ça ne fonctionne toujours pas. Je post dans l'espoir de trouver un correcteur ...

Objectif du code:
lancer depuis "cmd.exe" une ligne de commande du type monautoitcompile.exe "login" "password" "ip" "mycmd_VxWorks" "telnet" pour interroger un serveur telnet sur un système distant.

Bon je parviens à me connecter au serveur, me logger puis lancer ma commande.
La fenêtre affiche bien le résultat mais je ne parviens pas à récupérer le texte que ce soit avec StdoutRead ou la fonction WinGetText($handle). Tous les retours sont vides.

Je vous joins le code:

Code : Tout sélectionner

#include <Constants.au3>
dim $loop,$sCmdC264
 
If $cmdline[0] <> 0 Then
    Local $sCmd = ""
    Local $sIP=""
    for $i = 1 to $cmdline[0]
        ;MsgBox(0,"Valeur du parametre n°"&$cmdline[$i]," = "&$cmdline[$i])
        if $i=1 then Local $sUserName = $cmdline[$i]
        if $i=2 then Local $sPassword = $cmdline[$i]
        if $i=3 then Local $sIP= $cmdline[$i]   
        if $i=4 then Local $sCmdC264= $cmdline[$i]     
        if $i>4 then $sCmd &= $cmdline[$i] & " "
    next
EndIf

Local $foo = RunAs ( $sUserName, $sIP, $sPassword, 1, $sCmd,@SystemDir,@SW_HIDE,$STDERR_MERGED)


Send($sCmd & "{ENTER}") 
Send("o " & $sIP & "{ENTER}")   

For $loop = 1 to 3 
      sleep(2000)
      Send($cmdline[$loop] & "{ENTER}")    
   Next
 
Local $handle = WinGetHandle("Telnet " & $sIP)
WinActivate($handle)
WinWaitActive($handle)
Local $text = WinGetText($handle)
MsgBox(0, "Text read was:", $text)

Local $line
    While 1
        $line = StdoutRead($foo)
        If @error Then ExitLoop
        if $line<>"" then MsgBox(0, "$line", $line)
    Wend

    While 1
        $line = StderrRead($foo)
        If @error Then ExitLoop
        if $line<>"" then MsgBox(0, "$line", $line)
    Wend
 
Send("exit" & "{ENTER}")
Send("quit" & "{ENTER}") 

 

En vous remerciant par avance de vos suggestions.

[leoclem]

Bonsoir,

Ayant été confronté au même problème dans ce sujet :
http://autoitscript.fr/forum/viewtopic.php?f=3&t=6689

Je ne saurais que trop vous conseiller de passer par plink.exe (client putty très léger en lignes de commandes) ainsi que le lien fourni par Tlem à la fin qui permet de le piloter plus simplement.

A très bien fonctionné pour moi en tout cas.

En espérant vous avoir aidé

Bonne soirée

[matwachich]

D'abords, Send ne marchera pas car votre fenêtre telnet est invisible. Il faut utiliser StdinWrite, en plus les flags de lancement de RunAs ne sont pas bons à mon avis, il faut faire $STDIN_CHILD + $STDOUT_CHILD pour pouvoir lire et écrire dans la console.

En suite, n'ayant pas de telnet sur mon pc (allez savoir pourquoi il n'a pas voulu s'activer...) j'ai pas pu tester, mais voila ce que j'ai fait:

► Afficher le texte

Code : Tout sélectionner

Dim $loop, $sCmdC264

If $CmdLine[0] < 4 Then Exit
; ---

Global $sUserName, $sPassword, $sIP, $sCmdC264, $sCmd
; ---
$sUserName = $cmdline[0]
$sPassword = $cmdline[1]
$sIP = $cmdline[2]
$sCmdC264 = $cmdline[3]
; ---
For $i = 4 To $CmdLine[0]
    $sCmd &= $CmdLine[$i] & " "
Next
$sCmd = StringTrimRight($sCmd, 1)
; ---

Global $pid = RunAs($sUserName, $sIP, $sPassword, 1, $sCmd, @SystemDir, @SW_HIDE, 0x1 + 0x2)

; à partir d'ici, appelez vos commande avec la fonction _SendCmd, le premier paramètre doit être
; la commande (sans & "{enter}"), et le 2 spécifie si vous voulez attendre le résultat de la commande
; ou pas, si c'est oui, la fonction lira ce qui est retourner dans la console jusqu'à ce que
; il est retourné (écrit) "telnet> " (si ce n'est pas ça qui s'inscrit au début d'une ligne dans
; la console telnet, alors modifiez le)

; je suppose que ça devrai donner ça:
Global $ret
$ret = _SendCmd($sCmd, 1)
ConsoleWrite($ret & @CRLF & "===============================" & @CRLF)

$ret = _SendCmd("o " & $sIP, 1)
ConsoleWrite($ret & @CRLF & "===============================" & @CRLF)

For $i = 1 To 3
    $ret = _SendCmd($CmdLine[$i], 1)
    ConsoleWrite($ret & @CRLF & "===============================" & @CRLF)
Next

; après la, je voit pas pourquoi vous avez besoin du titre de la fenêtre!

_SendCmd("exit")
_SendCmd("quit")

#cs
Send($sCmd & "{ENTER}")
Send("o " & $sIP & "{ENTER}")

For $loop = 1 To 3
    Sleep(2000)
    Send($cmdline[$loop] & "{ENTER}")
Next

Local $handle = WinGetHandle("Telnet " & $sIP)
WinActivate($handle)
WinWaitActive($handle)
Local $text = WinGetText($handle)
MsgBox(0, "Text read was:", $text)

Local $line
While 1
    $line = StdoutRead($foo)
    If @error Then ExitLoop
    If $line <> "" Then MsgBox(0, "$line", $line)
WEnd

While 1
    $line = StderrRead($foo)
    If @error Then ExitLoop
    If $line <> "" Then MsgBox(0, "$line", $line)
WEnd

Send("exit" & "{ENTER}")
Send("quit" & "{ENTER}")
#ce

Func _SendCmd($sCmd, $iWait = 0)
    StdinWrite($pid, $sCmd & @CRLF)
    If Not $iWait Then Return
    ; ---
    Local $read, $str = ""
    While 1
        $read = StdoutRead($pid)
        If $read Then $str &= $read
        ; ---
        If StringRight($str, StringLen("telnet> ")) = "telnet> " Then Return $str
    WEnd
EndFunc