🚨 24 часа до повышения цены на курс «Пентест Active Directory: от теории к практике» от Академии Кодебай
🔍 Изучите реальные техники атак на инфраструктуру Active Directory: от первоначального доступа до полной компрометации.
🛠️ Освойте инструменты, такие как BloodHound, Mimikatz, CrackMapExec и другие.
🧪 Пройдите практические лабораторные работы, имитирующие реальные сценарии атак.
🧠 Получите знания, которые помогут вам стать востребованным специалистом в области информационной безопасности.Последний день записи в текущий поток по старой цене Подробнее о курсе ...
если речь идет о штатной работе этого оператора
Сорри - имхо вопрос для Windows форума... подсказка - Все - это на самом деле не ВСЕ. Как и админ - не фулл админ..
Sub Initialize
On Error GoTo handler
Const FuncName = {Agent <имя агента>}
'<Код агента>
Exit Sub
handler:
Print FuncName & "Error: " & Err &", в строке " & Erl & { Text:} & Error$
Exit Sub
End SubSub Initialize
On Error GoTo handler
Const FuncName = {Agent <имя агента>}
Dim ErrStr As String
'<Код агента>
Set doc = dc.getfirstdocument()
while not doc is nothing
'<Код агента>
nxt:
set doc = dc.getnextdocument(doc)
wend
'<Код агента>
'<Код агента>
Exit Sub
handler:
ErrStr = FuncName & "Error: " & Err &", в строке " & Erl & { Text:} & Error$
if not doc is nothing then ErrStr = ErrStr & { in doc: } & doc.universalID ' узнаем в каком
print ErrStr
if not doc is nothing then resume nxt ' Возврат в цикл
Exit Sub
End Subну это несколько неправильно... текст конвертить
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab
