note
bingos
<p>lastLogon <i>is stored as a large integer that represents the number of 100 nanosecond intervals since January 1, 1601 (UTC). A value of zero means that the last logon time is unknown.</i></p>
<p>I use an incantation like follows to get date type values out of AD:</p>
<code>
sub msqtime2perl { # MicroSoft QuadTime to Perl
my $foo = shift;
my ($high,$low) = map { $foo->{ $_ } } qw(HighPart LowPart);
return unless $high and $low;
return ((unpack("L",pack("L",$low)) + unpack("L",pack("L",$high)) *
(2 ** 32))) / 10000000) - 11644473600;
}
if ( $userObject->{lastLogon} and $userObject->{lastLogon}->{HighPart} ) {
$epochtime = msqtime2perl( $userObject->{lastLogon} );
}
</code>
906766
906766