Программный перезапуск AOS

[vallys]

Извините, что не смог ответить сразу.

Цитата:

Сообщение от AndyD

1. Сомневаюсь, что бы в открытом доступе была подобная информация.

Спасибо.

Цитата:

Сообщение от AndyD

2. Эту операцию необходимо выполнять программно?

Да... желательно. Иногда возникает необходимость остановить все АОСы (три штуки на разных серверах) и выставить им режимом запуска = "manual" для предотвращения автоматического запуска. И, соответственно, после выполненных работ, необходимо их запустить и выставить им режимом запуска = "on demand". Если есть возможность програмно управлять режимом запуска АОСа, то данную процедуру можно автоматизировать.

[gl00mie]

Цитата:

Сообщение от vallys

Иногда возникает необходимость остановить все АОСы (три штуки на разных серверах) и выставить им режимом запуска = "manual" для предотвращения автоматического запуска. И, соответственно, после выполненных работ, необходимо их запустить и выставить им режимом запуска = "on demand". Если есть возможность програмно управлять режимом запуска АОСа, то данную процедуру можно автоматизировать.

Ну вот, сказали бы сразу, какая стоит задача, было б намного проще... Иными словами, необходимо остановить AOS'ы с типом запуска OnDemand на определенное время - так, чтобы они в это время по любому не запускались. Но ведь добиться этого можно и другими способами, кроме запудривания мозгов Axapta Object Manager'у. Главное условие: чтобы на тех же серверах не было других AOS'ов, которые должны на это время оставаться доступными. Так вот, почему бы просто не останавливать на указанное время сервис Axapta Object Manager? Тогда AOS'ы точно не запустятся, пока вы не перезапустите этот сервис, - и не надо будет менять параметры их запуска.

[vallys]

Цитата:

Сообщение от gl00mie

Ну вот, сказали бы сразу, какая стоит задача, было б намного проще... Иными словами, необходимо остановить AOS'ы с типом запуска OnDemand на определенное время - так, чтобы они в это время по любому не запускались

Да, именно так. Сожалею, что не описал раньше.

Цитата:

Сообщение от gl00mie

...Главное условие: чтобы на тех же серверах не было других AOS'ов, которые должны на это время оставаться доступными...

На одном как раз есть. Для тестового и др. временных АОСов отдельный сервер не выделен. Так что вопрос остается открытым. Но за предложение спасибо, на текущий момент два АОСа из трех действительно можно так остановить. Кстати, будет ли выдано предупреждение пользователям, что АОС останавливается, если остановить сервис Axapta Object Manager?

[vallys]

Цитата:

Сообщение от vallys

...Кстати, будет ли выдано предупреждение пользователям, что АОС останавливается, если остановить сервис Axapta Object Manager?

Не будет.
Вопрос открыт.

[gl00mie]

Цитата:

Сообщение от vallys

Кстати, будет ли выдано предупреждение пользователям, что АОС останавливается, если остановить сервис Axapta Object Manager?

Цитата:

Сообщение от vallys

Не будет. Вопрос открыт.

Ну так остановите их предварительно, в чем проблема? Останавливать-то AOS'ы с помощью выложенной здесь dll-ки можно. А получить их список можно из реестра, к примеру, через wmi - равно как и тормознуть сам сервис Axapta Object Manager

' константы, обозначающие ветки реестра
const HKCR	= &H80000000
const HKCU	= &H80000001
const HKLM	= &H80000002
const HKU	= &H80000003

const strAOSkey	= "system\currentcontrolset\services\axapta object server\applications"
const strAOSsvc	= "Axapta Object Server"
const strHost	= "."		' подставить нужное имя хоста; точка == localhost
set oWshShell	= CreateObject("WScript.Shell")
set oReg	= GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strHost & "\root\default:StdRegProv")
oReg.EnumKey HKLM, strAOSkey, colKeys
' тормозим все AOS'ы, о которых есть упоминания в реестре
for each objKey in colKeys
	WScript.Echo "Stopping AOS '" & objKey & "' at " & strHost
	oWshShell.Run "rundll32.exe AosMgr.dll,AosStop_RunDll " & strHost & " """ & objKey & """ 1", 7, True
next
' тормозим службу Axapta Object Manager
set oWMI	= GetObject("winmgmts:\\" & strHost & "\root\cimv2")
oWMI.ExecMethod("Win32_Service.Name='" & strAOSsvc & "'", "StopService")
set oReg	= nothing
set oWshShell	= nothing
set oWMI	= nothing

Здесть хоть WshShell.Run и вызывается синхронно (т.е. он вернет управление лишь после завершения запускаемого процесса), однако перед остановкой сервиса все равно лучше вставить какую-нить проверку или паузу. Но общая идея должна быть ясна.

[vallys]

Цитата:

Сообщение от gl00mie

Ну так остановите их предварительно, в чем проблема?

Действительно... что ж это я так...

Цитата:

Сообщение от gl00mie

...Но общая идея должна быть ясна.

Все понятно, спасибо за наглядный пример.
Только на одном сервере все-таки не охота глушить сервис из-за работы других АОСов.