' Kod wywietla znacznik czasu ostatniego logowania uytkownika
' ------ KONFIGURACJA SKRYPTU ------
strUserDN = "<NazwaWyrniajcaUytkownika>"  ' np. cn=rallen,ou=Sales,dc=rallencorp,dc=com
' ------ KONIEC KONFIGURACJI ---------

set objUser = GetObject("LDAP://" & strUserDN)
set objLogon = objUser.Get("lastLogonTimestamp")
intLogonTime = objLogon.HighPart * (2^32) + objLogon.LowPart 
intLogonTime = intLogonTime / (60 * 10000000)
intLogonTime = intLogonTime / 1440
WScript.Echo "Przybliony czas ostatniego logowania: " & intLogonTime + #1/1/1601#
