在tcl脚本中向某些用户打开终端发送警告消息

package require Expect

# 导入expect库
package require Expect

# 定义要发送消息的用户列表
set users {
    user1
    user2
    user3
}

# 定义要发送的警告消息
set message "This is a warning message."

# 循环遍历用户列表
foreach user $users {
    # 打开终端并连接到用户
    spawn ssh $user@hostname

    # 期望终端提示符
    expect {
        # 匹配终端提示符
        -re {\$ $} {
            # 发送警告消息
            send "echo \"$message\"\r"
            # 退出终端
            send "exit\r"
            # 等待终端关闭
            expect eof
        }
        # 匹配连接错误
        -re {Connection refused} {
            puts "连接错误：无法连接到用户 $user"
        }
        # 匹配超时错误
        timeout {
            puts "超时错误：无法连接到用户 $user"
        }
    }
}