Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
. Я очень далек от администрирования, хотел бы хоть бы немного понять, чтобы объяснить людям что мне нужноСудя по ссылке
Спасибо.
Option Declare
UseLSX "*lsxlc"
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim coll As NotesDocumentCollection
Dim doc As NotesDocument
Dim connection As New LCConnection ("db2")
Dim LCRecord As New LCFieldList
Dim fPeopleFIO As LCField
Dim i As long
On Error GoTo ErrHandle
Set db = session.CurrentDatabase
Set coll = db.Search(|Form="People"|, Nothing, 0)
If coll.count >0 Then
connection.Database = "SAMPLE"
connection.Userid = "db2admin"
connection.Password = "******"
connection.Metadata = "TablePeople"
Call connection.Connect
Print "Successfully connected to DB2."
i = 0
Set doc = coll.Getfirstdocument()
While Not doc Is Nothing
Set LCRecord = New LCFieldList
Set fPeopleFIO = LCRecord.Append("FIO", LCTYPE_TEXT)
fPeopleFIO.value = doc.Getitemvalue("pFIO")(0)
Call Connection.Insert(LCRecord)
i = i +1
Print CStr(i)
Set doc = coll.GetNextDocument(doc)
Wend
connection.Disconnect
Print "Successfully disconnected from DB2."
End If
Exit Sub
ErrHandle:
Print "Error" & Str(Err) & ": " & Error$ & " on line " & CStr(Erl)
End SubОно использует тот же механизм LCConnection, но всё делается настройками в отдельной БД, созданной по определённому шаблону (он есть на сервере). Для простой логики переноса <Lotus_документ> -> <RDB_запись> и <Lotus_поле> -> <RDB_поле> этого достаточно, для более сложной - программинг с LCConnection.
Обучение наступательной кибербезопасности в игровой форме. Начать игру!
