FW: Win32::OLE with Active directory question

[Norris, Joseph]

-----Original Message-----
From: Norris, Joseph [mailto:[EMAIL PROTECTED]]
Sent: Friday, January 03, 2003 4:46 PM
To: Perl Win32 Users (E-mail)
Subject: Win32::OLE with Active directory question


Everyone,


I have the following code:

        $path = "WinNT://" . Win32::DomainName();
        if ( $AD = Win32::OLE->GetObject( $path ) ){;
                my $Schema = Win32::OLE->GetObject( $AD->{Schema} );
                if( $Schema->{Container} ) {
                $AD->{Filter} = "f=user";
                        my $Object;
                foreach $Object ( in( $AD ) ) {
                                if ($Object->{Name} eq $user_name){
                                        $cnt++;
                                        print "name: $Object->{FullName}\n";
                                        
                                }
                                last if ($cnt);
                }


I have figured out how to 'Name' and FullName - just by hacking around - is
there any way to get a complete list
of what $Object is pointing at?

I have tried to take it apart as hash ref but have not found any thing. What
I have tried:


foreach my $key (keys %{$Object}){
        print "key - $key\n";
}

This has not produced a thing.  Please advise - thanks.
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs