• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Private Agent

  • Автор темы wowa
  • Дата начала
W

wowa

Подскажите такой вопрос,

Пользователь имеет право создавать частные агенты.
Пользователь создал частный агент, но не может его сохранить "You are not authorized to perform that operation"

Вот агент

Код:
Option Public
Option Declare

Use "Library_1"
Sub Initialize

Dim s 		As New NotesSession
Dim db 		As NotesDatabase
Dim coll 		As NotesDocumentCollection
Dim doc 		As NotesDocument
Dim docNext 	As NotesDocument
Dim dtCreated 	As NotesDateTime
Dim agentLog 	As Variant
Dim createDate 	As Variant

Set db = s.CurrentDatabase
Set agentlog = New LogDocInSpecificDb ("Missing Customer Requested Release Date '"+ db.Title +"'", db )
Set coll = db.Search( {Form = "Opportunity" & Is_RfS_Proposal = 1 & OPP_GeplUebergabe = "" }, Nothing , 0 )

Set docNext = coll.GetFirstDocument
While Not docNext Is Nothing
Set doc = docNext
Set docNext = coll.GetNextDocument(doc)

createDate = doc.Created
Set dtCreated = New NotesDateTime( createDate )
Call dtCreated.AdjustDay( 21 )
Call doc.ReplaceItemValue("OPP_GeplUebergabe", dtCreated.GMTTime)
Call doc.Save(True,False)
Call agentLog.LogAction(doc.OPP_Reg(0))
Wend		
End Sub

Возможно тут что-то запрещенное для частного агента, но я не знаю что.
Также возможно тут неверно указана библиотека. Библиотека необходима для создания лога, но вызывается "Library_1", а уже из нее "Library_2", где все функции для лога.

Агент простой, необходимо найти все доки, где поле пустое и заполнить его - прибавить 21 день к дате создания дока.
 
O

Omh

wowa
Вотни errorhandler, будет понятно на какой строке ошибка.
Типа такого
Код:
On Error Goto Errh
...
Exit Sub
errh:
Msgbox Error & | in line | & Erl(), 64, |Lotus Notes (| & Lsi_info(2) & |)|
Exit Sub
Я думаю ошибка будет тут:
Код:
Call doc.Save(True,False)
либо где-то внутри класса LogDocInSpecificDb
 
W

wowa

Omh , дак а смысл? он мне прислал скрин с дизайнера
Насколько я понимаю, он создал агент в дизайнере и не может его сохранить. Обработчик ошибок тут не поможет
 
H

hosm

А на сервере на вкладке безопасность у него есть права на лотусскрипт агенты?
 
O

Omh

Тьфу, я нечётко посмотрел.
Проблема в том, что не может сохранить агента.

Давно галку в ACL поставил?
Может стоит лотус передёрнуть?
 
H

hosm

с серверными правами - не должно вроде влиять. А есть ли у пользователя в АЦЛ право создавать лотусскрипт агенты?
Потому что по умолчанию галка создания личных агентов вроде только простые действия и формулы позволяет (насколько помню).
 
W

wowa

Возникла большая проблема, оказывается пользователь не имеет права создавать частные агенты на LS, и добавить это право ему не могут.
Необходимо переписать агент на собаках. Я особо не знаю собак и не знаю возможно ли это.

Агент простой, необходимо найти все доки, где поле пустое и заполнить его - прибавить 21 день к дате создания дока.

Я не знаю, создать частную папку, где сделать Select Form = "Opportunity" & OPP_GeplUebergabe = ""

А дальше как? Помогите плз, эт очень срочно
 
N

nvyush

создать частную папку, где сделать Select Form = "Opportunity" & OPP_GeplUebergabe = ""
У папок нет Select, они содержат документы, которые в них поместили :)
Можно использовать в представлении, содержащим документы по форме "Opportunity" агента с условием отбора "все документы в представлении" или агента с условием отбора "все документы в БД"
Код агента на собаках примерно такой
@IF(Form = "Opportunity" & OPP_GeplUebergabe = ""; @SetField("OPP_GeplUebergabe"; @Adjust(@Created; 0; 0; 21; 0; 0; 0)); "")
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!