Проблемы с подключением к БД Exchange2003

[lSPVl]

Раньше успешно подключался к БД (скрипт ниже) и выдергивал нужные данные.
Сегодня при запуске скрипта при попытке сделать Select выходит ошибка : Provider: Not enough storage is available to complete this operation.
Кто может объяснить, что случилось и как это лечить?
Есть подозрение, что БД стала ну очень большой (3 Тб) и ADODB тупит.
Спасибо за помощь.
Dim con, rs, rec, all, DateRng,URLroot
'-------------------------------------------
URLroot = "file://./backofficestorage/Base.ru/docstore/Data"
DateRng = " > CAST(""2010-01-12T01:00:00Z"" as 'dateTime')"
'--------------------------------------------

Set con = CreateObject("ADODB.Connection")
con.Provider = "ExOLEDB.DataSource"
con.Open URLroot

Set rec = CreateObject("ADODB.Record")
rec.Open URLroot, con, 1

Set rs = CreateObject("ADODB.Recordset")

wscript.echo "Начинаем SELECT"

rs.OPEN "SELECT ""DAV:displayname"" FROM scope ('shallow traversal of""" & URLroot & """ ') WHERE ""DAV:creationdate"" " & DateRng, con, 1

wscript.echo "SELECT выполнен"

rs.save "Select1.xml",1

wscript.echo "XML файл создан"

all = rs.RecordCount
wscript.echo "Всего папок "+cstr(all)

MsgBox "Select DONE"

[lSPVl]

совсем идей нет?

[Ivan Bardeen]

Так чего скрипт показывает? Как я понял когда чей ящик создан и их общее кол-во?
А общее количество больше 5000?
http://support.microsoft.com/kb/248668

Но в любом случае, я бы такую базу поделил - по рекомендации microsoft база должна быть не более 2 Tb

[lSPVl]

Скрипт выводит "DAV:displayname" (название) всех публичных папок созданых когда либо или по дате. я и хочу поделить базу но для начала мне нужны все имена папок. количество папок пол года назад было около 1,5-2 млн.

[Ivan Bardeen]

но для начала мне нужны все имена папок »
Возьмите их здесь CN=Microsoft Exchange System Objects,DC=domain,DC=com

[lSPVl]

подскажите как корректно написать скрипт с нуля и как запустить.

[Ivan Bardeen]

Чем не устраивает список папок здесь CN=Microsoft Exchange System Objects,DC=domain,DC=com »
подскажите как корректно написать скрипт с нуля и как запустить. »
Похоже вы уперлись в какое-то ограничение. Но тут вопрос скорее к программистам

[lSPVl]

меня устраивает, но я не знаю как :)

[Ivan Bardeen]

меня устраивает, но я не знаю как »
Что вы не знаете как?
Правой кнопкой по Microsoft Exchange System Objects - пункт меню "экспортировать список"

[lSPVl]

найти не могу Microsoft Exchange System Objects

[Ivan Bardeen]

оснастка Active Directory Users and Computers - в ней в меню "view" включите галку "advansed" - после этого вы увидите этот контейнер.
PS: Просто из любопытства а как бэкапите такую здоровую базу?

[lSPVl]

нашел , но это не то

нашел, но там нет нужной инфы

[Ivan Bardeen]

меня устраивает, но я не знаю как »
нашел , но это не то »
C вами сложно общаться :)