# Kod wywietla znacznik czasu ostatniego logowania uytkownika

# ------ KONFIGURACJA SKRYPTU ------
my $strUserDN = "<NazwaWyrniajcaUytkownika>";  # np. cn=rallen,ou=Sales,dc=rallencorp,dc=com
# ------ KONIEC KONFIGURACJI ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objUser = Win32::OLE->GetObject("LDAP://" . $strUserDN);
my $objLogon = $objUser->Get("lastLogonTimestamp");
my $intLogonTime = ($objLogon->HighPart * 2^32) + $objLogon->LowPart;
$intLogonTime = $intLogonTime / (60 * 10000000);
$intLogonTime = $intLogonTime / 1440;
print "Przybliony czas ostatniego logowania: ", scalar localtime($intLogonTime),"\n";
