# 机器列表数据格式: IP 端口 旧密码 新密码
set hostfile [ open [lindex $argv 0] ]
# 命令列表数据格式: 一条命令一行
set cmdfile [ open [lindex $argv 1] ]
# 数据文件分割符,默认为空格
set part "\ "
# 过滤关键字
set key_password "password:\ "
set key_init "\(yes/no\)\&;\ "
set key_confirm "'yes'\ or\ 'no':\ "
set key_ps "*]#\ "
set key_newpassword "UNIX password:\ "
set timeout 30
log_file ./exprct.log
match_max 20480
while {[gets $hostfile _hosts_] >= 0} {
set hosts [string trim $_hosts_]
set str_index [string first $part $hosts]
set host [string trim [string range $hosts 0 $str_index]]
set temp [string trim [string range $hosts [expr $str_index + 1] [string length $hosts]]]
set str_index [string first $part $temp]
if { $str_index == -1 } {
set port 22
set pass $temp
set newpass $temp
} else {
set port [string trim [string range $temp 0 $str_index]]
set temp_pass [string trim [string range $temp [expr $str_index + 1] [string length $temp]]]
set str_index [string first $part $temp_pass]
set pass [string trim [string range $temp_pass 0 $str_index]]
set newpass [string trim [string range $temp_pass [expr $str_index + 1] [string length $temp_pass]]]
}