使用tcl脚本自动化