1. Home

Product groups

Support

Automating a Script - WeOnlyDo Discussion board

Automating a Script (General questions)

by Eric Grau, Monday, November 26, 2007, 18:36 (6206 days ago)

This issue is found using Visual Basic 2005 Express.

Problem: Trying to auto login to a SSH server, automate the prompts to put the user at a certain spot without having the user select the ANSI menus directly. I program needs to wait after each menu selection for some text on the next menu screen before sending the next menu command.

Solution Attempt: I have added the code that i use and the code logs in and runs the first menu option and then exits no matter what I do to continue.

[code]
Telnet1 = New WODTELNETDLXCOMLIB.wodTelnetDLXCom

'GetLoginInfo()
Telnet1.Hostname = DEV1
Telnet1.Login = p5104
Telnet1.Password = p5104
Telnet1.Protocol = WODTELNETDLXCOMLIB.ProtocolsEnum.SSHAuto
Telnet1.TerminalType = tty
Telnet1.StripANSI = True


AddToList( Connecting... & vbCrLf)
Telnet1.Blocking = True
Telnet1.DebugFile = c:debug.txt
Telnet1.Connect()
On Error Resume Next
' if all succeeded

Telnet1.WaitFor( Select , 30)
Telnet1.DataReady = 0
Telnet1.Execute( e & vbCrLf, Select: , 30)
Telnet1.DataReady = 0
Telnet1.Execute( 51 & vbCrLf, Location , 30)
Telnet1.DataReady = 0
Telnet1.Execute( & vbCrLf, F4 , 30)
Telnet1.DataReady = 0
Telnet1.Execute( s5100 & vbCrLf, Password , 30)
Telnet1.DataReady = 0
Telnet1.Execute( s5100 & vbCrLf, Site , 30)
Telnet1.DataReady = 0
Telnet1.Execute( s5100 & vbCrLf, Select , 30)
Telnet1.DataReady = 0
Telnet1.Execute( 3 & vbCrLf, Select , 30)
Telnet1.DataReady = 0
Telnet1.Execute( 3 & vbCrLf, Select , 30)
Telnet1.DataReady = 0
Telnet1.Execute( bkn & vbCrLf, Employee , 30)
Telnet1.DataReady = 0
Telnet1.Send( wrkrb & vbCrLf)

AddToList( Completed Login Process... & vbCrLf)

[/code]

Code fails after 1st execute.

Error in VB is:
A first chance exception of type 'System.Runtime.InteropServices.COMException' occurred in Project1.exe


Any ideas would be appreciated. I would like to create a front end to a server app that can be scripted and am out of ideas. I check through the forums but no luck.

Regards,
Eric

locked
1466 views

Complete thread:

 

Many thanks for your excellent support service. I can see why you have a long list of excellent testimonials on your website.

Martyn Walker
Batmore Technolgies

...wodFtpDlx was exactly what I needed, it worked, and it was priced right...

David Keenan
Serengeti Systems Incorporated

Your .NET components allow us to blend .NET technology seamlessly with secure communication, and with excellent technical support.

Bil Bragg
Dionach

I can only hope I will have the pleasure to work with other products by "We Only Do" in the future.

Tomer Spivak
Verint Systems Ltd

Your professionalism is reflected into your email, your product and your web site. I am confident that these will make the difference.

Sylvain Paquette
R&D Analyst at InfoPharm Inc.

Your support is fantastic.

Douglas Michael Panchyshyn
The Net Software Group

Fantastic product by the way, it has helped us tremendously on a daily basis. Keep up the good work.

Ben Lewis
Waterson Consulting Ltd.

It was no small factor, however, that your support in getting me up and running made me buy from you.

Charles Taylor
InterWeave, Inc.

Thank you very much for the rapid responses. I was a little nervous about dealing with a company that is on a different continent from me. You have proven my concerns to be unfounded.

Robert Pacheco
Surebridge, Inc.

Thank you very much for the rapid responses. I was a little nervous about dealing with a company that is on a different continent from me. You have proven my concerns to be unfounded.

Robert Pacheco
Surebridge, Inc.