SecureCRT: VBscript. Printing the variable into console

[praneethkumar90]

Hi, We have written a VB program to access secureCrt shell and execute the command in the jump server.

I am running the code from local windows machine using command "C:\Users\abc\Desktop\secureCRT\Test>securecrt.exe /SCRIPT "C:\Users\abc\Desktop\secureCRT\Test\oswatch_drv.vbs" /ARG "ls -l" /S "ghfet.intl.xyz.com"

Below is the code:

#$language = "VBScript"
#$interface = "1.0"
Set objTab = crt.GetScriptTab
Set g_shell = CreateObject("WScript.Shell")

Public szData

crt.Sleep 6000

objTab.Screen.IgnoreEscape = True
objTab.Screen.Synchronous = True

Dim szCommand, szPrompt, nRow, szLogFileName, nIndex

Do
bCursorMoved = objTab.Screen.WaitForCursor(1)
Loop until bCursorMoved = False

nRow = objTab.Screen.CurrentRow
szPrompt = objTab.screen.Get(nRow, _
0, _
nRow, _
objTab.Screen.CurrentColumn - 1)
szPrompt = Trim(szPrompt)

crt.Screen.Synchronous = True

Dim pran

Sub Main

strVal = crt.Arguments(0)

crt.Screen.Send "pwd" & chr(13)
crt.Screen.WaitForString "[xyz@xlpv0002 ~]$"
crt.Screen.Send "sh test.sh" & chr(9) & chr(13)

szData = CaptureOutputOfCommand("sh test.sh", "[xyz@xlpv0002 ~]") & vbCr
'MsgBox(szData)
pran = szData

crt.Clipboard.Format = "CF_TEXT"
crt.Clipboard.Text = pran

crt.Dialog.MessageBox("Text is now in the clipboard: \n\n" + crt.Clipboard.Text)
'MessageBox.Show(szData)

If Not SendExpect("exit", "[xyz@xlpv0002 ~]") then exit sub

g_shell.Run "%comspec% /c taskkill /IM SecureCRT.exe /F"

End Sub

'=======================================================================
Function CaptureOutputOfCommand(szCommand, szPrompt)
if crt.Session.Connected <> True then
CaptureOutputOfCommand = "[ERROR: Not Connected.]"
exit function
end if

objTab.Screen.Send szCommand & vbcr
objTab.Screen.WaitForString vbcr
CaptureOutputOfCommand = objTab.Screen.ReadString(szPrompt)

End Function
'======================================================================
Function SendExpect(szSend, szExpect)
if objTab.Session.Connected <> True then exit function

objTab.Screen.Send szSend & vbcr
objTab.Screen.WaitForString szExpect

SendExpect = True
End Function
'========================================


I am running the script present in the jump server and able to capture the script output into "MSG Box" but, i want the output to be redirected into windows console.

Is there any way to print the variable szData into console?