Dim curUser, strTemp, strDomain, strController, strUser
strDomain = "здесь - DNS-имя домена"
strController = "здесь - DNS-имя контроллера домена"
strUser = "здесь - имя учётной записи пользователя"
Set curUser = GetObject("WinNT://" & strDomain & "/" & strController & "/" & strUser & ",user")
strTemp = CStr(curUser.LastLogin)
MsgBox "Дата последней регистрации сеанса: " & vbTab & Day(strTemp) & "." & Month(strTemp) & "." & Year(strTemp) & vbCr & _
"Разница в днях относительно текущей даты: " & vbTab & DateDiff("d", strTemp, Date)
Set curUser = Nothing
MS Active Directory. Определение неактивных учетных записей
Каким образом в MS Active Directory можна определить учетные записи пользователей, которые не использовались уже достаточно давно?
Цитата: zvitaliy
Каким образом в MS Active Directory можна определить учетные записи пользователей, которые не использовались уже достаточно давно?
Попробуйте использовать вот такой VB-сценарий:
Код:
Учтите, что при наличии нескольких контроллеров в домене, придётся опрашивать их все, а затем выбирать самую "свежую" дату использования "учётки".