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
