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

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

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

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

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

Создание документа Location в локальной АК

  • Автор темы allex
  • Дата начала
A

allex

Код:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim allnabs As Variant
allnabs=session.addressbooks
Forall books In allnabs
If books.isprivateaddressbook Then
If Not(Books.isopen) Then
Call Books.open("",books.filename)
Set db = books
End If
End If
End Forall       

Set view = db.GetView("Connections")
connect = "имя сервера подключения"       
Set doc = view.GetDocumentByKey(connect)
If Not doc Is Nothing Then
Print "Документ подключения " & connect &" уже есть"
Else
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.ComposeDocument( "", db.filename, "local" )
Call uidoc.FieldsetText("Destination","notes-имя сервера подключения")
Call uidoc.FieldsetText("OptionalNetworkAddress","dns-имя сервера подключения")
Call uidoc.FieldsetText("PortName","TCPIP")
Call uidoc.FieldsetText("LanPortName","TCPIP")
Call uidoc.Save
Call uidoc.Close
Print "Документ подключения " & connect &" cоздан"
End If
 
Последнее редактирование:
S

samai

Пожалуйста не вводите людей в заблуждение. Это создание документа Соединения (Connection).

Кроме того это думаю не будет работать
Код:
Set view = db.GetView("Connections")
connect = "имя сервера подключения"		
Set doc = view.GetDocumentByKey(connect)
Представление Connections в первой строке содержит далеко не имя сервара ;)
Да и метод view.GetDocumentByKey(connect) требует что бы первая строка была отсортирована
For the GetAllDocumentsByKey method to work, you must have at least one sorted column for each key.
:D
 
N

nvyush

Кроме того это думаю не будет работать

Код:
Set view = db.GetView("Connections")
connect = "имя сервера подключения"		
Set doc = view.GetDocumentByKey(connect)

Представление Connections в первой строке содержит далеко не имя сервара wink.gif
Да и метод view.GetDocumentByKey(connect) требует что бы первая строка была отсортирована

Во-первых, не в строке, а в столбце.
Во-вторых, метод view.GetDocumentByKey(...) не требует, чтобы первый столбец была отсортирован, он ищет по первому сортированному столбцу (точнее, первый ключ — по первому сортированному столбцу, второй ключ — по второму и т.д.), учите матчасть.
В-третьих, точнее, в-нулевых — этот раздел не для обсуждений, читайте link removed
 
Мы в соцсетях:

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