Выполнение процесса на удаленной машине

[SVL]

Всем привет! Собственно, проблема вот в чем: Программа выполняется на метафрейм-сервере и, соответственно, использует его ресурсы. Но, т.к. требуется выполнения значительных работ в Word, Excel, AutoCad, о ресурсов метафрейм-сервера не хватает. Word, например, периодически вешается и предлагает отправить отчет в Microsoft. Я понял, что можно запустить процесс с помощью CreateObject на любой удаленной машине. Он запускается, выполняется, но видимым сделать окно того же Word невозможно. Посоветуйте, пожалуйста, что можно предпринять в этом случае?

[hCORe]

Если объект MS Word'а создан, то видимым его сделает следующий код (WordObject это предварительно созданный объект):

Код: Выделить всё

'Показать MS Word
WordObject.Visible = True

Если я правильно понял, то ты хочешь сделать его видимым чтобы закрыть. Тогда тебе поможет следующий код:

Код: Выделить всё

'Закрыть MS Word и уничтожить объект
WordObject.Visible = False
WordObject.Quit
Set WordObject = Nothing

Если ты все это сделал, но Word не появляется на экране, значит такая твоя судьба

[SVL]

Если объект MS Word'а создан, то видимым его сделает следующий код (WordObject это предварительно созданный объект):

Я знаю, что этот код должен сделать его видимым, но он не делается. Может, он не может стать видимым, если запущен на удаленной машине?

Если я правильно понял, то ты хочешь сделать его видимым чтобы закрыть. Тогда тебе поможет следующий код:

Нет, закрыть я его не хочу. Хочу, наоборот, чтобы он отобразился на экране и пользователь мог в нем сделать все, что ему нужно.

[alibek]

А как ты создаешь инстанс Word'а?

[SVL]

А как ты создаешь инстанс Word'а?

Код: Выделить всё

Dim wordob as Object
Set wordob=CreateObject("Word.Application","compname")

[SVL]

Кстати, возникла еще одна проблема. Когда я пытаюсь открыть документ, расположенный на сервере в общей папке, следующим кодом:

Код: Выделить всё

Set wordob=CreateObject("Word.Application","remotecomp")
wordob.Documents.Open("\\myserver\myfolder\myfile.doc")

, то получаю сообщение:
RunTime Error 5273
Неверно указан путь или имя документа,
а следующий код

Код: Выделить всё

Set wordob=CreateObject("Word.Application","thiscomp")
wordob.Documents.Open("\\myserver\myfolder\myfile.doc")

срабатывает без проблем.

[Sebas]

Только в ДСОМ надо поставить Интерактивного юзера...

Гиморно это...

[SVL]

Только в ДСОМ надо поставить Интерактивного юзера...

Sebas, я читал твои сообщения, ты в DCOM хорошо понимаешь. Я с ним столкнулся в первый раз. Объясни поподробнее как это сделать.

[Sebas]

ICQ 48121966

сформулируй в асе, это надолго, не для форума

[Tamahawk]

Тогда у тя тама ошибка синтаксиса
в этой строке

Код: Выделить всё

Set wordob=CreateObject("Word.Application","remotecomp")

[Tamahawk]

А я теперь заметиль: вот тут

Код: Выделить всё

wordob.Documents.Open("\\myserver\myfolder\myfile.doc")

зачем ты повторно написал \\myserver, хватить верхнего т.е. там где CreatObject
просто путь укажи путь \myfolder\myfile.doc хватит

далжон получится