Another Active Directory question - this time users in groups

[Norris, Joseph]

Group,

Here I am again asking for help on ActiveDirectory. I have the following
code:

sub ADS_check_name{
        my ($user_name) = @_;
        my %Config;
        my $iCount = 0;
        $Config{path} = "WinNT://" . Win32::DomainName();
        if( $AD = GetADSIObject( \%Config ) ) {
                my $Schema = Win32::OLE->GetObject( $AD->{Schema} );
                foreach my $Object ( in $AD ) {
                if ( $Object->{'Class'} eq 'Group' ) {
                                print "$Object->{Name}\n";
                        }
                }
        }
}

sub GetADSIObject {
  my( $Config ) = @_;
  my $ADSIObject;
  my $ADsPath = $Config->{path};
  $ADSIObject = Win32::OLE->GetObject( $ADsPath );
  return( $ADSIObject );
}

I get a list of groups - which is what I want. However, now I need to know
which
users are in which groups.

Any help would be most appreciated.
_______________________________________________
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs