TUTORIAL vbscript

[jefjaibe89]

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.

Código (vb) [Seleccionar] Expandir


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.

[Stakewinner00]

esta bastante bien

[andres005]

Excelente tutorial Novlucker y todavía mejor los pdf. Me he registrado sólo por agradecerte tan buen aporte, me viene de perlas.

GRACIAS

[.:: KsV ::.]

Exelente  Novlucker  sige asi (y)

[lararich]

me esta sirviendo de mucha utilidad
gracias...

[Nogard Mishima]

Considero que es un muy buen tutorial a pesar de que no conozco mucho de estos scripts,
pero la forma de explicar esta excelente, estoy nuevo en esto pero me parece interesante y quisiera saber si puedo hacer algo que he estado buscando pero no doy con lo que quiero.
esto es lo que tengo:

loginName = InputBox ("Introduzca Nombre")
confirmacion = MsgBox ("Su nombre es: " &  _
            loginName & VbCrLf & " es correcto?", _
            vbYesNo , "Continuar?")

If confirmacion = vbYes Then
        MsgBox  "Usted ha decidido continuar",1,"Registro"
Else
           MsgBox  "Usted ha decidido NO continuar"
End If

lo que  se escribe en el inputbox aparece en el msgbox, lo que quisiera saber es como guardar en un archivo .txt lo que aparece en el msgbox.
De antemano gracias y espero haberme explicado bien.

[Eleкtro]

lo que  se escribe en el inputbox aparece en el msgbox, lo que quisiera saber es como guardar en un archivo .txt lo que aparece en el msgbox.
De antemano gracias y espero haberme explicado bien.

Un hilo sobre un tutorial no es lugar para desviar el tema con otro tipo de preguntas que no están relacionadas con el tema principal.

Formula tu pregunta en un nuevo post.

Cierro el tema, a menos que NovLucker quiera que se reabra por cualquier motivo