Rick, You're following a hash reference.
Try this instead: $x = $objuser->{whenCreated}; That should work. Let me know if you have further issues. Michele On 10/23/07, Rick Steeves <[EMAIL PROTECTED]> wrote: > > What I need (for SOX purposes) is the date individual AD accounts are > created. In the archive I see a number of ways to filter on specific ranges, > but what I want is the actual date the account was created as a returned > value. > > I can do this in vbs: > Set objUser = GetObject("LDAP://cn=Rick Steeves, ou=Contractors, > ou=Enterprise, dc=domain, dc=com") > Wscript.Echo objUser.WhenCreated > > no problem, but all the rest of my account maintenance is in Perl (ofc!), > so I'd rather add it to that. > > However, when I code what I think is the same thing in perl: > > $objuser = Win32::OLE->GetObject("LDAP://cn=Rick Steeves, ou=Contractors, > ou=Enterprise, dc=domain, dc=com"); > $x = $objuser->WhenCreated; > print $x; > > I get back a value for $x of (for example): > Win32::OLE::Variant=SCALAR(0x1ac289c) > > Which is not what I want! > > Suggestion? I'm missing something somewhere. > > _______________________________________________ > Perl-Win32-Admin mailing list > Perl-Win32-Admin@listserv.ActiveState.com > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > >
_______________________________________________ Perl-Win32-Admin mailing list Perl-Win32-Admin@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs