"David Brown" wrote:

> Hello Al,
>
> http://www.microsoft.com/technet/scr....mspx?mfr=true
>
> If your script is complete, you never actually performed the query. Try
> something like this:
>
> set arrGmembers = GetObject("LDAP://OU=x,OU=y,ou=z zz,ou=a,DC=b,DC=c,DC=d,DC=com")
> arrGmembers.GetInfo
> arrGmembers = objGroup.GetEx("members")
>
> The other thing that will cause that is if a group has one or fewer members.
> In that case, the return is a single item rather than an array/collection.
> You can test for that with "IF isArray(arrGmembers) ". Otherwise the for/each
> will fail.
>
> Test with groups that have 0, 1 and 2 members. If it works with all three,
> then you're set.
>
>
>
> > I have a vbs script and I've created a sub routine to pull the members
> > of the groups in one of our OU's. I would like the script to return
> > all groups and the members that don't meet a certain naming
> > convention. Here is my subroutine:
> >
> > *************************************
> > Sub GetMembers(GroupName)
> > arrGmembers = "LDAP://OU=x,OU=y,ou=z zz,ou=a,DC=b,DC=c,DC=d,DC=com"
> > Flag = 0
> >
> > For Each member In arrGmembers
> > If (Left(Member,3) <> "ad#_") Then Flag = 1
> > Next
> >
> > If Flag Then WScript.Echo GroupName & "Contains non ad#_ accounts!!!
> > Need to remove"
> >
> > End Sub
> > *****************************************
> > Well I get an error for this line "For Each member In arrGmembers" It
> > says "Object not a collection" OK so it needs to be a collection? How
> > do I do that?
> >
> > Thanks!
> > al
>
>
>

This link explains the issues with attributes like memberOf and member:

http://www.rlmueller.net/MemberOf.htm

Richard Mueller (MVP)