Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1765 connectés 

  FORUM HardWare.fr
  Programmation
  Shell/Batch

  Faire échap en expect

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Faire échap en expect

n°2187219
pierra56
Posté le 23-04-2013 à 17:42:32  profilanswer
 

Mais j'ai un gros problème à un moment je dois faire un echap pour pour valider, et sa ne marche pas!  
 
voila le script
 
"Login Screen" {
send "\r"
sleep 2
send "$user"
send "\t"
sleep 2
send "$passwd"
send "\e"            
sleep 2
send "\t"
send "\n"
send "\n"
sleep 1; send "\cZ"
send "lcli\r"
send "$user"
send "\r"
A oui ça écrit l'utilisateur et le mot de passe a suivre! je ne comprend pas pourquoi!
Merci de votre aide.
PA


Message édité par gilou le 24-04-2013 à 19:46:52
mood
Publicité
Posté le 23-04-2013 à 17:42:32  profilanswer
 

n°2187359
gilou
Modérateur
Modzilla
Posté le 24-04-2013 à 12:38:47  profilanswer
 

1) Message incompréhensible. Faudrait expliquer ce qui vous pose problème, la on ne le sait pas ce qui ne va pas, ni dans quel contexte. "Faire un echap", c'est clair comme du jus de chaussette de marathonien à l'arrivée.
2) Manque le code autour. Il en manque tellement que c'est pas un script perl pour le moment ce qui est posté.
A+,


Message édité par gilou le 24-04-2013 à 12:39:23

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
n°2187432
pierra56
Posté le 24-04-2013 à 17:45:36  profilanswer
 

oups, il manque une partie dans mon message désoler. Merci pour ta réponse!!
Je reprends,
 
Enfaite je veux modifier un script déja existant qui sert a se connecter à un switch Linksys version 1.0.4. or les switch que je possède sont à la version 1.0.2 et il m'est impossible de les mettres à jour. (il y en a trop et dans toutes la Bretagne.)
 
Voici le script de la version 1.0.4 c'est le csblogin https://github.com/chrpinedo/rancid [...] 8b02482d8e
La différence entre ces deux versions c'est juste la procédure de connexion.
Ah oui je me suis tromper c'est un script en expect  :sweat:  
 
Voici le code en entier (il fonctionne pour la 1.0.4):
 

