Question

我知道这可能是一个愚蠢的问题。我想登录putty并阅读putty窗口中的行。以下代码卡在 readline 上。

Dim UserName
Dim Passwrd

UserName = InputBox("Please Enter Your UserID:")
Passwrd  = InputBox("Please Enter Your Password:")

Set shell = CreateObject("WScript.Shell")
pcmd = "C:\Putty\putty.exe -ssh"&" "&UserName & "@10.x.xx.x -pw" &" "&Passwrd 

Set exec = shell.Exec(pcmd)
Set pout = exec.StdOut
Dim strFromPutty 
Do
    strFromPutty = pout.ReadLine
    print strFromPutty
Loop While Not pout.AtEndOfStream

Answer 1

您可能无法做到这一点。会话可能是由putty启动的不同过程。

我建议将其重定向到一个文件并从那里读取它：完整答案：Save PuTTY ouput to file from command-line

如何使用VBScript从putty窗口获取数据

1 个答案: