expect (interact) + Tk

[sebizzo]

Bonjour,

J'utilise le script suivant pour me connecter automatiquement à des switchs et dialoguer de façon interactive en telnet :

#!/bin/sh

package require Expect

spawn telnet X.X.X.X
# attend "Username"
expect "Username:*"

# Envoi du login
exp_send "admin\n"

# attend "Password"
expect "Password:*"

# Envoi du password
exp_send "mot_de_passe\r"

exp_send "\r\r"
# attend la fin du prompt
expect ">"

# donne la main pour lancer les commandes
interact

Je souhaiterai réaliser la même chose en l'intégrant dans uns une fenêtre Tk en utilisant un widget Scrollbox (qui serait donc une boite de dialogue).
Est-ce possible et si oui comment procéder ?

Merci par avance