' Kod uaktywnia szukanie ze stronicowaniem
' ------ KONFIGURACJA SKRYPTU ------
strBase    =  "<LDAP://<BazowaNazwaWyrniajca>>;"
strFilter  = "<Filtr>;"
strAttrs   = "<ListaAtrybutw>;"
strScope   = "<Zakres>"
' ------ KONIEC KONFIGURACJI ---------

set objConn = CreateObject("ADODB.Connection")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider"
set objComm = CreateObject("ADODB.Command")
objComm.ActiveConnection = objConn
objComm.Properties("Page Size") = 1000
objComm.CommandText = strBase & strFilter & strAttrs & strScope
set objRS = objComm.Execute
objRS.MoveFirst
while Not objRS.EOF
    Wscript.Echo objRS.Fields(0).Value
    objRS.MoveNext
wend
