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

[Tony Green]

Можно ли программно мягко перезапустить AOS внешней программой?

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

Изначально задача стояла так: периодически мягко перезапускать AOS.

[komar]

Что за беда вынудила так часто его перезапускать?

[Andrew Lyskov]

AOS - стандартный NT-сервис. используй команды NET START "имя сервиса", NET STOP "имя сервиса".

[Tony Green]

lbs, это не мягкий перезапуск AOS'а. Предложенный способ, конечно, очень эффективный :-)

нужно, чтобы эффект при остановке AOS'а был такой же, как при нажатии кнопки Stop в окне Server Manager, а именно предупреждение уже подключенных юзеров и запрет на подключение новых, пока сервер останавливается.

ps: про беду ничего вразумительного ответить не могу. и вообще это не принципиальный вопрос - гораздо интереснее подумать, как это сделать :-)

[komar]

а вот и нет - гораздо интереснее подумать, как этого не делать
можно, конечно, пробовать лечить все глюки таким способом :-)) можно еще взять на вооружение периодическую переинсталляцию как говорил мне когда-то один системный администратор, "нужно чаще форматировать винчестер"

[Andrew Lyskov]

Tony... я бы предложил придерживаться рекомендаций производителя и не запускать боевое приложение на одном сервере вместе с др. приложениями. Потом может дороже выйти... например, вы знаете сколько стоит 30 минут простоя вашего коммерческого отдела?

[Tony Green]

lbs, может я чего-то не понял...

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

[mazzy]

Как решить задачу в лоб - не знаю.

Думаю, что ты уже нашел, как передать сообщения пользователям.
AOSSessionInfo::sendMessage(sesId, title, message);

Также думаю, что ты уже нашел, как принудительно завершить сессию.
boolean _force = true;
infolog.shutdown(_force);

А вот как программно дать команду AOS'у? Не знаю.
Может быть используя SysinfoAction? Но это вроде изврат.

Все равно остается задача как программно запустить AOS после всего этого безобразия... Нужны параметры командной строки для ax32serv.exe

Классный вопрос. Если найдешь, ответ, то дай знать пожалуйста.

[mazzy]

Кстати, как и говорил glibs можно поставить режим запуска ondemand.
Тогда принудительно AOS запускать не нужно.

Остается решить задачу программно завершить AOS.
Для этого нужно, чтобы AOS выполнил команду infolog.shutdown(true); по некоторой команде. Может все же через SysInfoAction?

[Tony Green]

Если кому интересно, то всё закончилось написанием программки на дельфи, которая посылает сообщения в окошко сервер менеджера. Конечно немножко кривовато, но способа проще я не нашёл.

[bio_unit]

если не сложно, не могли бы Вы привести кусок кода, который посылает сообщение
интересует какое именно сообщение нужно посылать и параметры

[tolstjak]

Цитата:

Сообщение от Tony Green

Если кому интересно, то всё закончилось написанием программки на дельфи, которая посылает сообщения в окошко сервер менеджера. Конечно немножко кривовато, но способа проще я не нашёл.

Подельтесь пожалуйста Вашим кодов мягкой остановки и последующего запуска АОС. Стоит примерно такая же задача: ежедневное (ночное) восстановление базы на сервере SQl 2005 из бэкапа, созданного на другом сервере SQL 2000. При этом на время восстановления необходимо монопольно владеть базой (остановитььАОС).

Заранее благодарен.

[AndyD]

Ну Tony Green не отвечает, попробую я

Во вложении dll и примеры вызова ее функций из Axapta'ы (функции в кач-ве параметров принимают имя или адрес хоста, на котором запущен Server Manager и имя AOS).

Функции -

AosStart(HostName, AOSName) - запуск AOS
AosStop(HostName, AOSName) - остановка AOS
AosStatus(HostName, AOSName) - плучение статуса выполнения AOS

PS. Для работы функций требуется запущенный Server Manager

PPS Удалил вложение, исправление с правами доступа ниже

[tolstjak]

Цитата:

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

Ну Tony Green не отвечает, попробую я

Во вложении dll и примеры вызова ее функций из Axapta'ы (функции в кач-ве параметров принимают имя или адрес хоста, на котором запущен Server Manager и имя AOS).

Функции -

AosStart(HostName, AOSName) - запуск AOS
AosStop(HostName, AOSName) - остановка AOS
AosStatus(HostName, AOSName) - плучение статуса выполнения AOS

PS. Для работы функций требуется запущенный Server Manager

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

[AndyD]

Вообще-то там dll. Вызывать функции из нее можно из любого языка, поддерживающего их использование, в том числе из командной строки.

[tolstjak]

Цитата:

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

Вообще-то там dll. Вызывать функции из нее можно из любого языка, поддерживающего их использование, в том числе из командной строки.

Большое спасибо.

[AndyD]

Прошу прощения, насчет командной строки погорячился.
Добавил новые функции для вызова из нее.

Вызывается так
Запуск AOT
rundll32 AosMgr.dll,AosStart_RunDll Axapta "Aaa 1" 1

Остановка AOT
rundll32 AosMgr.dll,AosStop_RunDll Axapta "Aaa 1" 1

После имени вызываемой функции указывается имя хости или IP адрес.
Второй параметр - имя AOS. Если в имени есть пробелы, то заключить в двойные кавачки.
Третий параметр - показывать (1)/не показывать (0 или не указывать параметр) сообщение в случае ошибки

Так же исправил ошибку при передаче имени AOS на сервер

Вложение в сообщении выше обновил.

[andy.l]

"Круто"
Получается, что с любого компа можно остановить AOS!
Так это же доступ без контроля, а проще говоря дырка.

[AndyD]

Да. И я о том же
Dll практически делает то-же самое, что и AxCtrl.exe

[Migel_84]

Никто не пытался осуществить вышеописанное не в AXAPTA? Я пытаюсь сделать на делфи, но никак не получается, ошибку выдаёт. Вот код

Цитата:

...
function AOS(HostName,AOSName:String):integer;stdcall;
external 'AosMgr.dll' name 'AosStatus';

procedure TForm1.Button1Click(Sender: TObject);
begin
case AOS('10.10.0.10','AXAPTA') of <-ЗДЕСЬ ОШИБКА
-1: Label1.Caption := 'Connection timed out';
-2: Label1.Caption := 'Connection refused';
-3: Label1.Caption := 'Protocol error';
-4: Label1.Caption := 'Server manager not started';
-5: Label1.Caption := 'AOS stopped';
-6: Label1.Caption := 'AOS start pending';
-7: Label1.Caption := 'AOS stop pending';
-8: Label1.Caption := 'AOS running';
-9: Label1.Caption := 'AOS not found on server';
-10: Label1.Caption := 'Cannot assign requested address';
-11: Label1.Caption := 'Unknown TCP error';
-12: Label1.Caption := 'AOS unknown status';
else Label1.Caption := 'Unknown error';;
end;
end;
...

Кто-нибудь может подсказать?