# 机器列表数据格式: 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]]] }