Hola Muchachos soy nuevo en el foro, observe detenidamente la informacion. Y quizas uds me puedan ayudar. Mi idea es abrir cmd y ejecutar el comando Telnet para una conexion remota a Router. El logrado hacerlo con .run, pero desgraciadamente este ultimo tiene limitaciones en la lectura de la aplicación. Por esa razon opte por .exec debido a la capacidad de leer la aplicacion.
Pues necesito el resultado de la ejecucion del los comandos sobre el router.

Set i = CreateObject("WScript.Shell")
Set tel=i.exec("cmd ")
WScript.Sleep(500)
i.appactivate ping.processid
WScript.Sleep(500)
ping.sendkeys("telnet 10.10.10.10{ENTER}")
WScript.Sleep(500)
ping.sendkeys("password{ENTER}")
WScript.Sleep(500)
ping.sendkeys("comandos{ENTER}")
WScript.Sleep(500)
 
 
Do
if not tel.stdout.atendofstream Then
respuesta = respuesta & tel.stdout.read(1)
Else
Exit Do
End if
Loop
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.OpenTextFile("C:\test.txt",8,true)
archivotexto.Write(respuesta)
archivotexto.writeblanklines(1)
archivotexto.Write("Generacion del Archivo")
archivotexto.writeblanklines(1)
archivotexto.Write("Fecha: " & Date & " - Hora: " & Time)
ping.terminate
 

Nota: Algunas de las lineas de codigo fueron tomadas de aca. Por Favor agradeceria si pudiesen ayudarme.