• 🚨 29 мая стартует курс «Пентест Active Directory: от теории к практике» от Академии Кодебай

    🔍 Изучите реальные техники атак на инфраструктуру Active Directory: от первоначального доступа до полной компрометации.
    🛠️ Освойте инструменты, такие как BloodHound, Mimikatz, CrackMapExec и другие.
    🧪 Пройдите практические лабораторные работы, имитирующие реальные сценарии атак.
    🧠 Получите знания, которые помогут вам стать востребованным специалистом в области информационной безопасности.

    После старта курса запись открыта еще 10 дней Подробнее о курсе ...

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

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

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

Создание документа 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
 
Последнее редактирование:
Пожалуйста не вводите людей в заблуждение. Это создание документа Соединения (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
 
Кроме того это думаю не будет работать

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

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

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

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

Курс AD