Hi All, Can someone help me with these 2 question that I have? 1) How can I print the date of the Last password set? It is telling me that it is a hash. 2) Can I specify a specific DomainName\UserID to the Win32::OLE object and search for that user info instead just getting the current user logged on info that run the program?
Thanks Alain use Win32::OLE; use strict; my $sysinfo = Win32::OLE->new('ADSystemInfo') || die ("Can't get sysinfo: " .Win32::OLE->LastError()."\n"); my $userDN=$sysinfo->{UserName}; my $adsuser = Win32::OLE->GetObject("LDAP://$userDN") || die ("Can't find user: ".Win32::OLE->LastError()."\n"); print "CN: $adsuser->{cn}\n"; print "Username: $adsuser->{Samaccountname}\n"; print "Last set: $adsuser->{pwdLastSet}\n"; This is my output: CN: Smith, James Username: jsmith Last set: Win32::OLE=HASH(0x19a3b04)
_______________________________________________ Perl-Win32-Admin mailing list Perl-Win32-Admin@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs