Set oOU = GetObject("LDAP://"ou=finance,dc=acme,dc=com")
oOU.Filter = Array("Group")
For Each object In oOU
   Wscript.Echo "Name:  " & object.Name & _
               "Class:  " & object.Class
Next