Welcome to the VanDyke Software Forums

Join the discussion today!


Go Back   VanDyke Software Forums > Scripting

Notices

 
 
Thread Tools Rate Thread Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 10-08-2012, 01:49 PM
dsautter dsautter is offline
Registered User
 
Join Date: Jun 2007
Posts: 11
Logging on each tab

I'm trying to create a VBS script to perform the following,

1) connect to multiple hosts within tabs
2) log (raw) each tab with the "TabName__%Y%M%D%h%m%s.txt"
3) go to each tab and send a certain text string.


I'm able to create the connections and name the tab as the host, at this point a box to name the log file opens for each connection. Once each connection has a file name then the text is sent.

What is the trick to automatically name the files?

Here is the script,

# $language = "VBScript"
# $interface = "1.0"

'===============================================
'LANG :VBScript
'VERSION : 1
'===============================================

Dim FSO, Shell, Windir, Runservice, File, File1
Dim g_objTab, g_strSkippedTabs, objProdTab, objTestTab, objDevTabm, objCurrentTab, nIndex
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Set FSO = CreateObject("scripting.filesystemobject")
Set Shell = CreateObject("WScript.Shell")
Set DeviceIP = FSO.opentextfile("c:\ftp\Rush\PORTS.txt", ForReading, False)
Set Device1IP = FSO.opentextfile("c:\ftp\Rush\PORTS1.txt", ForReading, False)
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objSc = crt.Screen
Set objD = crt.Dialog
Set objSe = crt.Session
Set objW = crt.Window
Logfiles = ("c:\ftp\Rush")

While Not DeviceIP.atEndOfStream
PORTS = DeviceIP.Readline()
' connect To host On port 23 (the Default telnet port)

On Error Resume Next
Set objProdTab = crt.Session.ConnectInTab("/telnet 10.255.0.94 "&PORTS&"")
objProdTab.Screen.Synchronous = True
objProdTab.Screen.WaitForString "]$", 1
objProdTab.Caption = ""&PORTS&""
wend

Sub Main()

Set g_objTab = crt.GetScriptTab
g_objTab.Screen.Synchronous = True

Dim nTest
For nTest = 1 to crt.GetTabCount
Set objCurrentTab = crt.GetTab(nTest)
objCurrentTab.Activate
if objCurrentTab.Session.Connected = True Then
objCurrentTab.Session.Log True,False,True
objCurrentTab.Session.LogFileName = "c:\1ftp\rush\"&PORTS&"_%Y%M%D%h%m%s%t.txt"
end if
next

Dim nIndex2

For nIndex2 = 1 to crt.GetTabCount
Set objCurrentTab = crt.GetTab(nIndex2)
objCurrentTab.Activate
objCurrentTab.Screen.Send chr(13)
objCurrentTab.Screen.WaitForString "#",5
objCurrentTab.Screen.Send "thequickbrownfoxjumpsoverthelazydog123456789!@#$%^&*()_+" & vbcr
objCurrentTab.Screen.WaitForString "#",5
next
end sub



Thanks,
Don
Reply With Quote
 

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 02:21 PM.