Win32::OLE::Variant=SCALAR(0x1b71e8c)

[Bullock, Howard A.]

I am using Win32::OLE and ADSI to retrieve the AccountExpirationDate
property for an account. How do I de-reference and format the item below:

my $enumobj = Win32::OLE::Enum->new($obj) or warn "Unable to Enum
object.\n";
while (my $item = $enumobj->Next) {

        my $AccountExpDate = $$item->{AccountExpirationDate};
        print "Account: $Account\n";
        print "AccountExpirationDate: $AccountExpDate\n\n";
}
Result:
AccountExpirationDate: Win32::OLE::Variant=SCALAR(0x1b71e8c)


I am probably missing something simple. Thanks.
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin