Welcome to the VanDyke Software Forums

Join the discussion today!


Go Back   VanDyke Software Forums > Scripting

 
 
Thread Tools Rate Thread Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 05-03-2012, 04:14 PM
mr_dre2u mr_dre2u is offline
Registered User
 
Join Date: May 2012
Posts: 2
Problem with running script with Telnet

when running the following script the script sometimes skips ip's. Using connectInTab method instead of connect I realised that it was executing the next iteration of the for-loop before the previous one completed for some items. Why is that?


Sub Main

On Error Resume Next

Dim response
Dim ips
Dim ip
Dim count
set count=0
Dim test
'Array of IPM IPs
ips= array("10.227.44.37","10.227.44.40","10.227.44.41")

'Array of IPM Names
area=array("Arnos1","Arnos2","Arnos3")

'user input prompt
Dim strUserInput
strUserInput = InputBox( "Enter the current month and year separated by a '.' Example: 'Mar.2012'" )
'crt.Screen.Synchronous = True
'Driver. Iterates through all the IPs in the ips array
for each ip in ips
crt.Session.Connect "/TELNET " + ip 'Creates telnet connection
Saver(area(count))
crt.Screen.Send count
'BackUp area(count), strUserInput
count= count+1

next
End Sub

'performs save action
Sub Saver(strMSAN)
crt.Screen.WaitForString ">>User name:"
crt.Screen.Send "root" & chr(13)
crt.Screen.WaitForString ">>User password:"
crt.Screen.Send "admin" & chr(13)
crt.Screen.WaitForString(strMSAN+">")
crt.Screen.Send "en" & chr(13)
crt.Screen.WaitForString(strMSAN+"#")
crt.Screen.Send "con" & chr(13)
crt.Screen.WaitForString(strMSAN+"(config)#")
crt.Screen.Send "save" & chr(13)
response=crt.Screen.WaitForStrings (chr(123)+" <cr>" & chr(124) & "configuration<K>" & chr(124) & "data<K> " & chr(125) & ":" , strMSAN+"(config)#")

If response = 1 Then
crt.Screen.Send "configuration" & chr(13)
crt.Screen.WaitForString( "uplicate complete")
End If


End Sub

'performs back-up action
Sub BackUp(strMSAN, strUserInput)
crt.Screen.Send ("backup configuration tftp 172.20.224.139 config_"+strMSAN+"."+strUserInput+".txt" & chr(13))
crt.Sleep 100
crt.Screen.WaitForString(strMSAN+"(config)#")
crt.Screen.Send "quit" & chr(13)
crt.Screen.WaitForString(strMSAN+"#")
crt.Screen.Send "quit" & chr(13)
crt.Screen.WaitForString "Are you sure to log out? (y/n)[n]:"
crt.Screen.Send "y" & chr(13)

End Sub
Reply With Quote
 

Tags
connect , telnet


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT -6. The time now is 08:00 AM.