Dim sPath As String = "LDAP://ou=finace,dc=mydomain,dc=net"
        Dim de As New DirectoryEntry(sPath)
        Dim searcher As New DirectorySearcher(de)
        Dim results As SearchResultCollection
        Dim result As SearchResult
 
        searcher.Filter = "(objectClass=group)"
        results = searcher.FindAll()
 
        For Each result In results
            Dim name As ResultPropertyValueCollection = result.Properties( _
              "name")
            ListBox1.Items.Add(name(0))
 
        Next result

Set objGroup = GetObject( _
  "LDAP://cn=MeineGruppeDieIchSuche,ou=Finance,dc=myDomain,dc=net")
objGroup.GetInfo
 
arrMemberOf = objGroup.GetEx("member")
 
WScript.Echo "Members:"
For Each strMember in arrMemberOf
    WScript.echo strMember
Next