From: "Bullock, Howard A." <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]
Subject: Win32::OLE::Variant=SCALAR(0x1b71e8c)
Date sent: Mon, 9 Jul 2001 15:48:19 -0400
> 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)
Try
use Win32::OLE qw(valof);
print "AccountExpirationDate: ", valof $item->{AccountExpirationDate}, "\n\n";
Jenda
== [EMAIL PROTECTED] == http://Jenda.Krynicky.cz ==
: What do people think?
What, do people think? :-)
-- Larry Wall in <[EMAIL PROTECTED]>
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
