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

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

"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)