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