# $language = "VBScript"
# $interface = "1.0"
' ConnectSFTPTab.vbs

Sub Main()

    szSession = crt.Dialog.Prompt("Enter session:", "", "", False)
    if szSession = "" then exit sub

    Set objTab = crt.Session.ConnectInTab("/S " & szSession)
    If MsgBox("Connecting SFTP tab after OK.", vbokCancel) <> vbok then exit sub

    Set objSFTPTab = objTab.ConnectSFTP

    MsgBox "New SFTP tab index: " & objSFTPTab.Index & vbcrlf & _
           "New SFTP tab name: " & objSFTPTab.Caption

End Sub