Files
scripts/Perl control mFi/alt/port.exp
2024-10-14 00:08:40 +02:00

17 lines
320 B
Plaintext

#!/usr/bin/expect -f
set timeout 10
set user [lindex $argv 0]
set host [lindex $argv 1]
set pass [lindex $argv 2]
set cmd [lindex $argv 3]
spawn ssh $user@$host -oKexAlgorithms=+diffie-hellman-group1-sha1 -caes256-cbc
expect "*?assword:*"
send -- "$pass\r"
sleep 5
send -- "$cmd\r"
sleep 2
send -- "exit\r"
expect eof