• Viernes 29 de Agosto de 2014, 10:01

Autor Tema:  Telnet (ejecutar Script)  (Leído 729 veces)

jucmarri

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Telnet (ejecutar Script)
« en: Martes 6 de Julio de 2004, 18:29 »
0

Publicidad 
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()

Dim ipaddress As String
Dim user As String
Dim password 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 "; user; " "; password; ""
Print #nFic, "cd /tmp"
Print #nFic, "get sar.log"
Print #nFic, "close"
Close #nFic

Shell "ftp -n -s:c:\macros\conectar.ftp"

End Sub

Saludos