Vbscript 如何使用QTP在cmd上的OpenSSH期间捕获命令响应

Vbscript 如何使用QTP在cmd上的OpenSSH期间捕获命令响应,vbscript,cmd,qtp,openssh,hp-uft,Vbscript,Cmd,Qtp,Openssh,Hp Uft,我正在通过cmd做openSSH来连接linux系统。我可以在cmd控制台上看到命令响应,但无法使用QTP捕获命令响应。我需要在运行时脚本中使用响应。我不想使用“GetVisibleText”方法。我从未使用过openSSH,但您可以尝试将cmd提示符的输出重定向到文本文件,并读取文本文件的内容 例如: set WshShell = CreateObject("WScript.Shell") return = WshShell.Run("cmd /c java > ""C:\temp\aa

我正在通过cmd做openSSH来连接linux系统。我可以在cmd控制台上看到命令响应,但无法使用QTP捕获命令响应。我需要在运行时脚本中使用响应。我不想使用“GetVisibleText”方法。

我从未使用过openSSH,但您可以尝试将cmd提示符的输出重定向到文本文件,并读取文本文件的内容

例如:

set WshShell = CreateObject("WScript.Shell")
return = WshShell.Run("cmd /c java > ""C:\temp\aa.txt"" 2>&1 ")

Set fso  = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("C:\temp\aa.txt", 1)
If file.AtEndOfLine<> true Then
            text = file.ReadAll
            MsgBox text
        else
            MsgBox "file is empty"
End If
file.Close
set WshShell=CreateObject(“WScript.Shell”)
return=WshShell.Run(“cmd/cjava>”c:\temp\aa.txt“2>&1”)
设置fso=CreateObject(“Scripting.FileSystemObject”)
Set file=fso.OpenTextFile(“C:\temp\aa.txt”,1)
如果file.AtEndOfLine为true,则
text=file.ReadAll
MsgBox文本
其他的
MsgBox“文件为空”
如果结束
文件,关闭

展示您正在谈论的代码示例。还要告诉全世界你为什么不想使用“GetVisibleText”方法。并定义要捕获的命令响应——写在标准输出上的响应?这与QTP有什么关系(我不怀疑它有什么关系,但请告诉我们您正在努力实现什么)?