Управление жизненным циклом приложений - PullRequest
Новая
       15

Управление жизненным циклом приложений

0 голосов
/ 06 декабря 2018

Мы подключаем ALM, используя библиотеку OTA-подключений, но наша компания добавила двухфакторную аутентификацию «2FA» в качестве защиты, используя Symantic VIP-доступ для каждого внешнего сотрудника, который получит доступ к нашему ALM, так что мне сейчас нужно добавить эту аутентификацию 2FA следующим образомпредыдущий код работает так же, как и предыдущий. 

Private Function TDConnect_ServerConnect(ByVal strServer As String)

    On Error GoTo ErrCatch

    If (g_objTDC Is Nothing) Then Set g_objTDC = New TDConnection

    If (g_objTDC Is Nothing) Then
        TDConnect_ServerConnect = TDCONNECT_STATUS_FAIL
    Else
        g_objTDC.InitConnectionEx strServer
        TDConnect_ServerConnect = TDCONNECT_STATUS_PASS
    End If

Exit Function

ErrCatch:
    TDConnect_Log Err.description, LOG_ERROR
    TDConnect_ServerConnect = TDCONNECT_STATUS_FAIL

End Function
...