Продолжить при сбое crt.Session.ConnectInTab

Сценарий останавливается, если не удается установить соединение, неверный пароль или что-либо еще.

Можно ли игнорировать проблемы и просто перейти к следующей системе?

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

    On Error Resume Next

    Dim tabsArr
    tabsArr = array("sys1", "sys2", "sys3")

    Dim objTab
    redim objTab(ubound(tabsArr)+1)

    for i=0 to ubound(tabsArr)
        set objTab(i) = crt.Session.ConnectInTab("/S """ & tabsArr(i) & """" )
    next

0 ответов

Другие вопросы по тегам