import org.ldaptive.*;

public class Main {

    public static void main(String[] args) throws LdapException {

        PooledConnectionFactory cf = PooledConnectionFactory.builder()
                .config(ConnectionConfig.builder()
                        .url("ldap://teplo.local:389")
                        .build())
                .min(2)
                .max(5)
                .build();
        cf.initialize();

        SearchOperation search = new SearchOperation(cf, "dc=teplo,dc=local");
        SearchResponse response = search.execute(SearchRequest.builder()
                .dn("OU=IT,OU=Security,OU=Departments,DC=teplo,DC=local")
                .filter("(&(objectclass=user)(objectcategory=person))")
                .returnAttributes("distinguishedName", "cn")
                .build());
        System.out.println(response.entrySize());

    }
}

strDomainDN = "OU=IT,OU=Security,OU=Departments,DC=teplo,DC=local"

strBase   =  "<LDAP://" & strDomainDN & ">;"
strFilter = "(&(objectclass=user)(objectcategory=person));"
strAttrs  = "distinguishedName,cn;"
strScope  = "subtree"
set objConn = CreateObject("ADODB.Connection")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider"
set objRS = objConn.Execute(strBase & strFilter & strAttrs & strScope)
WScript.Echo objRS.RecordCount