No I wasn't. Thanks.
"use Win32::OLE::Variant;" - This seems to have fix the problem. A date
string is now returned.
What is the function of "use Win32::OLE qw( in );" ?
-----Original Message-----
From: Paul Popour [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, July 10, 2001 8:49 AM
To: Bullock, Howard A.
Subject: Re: Win32::OLE::Variant=SCALAR(0x1b71e8c)
----- Original Message -----
From: "Bullock, Howard A." <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, July 09, 2001 3:48 PM
Subject: Win32::OLE::Variant=SCALAR(0x1b71e8c)
> 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)
>
Are you using
use Win32::OLE qw( in );
use Win32::OLE::Variant;
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