Code :
  1. #! /usr/bin/expect --
  2. ##
  3. ## $Id: csblogin,v 1.3 2010-01-28 13:12:00 bjorn Exp $
  4. ##
  5. ## rancid 2.3.2a8
  6. ## Copyright (c) 1997-2007 by Terrapin Communications, Inc.
  7. ## All rights reserved.
  8. ##
  9. ## This code is derived from software contributed to and maintained by
  10. ## Terrapin Communications, Inc. by Henry Kilmer, John Heasley, Andrew Partan,
  11. ## Pete Whiting, Austin Schutz, and Andrew Fort.
  12. ##
  13. ## Redistribution and use in source and binary forms, with or without
  14. ## modification, are permitted provided that the following conditions
  15. ## are met:
  16. ## 1. Redistributions of source code must retain the above copyright
  17. ##    notice, this list of conditions and the following disclaimer.
  18. ## 2. Redistributions in binary form must reproduce the above copyright
  19. ##    notice, this list of conditions and the following disclaimer in the
  20. ##    documentation and/or other materials provided with the distribution.
  21. ## 3. All advertising materials mentioning features or use of this software
  22. ##    must display the following acknowledgement:
  23. ##        This product includes software developed by Terrapin Communications,
  24. ##        Inc. and its contributors for RANCID.
  25. ## 4. Neither the name of Terrapin Communications, Inc. nor the names of its
  26. ##    contributors may be used to endorse or promote products derived from
  27. ##    this software without specific prior written permission.
  28. ## 5. It is requested that non-binding fixes and modifications be contributed
  29. ##    back to Terrapin Communications, Inc.
  30. ##
  31. ## THIS SOFTWARE IS PROVIDED BY Terrapin Communications, INC. AND CONTRIBUTORS
  32. ## ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  33. ## TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  34. ## PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COMPANY OR CONTRIBUTORS
  35. ## BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  36. ## CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  37. ## SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  38. ## INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  39. ## CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  40. ## ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  41. ## POSSIBILITY OF SUCH DAMAGE.
  42. #
  43. #  The expect login scripts were based on Erik Sherk's gwtn, by permission.
  44. #
  45. # csblogin - Cisco/Linksys "Small Business" switch login
  46. #
  47. # Most options are intuitive for logging into a Cisco router.
  48. # The default username password is the same as the vty password.
  49. #
  51. # Usage line
  52. set usage "Usage: $argv0 \[-dV\] \[-c command\] \[-Evar=x\] \
  53. \[-f cloginrc-file\] \[-p user-password\] \[-r passphrase\] \[-s script-file\] \
  54. \[-u username\] \[-t timeout\] \[-x command-file\] \[-y ssh_cypher_type\] \
  55. router \[router...\]\n"
  57. # env(CLOGIN) may contain the following chars:
  58. # x == do not set xterm banner or name
  60. # Password file
  61. set password_file $env(HOME)/.cloginrc
  62. # Default is to login to the router
  63. set do_command 0
  64. set do_script 0
  65. # The default is to automatically enable
  66. set avenable 1
  67. # The default is to look in the password file to find the passwords.  This
  68. # tracks if we receive them on the command line.
  69. set do_passwd 1
  71. # Find the user in the ENV, or use the unix userid.
  72. if {[ info exists env(CISCO_USER) ]} {
  73.     set default_user $env(CISCO_USER)
  74. } elseif {[ info exists env(USER) ]} {
  75.     set default_user $env(USER)
  76. } elseif {[ info exists env(LOGNAME) ]} {
  77.     set default_user $env(LOGNAME)
  78. } else {
  79.     # This uses "id" which I think is portable.  At least it has existed
  80.     # (without options) on all machines/OSes I've been on recently -
  81.     # unlike whoami or id -nu.
  82.     if [ catch {exec id} reason ] {
  83. send_error "\nError: could not exec id: $reason\n"
  84. exit 1
  85.     }
  86.     regexp {\(([^)]*)} "$reason" junk default_user
  87. }
  88. if {[ info exists env(CLOGINRC) ]} {
  89.     set password_file $env(CLOGINRC)
  90. }
  92. # Sometimes routers take awhile to answer (the default is 10 sec)
  93. set timeout 120
  95. # Process the command line
  96. for {set i 0} {$i < $argc} {incr i} {
  97.     set arg [lindex $argv $i]
  99.     switch  -glob -- $arg {
  100. # Command to run.
  101. -c* -
  102. -C* {
  103.     if {! [  regexp .\[cC\](.+) $arg ignore command]} {
  104.  incr i
  105.  set command [ lindex $argv $i ]
  106.     }
  107.     set do_command 1
  108. # Expect debug mode
  109. } -d* {
  110.     exp_internal 1
  111. # Environment variable to pass to -s scripts
  112. } -E*
  113. {
  114.     if {[ regexp .\[E\](.+)=(.+) $arg ignore varname varvalue]} {
  115.  set E$varname $varvalue
  116.     } else {
  117.  send_user "\nError: invalid format for -E in $arg\n"
  118.  exit 1
  119.     }
  120. # alternate cloginrc file
  121. } -f* -
  122. -F* {
  123.     if {! [ regexp .\[fF\](.+) $arg ignore password_file]} {
  124.  incr i
  125.  set password_file [ lindex $argv $i ]
  126.     }
  127. # user Password
  128. } -p* -
  129. -P* {
  130.     if {! [  regexp .\[pP\](.+) $arg ignore userpasswd]} {
  131.  incr i
  132.  set userpasswd [ lindex $argv $i ]
  133.     }
  134.     set do_passwd 0
  135. # Version string
  136. } -V* {
  137.     send_user "rancid 2.3.2a8\n"
  138.     exit 0
  139. # passphrase
  140. } -r* -
  141. -R* {
  142.     if {! [  regexp .\[rR\](.+) $arg ignore passphrase]} {
  143.  incr i
  144.  set avpassphrase [ lindex $argv $i ]
  145.     }
  146. # Expect script to run.
  147. } -s* -
  148. -S* {
  149.     if {! [  regexp .\[sS\](.+) $arg ignore sfile]} {
  150.  incr i
  151.  set sfile [ lindex $argv $i ]
  152.     }
  153.     if { ! [ file readable $sfile ] } {
  154.  send_user "\nError: Can't read $sfile\n"
  155.  exit 1
  156.     }
  157.     set do_script 1
  158. # Timeout
  159. } -t* -
  160. -T* {
  161.     if {! [ regexp .\[tT\](.+) $arg ignore timeout]} {
  162.  incr i
  163.  set timeout [ lindex $argv $i ]
  164.     }
  165. # Username
  166. } -u* -
  167. -U* {
  168.     if {! [  regexp .\[uU\](.+) $arg ignore user]} {
  169.  incr i
  170.  set username [ lindex $argv $i ]
  171.     }
  172. # command file
  173. } -x* -
  174. -X* {
  175.     if {! [  regexp .\[xX\](.+) $arg ignore cmd_file]} {
  176.  incr i
  177.  set cmd_file [ lindex $argv $i ]
  178.     }
  179.     if [ catch {set cmd_fd [open $cmd_file r]} reason ] {
  180.  send_user "\nError: $reason\n"
  181.  exit 1
  182.     }
  183.             set cmd_text [read $cmd_fd]
  184.             close $cmd_fd
  185.             set command [join [split $cmd_text \n] \;]
  186.             set do_command 1
  187. # 'ssh -c' cypher type
  188. } -y* -
  189. -Y* {
  190.     if {! [  regexp .\[yY\](.+) $arg ignore cypher]} {
  191.  incr i
  192.  set cypher [ lindex $argv $i ]
  193.     }
  194. } -* {
  195.     send_user "\nError: Unknown argument! $arg\n"
  196.     send_user $usage
  197.     exit 1
  198. } default {
  199.     break
  200. }
  201.     }
  202. }
  203. # Process routers...no routers listed is an error.
  204. if { $i == $argc } {
  205.     send_user "\nError: $usage"
  206. }
  208. # Only be quiet if we are running a script (it can log its output
  209. # on its own)
  210. if { $do_script } {
  211.     log_user 0
  212. } else {
  213.     log_user 1
  214. }
  216. #
  217. # Done configuration/variable setting.  Now run with it...
  218. #
  220. # Sets Xterm title if interactive...if its an xterm and the user cares
  221. proc label { host } {
  222.     global env
  223.     # if CLOGIN has an 'x' in it, don't set the xterm name/banner
  224.     if [info exists env(CLOGIN)] {
  225. if {[string first "x" $env(CLOGIN)] != -1} { return }
  226.     }
  227.     # take host from ENV(TERM)
  228.     if [info exists env(TERM)] {
  229. if [regexp \^(xterm|vs) $env(TERM) ignore ] {
  230.     send_user "\033]1;[lindex [split $host "."] 0]\a"
  231.     send_user "\033]2;$host\a"
  232.         }
  233.     }
  234. }
  236. # This is a helper function to make the password file easier to
  237. # maintain.  Using this the password file has the form:
  238. # add password sl*  pete cow
  239. # add password at*  steve
  240. # add password * hanky-pie
  241. proc add {var args} { global int_$var ; lappend int_$var $args}
  242. proc include {args} {
  243.     global env
  244.     regsub -all "(^{|}$)" $args {} args
  245.     if { [ regexp "^/" $args ignore ] == 0 } {
  246. set args $env(HOME)/$args
  247.     }
  248.     source_password_file $args
  249. }
  251. proc find {var router} {
  252.   upvar int_$var list
  253.   if { [info exists list] } {
  254.     foreach line $list {
  255.       if { [string match [lindex $line 0] $router ] } {
  256. return [lrange $line 1 end]
  257.       }
  258.     }
  259.   }
  260.   return {}
  261. }
  263. # Loads the password file.  Note that as this file is tcl, and that
  264. # it is sourced, the user better know what to put in there, as it
  265. # could install more than just password info...  I will assume however,
  266. # that a "bad guy" could just as easy put such code in the clogin
  267. # script, so I will leave .cloginrc as just an extention of that script
  268. proc source_password_file { password_file } {
  269.     global env
  270.     if { ! [file exists $password_file] } {
  271. send_user "\nError: password file ($password_file) does not exist\n"
  272. exit 1
  273.     }
  274.     file stat $password_file fileinfo
  275.     if { [expr ($fileinfo(mode) & 007)] != 0000 } {
  276. send_user "\nError: $password_file must not be world readable/writable\n"
  277. exit 1
  278.     }
  279.     if [ catch {source $password_file} reason ] {
  280. send_user "\nError: $reason\n"
  281. exit 1
  282.     }
  283. }
  285. # Log into the router.
  286. # returns: 0 on success, 1 on failure
  287. proc login { router user passwd cmethod cyphertype identfile} {
  288.     global spawn_id in_proc do_command do_script passphrase prompt
  289.     global sshcmd
  290.     set in_proc 1
  292.     # try each of the connection methods in $cmethod until one is successful
  293.     set progs [llength $cmethod]
  294.     foreach prog [lrange $cmethod 0 end] {
  295. incr progs -1
  296. if [string match "telnet*" $prog] {
  297.     regexp {telnet(:([^[:space:]]+))*} $prog command suffix port
  298.     if {"$port" == ""} {
  299.  set retval [ catch {spawn telnet $router} reason ]
  300.     } else {
  301.  set retval [ catch {spawn telnet $router $port} reason ]
  302.     }
  303.     if { $retval } {
  304.  send_user "\nError: telnet failed: $reason\n"
  305.  return 1
  306.     }
  307. } elseif ![string compare $prog "ssh"] {
  308.     # ssh to the router & try to login with or without an identfile.
  309.     # We use two calls to spawn since spawn does not seem to parse
  310.     # spaces correctly.
  311.     if {$identfile != ""} {
  312.  if [ catch {spawn $sshcmd -c $cyphertype -x -l $user -i $identfile $router} reason ] {
  313.      send_user "\nError: failed to $sshcmd: $reason\n"
  314.      return 1
  315.  }
  316.     } else {
  317.  if [ catch {spawn $sshcmd -c $cyphertype -x -l $user $router} reason ] {
  318.      send_user "\nError: failed to $sshcmd: $reason\n"
  319.      return 1
  320.  }
  321.     }
  322. } elseif ![string compare $prog "rsh"] {
  323.     send_error "\nError: unsupported method: rsh\n"
  324.     if { $progs == 0 } {
  325.  return 1
  326.     }
  327.     continue
  328. } else {
  329.     send_user "\nError: unknown connection method: $prog\n"
  330.     return 1
  331. }
  332. sleep 0.3
  334. # This helps cleanup each expect clause.
  335. expect_after {
  336.     timeout {
  337.  send_user "\nError: TIMEOUT reached\n"
  338.  catch {close}; catch {wait};
  339.  if { $in_proc} {
  340.             return 1
  341.  } else {
  342.             continue
  343.  }
  344.             } eof {
  345.  send_user "\nError: EOF received\n"
  346.  catch {close}; catch {wait};
  347.  if { $in_proc} {
  348.             return 1
  349.  } else {
  350.             continue
  351.  }
  352.             }
  353. }
  355. # Here we get a little tricky.  There are several possibilities:
  356. # the router can ask for a username and passwd and then
  357. # talk to the TACACS server to authenticate you, or if the
  358. # TACACS server is not working, then it will use the enable
  359. # passwd.  Or, the router might not have TACACS turned on,
  360. # then it will just send the passwd.
  361. expect {
  362.     -re "(Connection refused|Secure connection \[^\n\r]+ refused|Connection closed by)" {
  363.  catch {close}; catch {wait};
  364.  if !$progs {
  365.     send_user "\nError: Connection Refused ($prog)\n"; return 1
  366.  }
  367.     }
  368.             eof { send_user "\nError: Couldn't login\n"; wait; return 1
  369.     } -nocase "unknown host\r\n" {
  370.  catch {close}; catch {wait};
  371.  send_user "\nError: Unknown host\n"; wait; return 1
  372.     } "Host is unreachable" {
  373.  catch {close}; catch {wait};
  374.  send_user "\nError: Host Unreachable!\n"; wait; return 1
  375.     } "No address associated with name" {
  376.  catch {close}; catch {wait};
  377.  send_user "\nError: Unknown host\n"; wait; return 1
  378.     }
  379.     "Bad user name or password" {
  380.     send_user "\nError: Check your password for $router\n"
  381.     catch {close}; catch {wait}; return 1
  382.   }
  383.     -re "Enter passphrase.*: " {
  384.  # sleep briefly to allow time for stty -echo
  385.  sleep 1
  386.  send "$passphrase\r"
  387.  exp_continue }
  388.     -re "(Host key not found |The authenticity of host .* be established).*\(yes\/no\)\?" {
  389.  send "yes\r"
  390.  send_user "\nHost $router added to the list of known hosts.\n"
  391.  exp_continue }
  392.     -re "HOST IDENTIFICATION HAS CHANGED.* \(yes\/no\)\?" {
  393.  send "no\r"
  394.  send_user "\nError: The host key for $router has changed.  Update the SSH known_hosts file accordingly.\n"
  395.  return 1 }
  396.     -re "Offending key for .* \(yes\/no\)\?"   {
  397.  send "no\r"
  398.  send_user "\nError: host key mismatch for $router.  Update the SSH known_hosts file accordingly.\n"
  399.  return 1 }
  400.     "Login Screen" {
  401.      send "$user\t$passwd\r"
  402.      exp_continue
  403.        }
  404.     "Switch Main Menu" {
  405.      # send Ctrl+Z
  406.      sleep 1; send "send \032"
  407.      exp_continue
  408.    }
  409.     ">"  {
  410.      send "lcli\r"
  411.      exp_continue
  412.    }
  413.     -re "User Name:$" {
  414.                 send "$user\r"
  415.      exp_continue
  416.    }
  417.     -re "Password:$" {
  418.                 send "$passwd\r"
  419.      exp_continue
  420.    }
  422.     -re "$prompt"  { break; }
  423.     denied { send_user "\nError: Check your password for $router\n"
  424.                   catch {close}; catch {wait}; return 1
  425.                 }
  426. }
  427.     }
  429.     set in_proc 0
  430.     return 0
  431. }
  433. # Run commands given on the command line.
  434. proc run_commands { prompt command } {
  435.     global in_proc
  436.     set in_proc 1
  438.     send "terminal datadump\r"
  439.     expect -re $prompt {}
  441.     # Is this a multi-command?
  442.     if [ string match "*\;*" "$command" ] {
  443. set commands [split $command \;]
  444. set num_commands [llength $commands]
  446. for {set i 0} {$i < $num_commands} { incr i} {
  447.     send "[lindex $commands $i]\r"
  448.     expect {
  449.  -re "^\[^\n\r *]*$prompt *$" {}
  450.  -re "^\[^\n\r]*$prompt." { exp_continue }
  451.  -re "(\r\n|\n)"   { exp_continue }
  452.             }
  453. }
  454.     } else {
  455. send "$command\r"
  456. expect {
  457.  -re "^\[^\n\r *]*$prompt *$" {}
  458.  -re "^\[^\n\r]*$prompt." { exp_continue }
  459.  -re "(\r\n|\n)"   { exp_continue }
  460. }
  461.     }
  462.     send "exit\r\n"
  463.     expect {
  464. "\n"     { exp_continue }
  465. timeout     { catch {close}; catch {wait};
  466.        return 0
  467.      }
  468. eof     { return 0 }
  469.     }
  470.     set in_proc 0
  471. }
  473. #
  474. # For each router... (this is main loop)
  475. #
  476. source_password_file $password_file
  477. set in_proc 0
  478. set exitval 0
  479. foreach router [lrange $argv $i end] {
  480.     set router [string tolower $router]
  481.     send_user "$router\n"
  483.     set prompt "#"
  485.     # Figure out username
  486.     if {[info exists username]} {
  487.       # command line username
  488.       set loginname $username
  489.     } else {
  490.       set loginname [join [find user $router] ""]
  491.       if { "$loginname" == "" } { set loginname $default_user }
  492.     }
  494.     # Figure out loginname's password (if different from the vty password)
  495.     if {[info exists userpasswd]} {
  496.       # command line passwd
  497.       set passwd $userpasswd
  498.     } else {
  499.       set passwd [join [lindex [find userpassword $router] 0] ""]
  500.       if { "$passwd" == "" } {
  501.         set passwd [join [lindex [find password $router] 0] ""]
  502.         if { "$passwd" == "" } {
  503.   send_user "\nError: no password for $router in $password_file.\n"
  504.   continue
  505.         }
  506.       }
  507.     }
  509.     # Figure out identity file to use
  510.     set identfile [join [lindex [find identity $router] 0] ""]
  512.     # Figure out passphrase to use
  513.     if {[info exists avpassphrase]} {
  514. set passphrase $avpassphrase
  515.     } else {
  516. set passphrase [join [lindex [find passphrase $router] 0] ""]
  517.     }
  518.     if { ! [string length "$passphrase"]} {
  519. set passphrase $passwd
  520.     }
  522.     # Figure out ssh cypher type
  523.     if {[info exists cypher]} {
  524.       # command line ssh cypher type
  525.       set cyphertype $cypher
  526.     } else {
  527.       set cyphertype [find cyphertype $router]
  528.       if { "$cyphertype" == "" } { set cyphertype "3des" }
  529.     }
  531.     # Figure out connection method
  532.     set cmethod [find method $router]
  533.     if { "$cmethod" == "" } { set cmethod {{telnet} {ssh}} }
  535.     # Figure out the SSH executable name
  536.     set sshcmd [find sshcmd $router]
  537.     if { "$sshcmd" == "" } { set sshcmd {ssh} }
  539.     # Login to the router
  540.     if {[login $router $loginname $passwd $cmethod $cyphertype $identfile]} {
  541. incr exitval
  542. continue
  543.     }
  545.     if { $do_command } {
  546. if {[run_commands $prompt $command]} {
  547.     incr exitval
  548.     continue
  549. }
  550.     } elseif { $do_script } {
  551. send "terminal datadump\r"
  552. expect -re $prompt {}
  553. source $sfile
  554. catch {close};
  555.     } else {
  556. label $router
  557. log_user 1
  558. interact
  559.     }
  561.     # End of for each router
  562.     catch {wait};
  563.     sleep 0.3
  564. }
  565. exit $exitval


 
Mais comme je l'ai dit  pour la 1.0.2 la connexion est différente car quand je lance le sript le programme s'emballe un peu.
Il n'y a que cette partie qui sert je pense:
 
 

Code :
  1. "Login Screen" {                     
  2.       send "$user\t$passwd\r" 
  3.       exp_continue
  4.         }
  5.      "Switch Main Menu" {
  6.       # send Ctrl+Z
  7.       sleep 1; send "send \032"
  8.       exp_continue
  9.     }
  10.      ">"  {
  11.       send "lcli\r"
  12.       exp_continue
  13.     }
  14.      -re "User Name:$" {
  15.                  send "$user\r"
  16.       exp_continue
  17.     }
  18.      -re "Password:$" {
  19.                  send "$passwd\r"
  20.       exp_continue
  21.     }
  23.      -re "$prompt"  { break; }
  24.     denied { send_user "\nError: Check your password for $router\n"
  25.                    catch {close}; catch {wait}; return 1
  26.                  }
  27. }
  28.      }
  30.      set in_proc 0
  31.      return 0
  32. }[/spoiler]


 
Et donc pour se connecter en privilège il faut faire une manip complétement différente:  
ce qui donne en litérale:  
Login Screen

  • "entrée"
  • "$user"      <= variable prédefinie dans un fichier à coté
  • "tabulation"
  • "$passwd"  <= variable prédefinie dans un fichier à coté
  • "echap"      <= la touche echap
  • "tabulation"
  • "entrée"
  • "entrée"

