Есть небольшой тестовый код, который устанавливает квоты для Public Folder Exchange 2003

Const adModeWrite = 2
Const adCreateCollection = &H00002000
Const adCreateStructDoc = &H80000000
Const adCreateNonCollection = &H00000000
Const adOpenIfExists = &H02000000
Const adCreateOverwrite = &H04000000
Const adFailIfNotExists = -1

 on error resume next
 Dim cn 
 Dim rec 
 Dim strConn

 Dim strURL
 strConn = "http://server/public/"
 strURL = "http://server/exadmin/admin/"
 strURL = strURL & "domain"
 strURL = strURL & "/public folders/folder_name/"

 Set cn = CreateObject("ADODB.Connection")
 Set rec = CreateObject("ADODB.Record")
 cn.Provider = "msdaipp.dso"

 cn.Open strConn, user, pass
 rec.Open strURL, , adModeReadWrite, adCreateOverwrite

 if err.number <> 0 then
    msgbox err.number & " - " & err.description
 end if

'Use the quotas specified by other properties.
rec.Fields("http://schemas.microsoft.com/mapi/proptag/0x67790003").Value = 0
'Issue warning at (Kb).
rec.Fields("http://schemas.microsoft.com/exchange/storagequotaissuewarninglimit").Value = 200
'Prohibit post at (Kb).
rec.Fields("http://schemas.microsoft.com/mapi/proptag/0x67210003").Value = 1000
'Maximum item size (Kb).
 rec.Fields("http://schemas.microsoft.com/mapi/proptag/0x67220003").Value = 500
 rec.Fields.Update

 rec.Close
 cn.Close

 Set rec = Nothing
 Set cn = Nothing
    
 msgbox "ok"

Такая вот есть проблема. Под win2000 server тест работет.
А под win2003 server в строке
rec.Open strURL, , adModeReadWrite, adCreateOverwrite
выдет ошибку

-2147217895 — Object or data matching the name, range, or selection criteria was not found within the scope of this operation.

Чувствую, что это проблема где-то в настройках win2003. Смотрел network monitor. Под win2000 пакеты ходят, а вот под win2003 нет. Т.е. даже никаких обращений.
Рещил посмотреть через броузер (Web Access принцип работы тот же), если в настройках изменить секурити c Hight на Medium, то доступ получаю, в противном случае нет. Тогда решил посмотреть в regidstry Internet Settings для WinInet, там по дефолту стояли hight permission. Изменил на medium. Результат тот же. Менял только значение ключа.

Может кто знает, что надо еще подкрутить или если я ошибаюсь, то в каком направлении копать.
Бьюсь с этим второй день Да еще, на win2003 exchange не стоит. Это к тому, что на машинах с exchange данный код принципиально не работает, т.е.

MSDAIPP Cannot be Run on the Exchange Server
The Microsoft OLE DB Provider for Internet Publishing (MSDAIPP) is not supported on the Exchange computer. Running MSDAIPP is supported on a computer where Exchange is not installed.

Буду благодарен любым идеям, решающим проблему