TELNET (ejecutar script)

juan carlos
08 de Julio del 2004
Que tal, buenos días desde MTY MEX.

Tengo un a duda acerca de como realizar un TELNET desde visual. He intentado y no he tenido éxito. Logré realizar un FTP, pero lo que necesito es ejecutar un script en una terminal remota y la salida de datos visualizarla en pantalla, guardarla en mi máquina o donde sea..

Agradezco sus atenciones y espero que me apoyen u orienten en esta cuestión.

Esto es lo que hago con el FTP, pero ya tengo el archivo "sar". Con el Telnet me gustaria ejecutar el script y generar el archivo sar y guardarlo en mi máquina..

Private Sub UserForm_Initialize()

a_Entrar.Hide

Dim ipaddress As String

Select Case a_Entrar.site
Case "Zona 1"
ipaddress = "X.X.X.X"
Case "Zona 2"
ipaddress = "X.X.X.X"
End Select

Dim nFic As Integer
Dim archivoFTP As String
Dim Path As String

Path = "C:macros"
archivoFTP = Path & "conectar.ftp"
nFic = FreeFile
Open archivoFTP For Output As #nFic
Print #nFic, "lcd /macros"
Print #nFic, "open "; ipaddress; ""
Print #nFic, "user "; a_Entrar.user; " "; a_Entrar.password; ""
Print #nFic, "cd /tmp"
Print #nFic, "get sar.log"
Print #nFic, "close"
Close #nFic

Shell "ftp -n -s:c:macrosconectar.ftp"

End Sub

Saludos

juan carlos
08 de Julio del 2004
Alguin me puede ayudar porfavor...

Saludos