tcl脚本的吞吐量测试脚本 set libpath " " ; #position of smartlib.tcl set addr " " ; #ip of smb if { ! [info exists __SMARTLIB_TCL__] } { source $libpath } if {[ETGetLinkStatus]<0} { set retval [NSSocketLink $addr 16385 $RESERVE_NONE] if {$retval<0} { put