Перезапустить програмно COM+ сервер

← →
Sour Smile (2008-01-15 11:54) [0]

У нас, примерно раз в 3 дня, стабильно зависает сервер 1с8. Выяснилось, что необязательно перезапускать полностью сам сервер (компьютер), а достаточно перезапустить COM+ сервер самой 1с8 (Администрирование->Component Services).

А как можно его перезапустить програмно? Ну это для того, чтобы небольшая программка сама перезапускала его каждую ночь.

Просто я с COM+ никогда вплотную не сталкивался, и даже незнаю с какой стороны подойти к этой задаче...

← →
malina (2008-01-15 16:12) [1]

> примерно раз в 3 дня, стабильно зависает сервер 1с8

Дык может луче будет выявить причину зависания?
Может он раз в три дня пытается с кем-то связаться по сети?

← →
Сергей М. © (2008-01-15 16:15) [2]

> Sour Smile (15.01.08 11:54)

А ты, типо, эникейщик в этой конторе ?)

← →
Sour Smile (2008-01-16 09:45) [3]

> malina (15.01.08 16:12) [1]
> Дык может луче будет выявить причину зависания?
> Может он раз в три дня пытается с кем-то связаться по сети?

Думаю врядли. Помоему 1с8 от рождения косая... У нас также стоит 1с77 - проблем вообще нет (кроме разве что ограничения на количество клиентов).

> Сергей М. © (15.01.08 16:15) [2]
> А ты, типо, эникейщик в этой конторе ?)

Типа да, на все клавиши мастер... :)

Кстати мы нашли решение этой задачи. Здесь: http://www.kuban.ru/forum_new/forum9/arhiv/296180.html

В переводе на Delphi это звучит так:

var Applications: TCOMAdminCatalogCollection; aName: WideString; i: Integer; begin COMAdminCatalog1.Connect; Applications:=COMAdminCatalog1.GetCollection("Applications"); Applications.Populate; for i := 0 to Applications.Count-1 do begin aName:=Applications.Get_Item(i).Get_Name; if aName="1CV8" then begin COMAdminCatalog1.ShutdownApplication(aName); Break; end; end; COMAdminCatalog1.Disconnect; end;

Перезапустить програмно COM+ сервер Найти похожие ветки