KeyWeb

Для этого можно использовать VBScript.

'UsrLastLogon.vbs
Option Explicit
Dim objOU, objUser, objRootDSE, objLastLogon
Dim strContainer, strDNSDomain
Dim intLastLogonTime, intGuyTime
' --------------------------------------------------------'
' где OU=Users, можно заменить на свою организационную единицу
' --------------------------------------------------------'
strContainer = "OU=Users,"

Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
strContainer = strContainer & strDNSDomain
Wscript.Echo "LDAP://" & strContainer
Set objOU = GetObject("LDAP://" & strContainer )
For Each objUser In objOU
Set objLastLogon = objUser.Get("lastLogon")
intLastLogonTime = objLastLogon.HighPart * (2^32) + objLastLogon.LowPart
intLastLogonTime = intLastLogonTime / (60 * 10000000)
intLastLogonTime = intLastLogonTime / 1440

Wscript.Echo objUser.givenName & " - время последнего входа: " _
& intLastLogonTime + #1/1/1601#
Next
WScript.Quit

собранную информацию можно "сложить" в CSV файл и отсортировать к примеру по дате последнего входа.

"Сложить" данные в файл, можно выполнив команду:

CSCRIPT UsrLastLogon.vbs >> C:\TMP\LASTLOGON.CSV

 

Обсудить на форуме

Добавить комментарий


Обновить
Защитный код

KeyWeb

Сейчас 457 гостей и ни одного зарегистрированного пользователя на сайте

Вверх
Вниз