# $language = "VBScript" # $interface = "1.0" ' DisconnectTab.vbs Sub Main() szSession = crt.Dialog.Prompt("Enter session:", "", "", False) if szSession = "" then exit sub Set objTab1 = crt.Session.ConnectInTab("/S " & szSession) Set objTab2 = crt.Session.ConnectInTab("/S " & szSession) Set objTab3 = crt.Session.ConnectInTab("/S " & szSession) if MsgBox("Disconnecting Tab #" & objTab2.Index & _ " after OK...", vbokcancel, _ "Disconnect Tab Example") <> vbok then exit sub objTab2.Session.Disconnect objTab2.Activate MsgBox "Tab #" & objTab2.Index & " is now disconnected." End Sub