TCL脚本实例:检查IP的脚本§1脚本源码