Разблокировка учетной записи Active Directory через VBscript не вызывает событие с кодом
У меня есть сценарий VB, который разблокирует учетную запись AD при запуске, это соответствующая часть:
...
If objUser.Isaccountlocked = True Then
objUser.IsAccountLocked = False
objUser.SetInfo
End If
...
Это все работает, но не создает событие в журнале событий AD.
Конечно, разблокировка учетной записи "вручную" в "Пользователи и компьютеры AD" создает событие 4767 ("Учетная запись пользователя была разблокирована".)
Создает ли разблокировка скриптом какой-то другой идентификатор события? Или действительно ничего вообще?
Большое спасибо.
1 ответ
Событие 4767 добавляется пользователями и компьютерами AD, а не доменом, и записывается, даже если учетная запись не была заблокирована.
Редактирование данных AD напрямую, как вы делаете в своем скрипте, не генерирует эти записи журнала событий аудита.
Вы можете зарегистрировать запись в своем скрипте или, я предлагаю, найти другой способ сделать то, что вы делаете.