• 🚨 24 часа до повышения цены на курс «Пентест Active Directory: от теории к практике» от Академии Кодебай

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

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

Изменить автоматически Location и Connection

  • Автор темы Автор темы oleg7
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
вообще забейте на инишник и тупо берите names.nsf из /notesdata клиента
в инишнике нет никаких переменных ФИО_names,

Не торопитесь с выводами. Это скорее всего мультипользовательская инсталляции Нотуса.
 
в нотес.ини в переменной NAMES что написано у клиента???
 
Код:
	 ' first, get the local NAB
sNamesLine = session.GetEnvironmentValue("names",True)

nPos = Instr(sNamesLine, ",")
If nPos > 0 Then 
sNamesLine = Left$(sNamesLine, nPos-1)
Else
sNamesLine = "names.nsf"
End If
Set dbNab = New NotesDatabase( "",sNamesLine )

If Not(dbNab.isOpen) Then
можно сделать в этой части, чтобы проверяло все локальные базы, в которых есть names и потом дальше работало именно с ними?

в нотес.ини в переменной NAMES что написано у клиента???
например
NAMES =test_names.nsf
test-фамилия пользователя
 
хелп: перебирает локальные книги - тогда выбирайте какую надо (в идеале она одна) - тоже выше написали уже...

Examples: IsPrivateAddressBook property
This agent displays the Personal Address Book databases known to the current session.

Код:
Sub Initialize
Dim session As New NotesSession
Dim privates As String
Forall db In session.AddressBooks
Call db.open("", "") ' Must open database
If db.IsPrivateAddressBook Then
privates = privates & db.Server & " " & _
db.FilePath & Chr(13)
End If
End Forall
If privates = "" Then privates = "None"
Messagebox privates,, "Personal Address Book databases"
End Sub

Related information
IsPrivateAddressBook property

Добавлено: ну и наконец... IBM Вам в помощь



Добавлено: кстати, я и забыл - ещё 7 лет назад заюзали именно тему автогенерации коннекшена - ДА - неважно как имя локальной базы, автоматом сгенерит в той, что надо :)
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

Курс AD