В программе на ASP (Active Server Pages) вызывается объект Microsoft Graph, создается график, который нужно записать в файл командой Export. Однако при исполнении команды выдается следующая ошибка:

Microsoft VBScript runtime ошибка '800a03ec'
Unknown runtime error
/gr.asp, line ...

Система Windows 2003 Server SP1, MsGraph установлен вместе с Microsoft Office 2003 SP2.
Для решения проблемы запускал dcomcnfg.exe - Component Services - Компьютеры - Мой компьютер - Настройка DCOM - Приложение Microsoft Graph - свойства.
В разделе Безопасность был добавлены все возможные права (разрешение на запуск и активацию, права доступа, разрешения на настройку) пользователю IUSR_имя_компьютера и даже пользователю IWAM_имя_компьютера.
Также для этих пользователей были настроены права доступа к объекту {000C101C-0000-0000-C000-000000000046} - из-за строки в событиях системы: "Настройки разрешений используемые по умолчанию на машине не предоставляют разрешение Локально Активация для приложения сервера COM Server с CLSID {000C101C-0000-0000-C000-000000000046} пользователю NEW-SERVER\IUSR_NEW-SERVER SID (S-1-5-21-2952995054-1609220070-1419796938-1003). Это разрешение можно изменить с помощью средства администрирования Component Services."

Пользователю IUSR_имя_компьютера был дан доступ к файлу Grаph.exe

Пользователю IUSR_имя_компьютера разрешен доступ к каталогу, куда нужно записывать командой Export файл file.gif.

Но ошибка остается. Может кто встречался с подобным, что еще разрешить нужно?...

Текст файла gr.asp
<%
set oGraph = server.CreateObject("MSGraph.Chart.8")
WITH oGraph
.ChartType= 4
.Width = 800
.Height = 700
'.ChartTitle.Font.Size=8 !!!!!!
.HasLegend = True
'Заголовок картинки
'.ChartTitle.Text="aStat(7,j)"!!!!!!
.HasTitle=True
dim tr
.Axes(1).HasTitle=TRUE 'разрешение работы с осью Х
.Axes(1).AxisTitle.Font.Size=8
' .Axes(1).TickLabels=TRUE

.Axes(2).TickLabels.Font.Size=5
.Axes(1).TickLabels.Font.Size=3
.Axes(1).TickLabels.Font.Name = "times"
.Axes(1).TickLabels.Orientation=90

'Задание цвета шрифта легенды (5 - голубой)
.Legend.Font.ColorIndex = 5
'Задание размера шрифта легенды
.Legend.Font.Size = 7
.Legend.Position = 2
.Legend.AutoScaleFont = True
'Задание положения расположения легенды
.Legend.Position = -4107 '-4152 - справа, -4107 - внизу
'Включение тени
.Legend.Shadow = True
'==============================================================
FOR nSeriesCollection=1 TO .SeriesCollection.COUNT
' *Установить стиль - 0 - нет точки на значении; 1-9 разного типа точки (треугольник, круг, квадрат)
.SeriesCollection(nSeriesCollection)
.SeriesCollection(nSeriesCollection).MarkerStyle = 1
' *Толщина линии (1 - тонкая, 4 - самая толстая)
.SeriesCollection(nSeriesCollection).BORDER.Weight = 2
NEXT
'==============================================================
set oData = .Application.DataSheet
oData.Cells.ClearContents
oData.Cells.Clear
oData.Cells(1,1).Value = "Jours"
oData.Cells(1,2).Value = "Lu"
oData.Cells(1,3).Value = "Ma"
oData.Cells(1,4).Value = "Me"
oData.Cells(1,5).Value = "Je"
oData.Cells(1,6).Value = "Ve"
oData.Cells(1,7).Value = "Sa"
oData.Cells(1,8).Value = "Di"
oData.Cells(2,1).Value = "Valeurs"
oData.Cells(2,2).Value = 10
oData.Cells(2,3).Value = 20
oData.Cells(2,4).Value = 30
oData.Cells(2,5).Value = 50
oData.Cells(2,6).Value = 80
oData.Cells(2,7).Value = 100
oData.Cells(2,8).Value = 30

filepath = Server.MapPath("/db")
filename=filePath &"\file.gif"
.Export filename,"gif"
'.Export(filename)
.SeriesCollection(.SeriesCollection.Count).Delete
.Application.Quit()
oData = null
END WITH
oGraph = null
response.write(filename)
'response.end
%>

Не нашел я других способов заставить работать Microsoft Graph из ASP, кроме как установить отдельно Microsoft Graph из Microsoft Office XP.
Кроме того для Windows 2003 Server следует запустить dcomcnfg.exe, в списке DCOM найти объект Microsoft Graph и дать доступ интернет-пользователю IUSR_имя_компьютера на запуск компоненты.