Switch Main Menu

  • "control+Z"
  • "entrée"

>

  • "lcli"    <= passage en mode privilégier
  • "$user"

connecté en mode privilégier
 
Donc  quand je mofidie le script cela ne fait pas du tout ce que je veux.
Merci de ton aide !!  
PA


Message édité par pierra56 le 25-04-2013 à 13:57:55
n°2187460
gilou
Modérateur
Modzilla
Posté le 24-04-2013 à 19:50:13  profilanswer
 

J'ai passé le message dans la bonne catégorie, et adapté le titre.
Il te faudra attendre le passage de quelqu'un habitué à utiliser expect, ce qui n'est pas mon cas.
A+,


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
n°2187599
pierra56
Posté le 25-04-2013 à 17:44:29  profilanswer
 

Up Up!! s'il vous plait!! Dieu Expect et Dieux Linksys aider moi!! :)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Shell/Batch

  Faire échap en expect

 

Sujets relatifs
Comparaison avec perlperl + comparaison + xml
Faire un bouton coloré PERL GTK2exécution script Perl sous mac impossible
recherche expert en PERL[PERL] Subtition
Sockets en Perl[PERL] Récupérer des données dans un fichier txt
[PERL] Nouvel utilisateur ou toujours le même ...[PERL] Mixer un tableau
Plus de sujets relatifs à : Faire échap en expect

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.165 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR