LDAP group membership query

[Paul]

I am trying to query an NDS tree using the Win32::OLE and
Win32::OLE::Enum modules. I was able to traverse the tree and gather
all the group names, however, I can't seem to get the members of the
groups. I've tried several methods and I must be missing something.
Below is a snippet of the last try. Any help would be greatly
appreciated.

my $obj = Win32::OLE->GetObject("LDAP://$srv/$oh")||die
Win32::OLE->LastError();
foreach my $object (in $obj)
{
my $objectclass = $object->Get(objectClass);
foreach my $objclass (in $objectclass)
{
if ($objclass eq "organizationalUnit")
{
&showgrp("$object->{Name},$oh");
}
if ($objclass eq "groupOfNames")
{
print "$object->{Name}\t$object->{Class}\t$object->{ADsPath}\n";
my $grpenum = Win32::OLE::Enum->new($object)|| die
Win32::OLE->LastError();
foreach ($grpenum->All)
{
if(lc($_->{'class'}) eq "member")
{
print "$_->{Name}\n";
}
}
}
}
}

 

[Paul]

Anyone?