Сценарий VBS "Добавление в карточку двусторонней ссылки на другую карточку"

' Скрипт на ???
' Добавляет двустороннюю ссылку на карточку с заданным ID
' v 1.0.0

Function DoEvent(UserSession, CardFrame, CardData, ActivateFlags, ModeID, FolderID)

    Dim LinkedID, LinkedCard
    LinkedID = "<CARD ID>"
    Set LinkedCard = UserSession.CardManager.CardData(LinkedID)

    AddCardReference CardData, UserSession, LinkedCard.ID, "Туда"
    AddCardReference LinkedCard, UserSession, CardData.ID, "Обратно"

    DoEvent = 2

End Function

' Добавление ссылки
Sub AddCardReference(CardData, UserSession, Link, LinkDesc)
    Dim Refs, Row
    Set Refs = Sect(CardData, "CardReferences")
    Set Row = Refs.CreateRow
    Row.Value("Link") = Link
    Row.Value("CreationDate") = Now
    Row.Value("CreatedBy") = StaffObject(UserSession).GetCurrentUserID
    Row.Value("LinkDesc") = LinkDesc
End Sub

' Получение StaffObject
Function StaffObject(UserSession)
    Set StaffObject = CreateObject("TOHelperObjects.StaffObject")
    Set StaffObject.UserSession = UserSession
End Function

' Получение секции карточки по имени
Function Sect(CardData, Alias)
    Set Sect = CardData.Sections(CardData.Type.AllSections.GetByAlias(Alias).ID)
End Function