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

Sub Main()

    szSession = crt.Dialog.Prompt("Enter session:", "", "", False)
    if szSession = "" then exit sub
    
    Set objTab = crt.Session.ConnectInTab("/S " & szSession)

    If MsgBox("Current Tab index: " & objTab.Index & vbcrlf & _
              "Current Tab name: " & objTab.Caption & vbcrlf & vbcrlf & _
              "Cloning after OK...", vbokCancel) <> vbOK then exit sub

    Set objTabCloned = objTab.Clone  
    MsgBox "Cloned Tab index: " & objTabCloned.Index & vbcrlf & _
           "Cloned Tab Name: " & objTabCloned.Caption  

End Sub