Ограничения на 2000 строках в выводе учетных записей

' записываем домен
strDomainDN = "Dc=123,DC=ru"    ' e.g. dc=rallencorp,dc=com
LogFolder = "c:\"
 
Set FSO = CreateObject("Scripting.FileSystemObject")
if fso.FileExists("c:\list.txt") then fso.DeleteFile("c:\list.txt")
Set LogFile = FSO.OpenTextFile(LogFolder & "\list.txt", 8, True)
 
strBase   =  "<LDAP://" & strDomainDN & ">;"
' Для поиска в Глобальном каталоге, раскомментируйте эту строку:
' strBase   =  "<GC://" & strDomainDN & ">;"
 
' Создаём фильтр по заданным критериям поиска
strFilter = "(&(objectclass=user)(objectcategory=person));"
strAttrs  = "name;"
strScope  = "subtree"
 
' Записываем в ранее созданный файл
LogFile.WriteLine 
'Подключаемся к базе данных и выполняем запрос с помощью объекта Connection
set objConn = CreateObject("ADODB.Connection")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider"
set objRS = objConn.Execute(strBase & strFilter & strAttrs & strScope)
'Выполнение цикла
'objRS.MoveFirst
'проверяем не достигнут ли конец файла
Do while Not objRS.EOF
'Запись данных с новой строки
LogFile.WriteLine objRS.Fields(0).Value
objRS.MoveNext
 
Loop
 
LogFile.Close
' Вывод на экран ,что скрипт завершен
WScript.Echo "Script находится на диске " & LogFolder

objRS.MoveFirst

WScript.Echo objRS.RecordCount

set objRS = objConn.Execute(strBase & strFilter & strAttrs & strScope)