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.
Nota: Algunas de las lineas de codigo fueron tomadas de aca. Por Favor agradeceria si pudiesen ayudarme.
Pues necesito el resultado de la ejecucion del los comandos sobre el router.
Código (vb) [Seleccionar]
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.