Problema con Telnet y Script Vbs

[gersojn]

Empezado por ElKurgan

¿La plataforma es Windows 7?

Porque me parece recordar que hay servicios (como el Telnet) que no siempre se instalan activos por motivos de seguridad.
Prueba a ver si este es tu caso. Tienes que ir a "Panel de control\Programas" y ahí pulsamos sobre "Activar o desactivar características de Windows" y comprueba que están marcadas las opciones "Telnet Client" y "Telnet Server".

Tendrás que reiniciar Windows para que Telnet esté activo una vez instalado en el sistema.

Un saludo

Hola amigo, gracias por responder, el servicio del Cliente Telnet si esta activo, la plataforma es Windows 7 64 bits.
Como he dicho anteriormente tengo un script vbs con el cual si efectuo el reinicio, pero por desgracia hay que clickar sobre el para que haga el cambio, y la idea es automatizar todo. El backup en la app ya lo hace, lo que quiero hacer es sincronizar ambos en el mismo tiempo.

este es el codigo del script vbs

Set cloner = CreateObject("WScript.Shell")
 cloner.run"cmd"
 WScript.Sleep 500
 
cloner.SendKeys"telnet 192.168.1.1 23"
 cloner.SendKeys("{Enter}")
 WScript.Sleep 50
 
cloner.SendKeys"user"
 cloner.SendKeys("{Enter}")
 WScript.Sleep 50
 
cloner.SendKeys"password"
 cloner.SendKeys("{Enter}")
 WScript.Sleep 500

cloner.SendKeys"menu"
 cloner.SendKeys("{Enter}")
 WScript.Sleep 10

cloner.SendKeys("{DOWN}")
 WScript.Sleep 5

 cloner.SendKeys("{DOWN}")
 WScript.Sleep 5

 cloner.SendKeys("{DOWN}")
 WScript.Sleep 5

 cloner.SendKeys("{DOWN}")
 WScript.Sleep 5

 cloner.SendKeys("{DOWN}")
 WScript.Sleep 5

 cloner.SendKeys("{DOWN}")
 WScript.Sleep 5

 cloner.SendKeys("{DOWN}")
 WScript.Sleep 5

 cloner.SendKeys("{Enter}")
 WScript.Sleep 5

 cloner.SendKeys("{DOWN}")
 WScript.Sleep 5

 cloner.SendKeys("{RIGHT}")
 WScript.Sleep 5

cloner.SendKeys("{RIGHT}")
 WScript.Sleep 5

cloner.SendKeys("{RIGHT}")
 WScript.Sleep 5

 cloner.SendKeys("{Enter}")
 WScript.Sleep 10000
cloner.SendKeys("{Enter}")
 WScript.Sleep 10000
cloner.SendKeys("{Enter}")
 WScript.Sleep 10000

cloner.SendKeys"exit"
 cloner.SendKeys("{Enter}")

Este script funciona perfecto, para hacer el cambio de Ip publico, por telnet, el problema es que no puedo ejecutarlo desde la Aplicacion, no se porque sea o si se requiere de un metodo especial para ejecutar script vbs en delphi.
Sigo investigando, cualquier ayuda, aporte o sugerencia es bienvenida.
Saludos.