批处理之家 - Powered by Discuz! Board

标题: [问题求助] [已解决]VBS 调用tclsh 后log怎么保存? [打印本页]

作者: xixiyang80 时间: 2015-10-20 11:02 标题: [已解决]VBS 调用tclsh 后log怎么保存?

本帖最后由 xixiyang80 于 2015-10-21 16:36 编辑

大家好, 有个问题, 请大家帮我看看.
我用secureCRT 调用了 Wscript.Shell, 然后log 怎么保存, 谢谢, 代码如下:

Set vbs=CreateObject("Wscript.Shell")
vbs.Run "tclsh "
crt.sleep 1000
vbs.SendKeys " source d:/autotest/tcl/11.tcl  {enter}"
crt.sleep 2000
vbs.SendKeys "exit {enter}"
复制代码

我想要的log是 11.tcl 的全部log, 该怎么自动保存到本地文件?
谢谢!

作者: 依山居 时间: 2015-10-20 11:42

需要在TCL里实现。我不懂TCL

作者: DAIC 时间: 2015-10-20 12:22

SecureCRT本身可以设置会话的日志

选中一个会话 >>> 属性 >>> 终端 >>> 日志文件
输入日志文件名，例如 C:\%H_%Y-%M-%D_%h-%m-%s.log
勾选“在连接上开始记录日志”
勾选“追加到文件”

作者: xixiyang80 时间: 2015-10-20 13:28

回复 3# DAIC

谢谢, SecureCRT 里的log 保存, 只能保存在CRT里的log, 不能保存tcl 运行时的log.

作者: xixiyang80 时间: 2015-10-20 18:07

请大神和斑竹帮忙, 未解决

作者: xixiyang80 时间: 2015-10-21 16:35

已解决, 如下可以:
Set vbs=CreateObject("Wscript.shell")
vbs.Run ("%comspec% /c tclsh d:/autotest/tcl/11.tcl 1>>d:/capture/result/case1.txt"),1,True

作者: CrLf 时间: 2015-10-21 17:01

回复 6# xixiyang80

其实可以考虑用 exec，然后操作 stdin 和 stdout

欢迎光临批处理之家 (http://www.bathome.net/)