Я знаю, что это может быть глупый вопрос.Я хочу войти в 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