' Точка входа.

Dim LoginPoint As SBLogon.LoginPoint

' Приложение.

Dim DirectumApplication As sbrte.Application

' Параметры соединения с использованием кода системы.

ConnectionParams ="SystemCode=DIRECTUM"

' Получить приложение, используя точку входа.

Set LoginPoint = New SBLogon.LoginPoint

Set DirectumApplication = LoginPoint.GetApplication(ConnectionParams)