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

[gefr]

Дело в автоматизации и распределенности. как же мы сейчас работаем, если договориться не можем? просто это автоматизированная договоренность.

[falcon65]

BuilderC++ ругается при компиляции на параметы в функциях aosmgr.dll. Как правильно подключить эту библиотеку к проекту. Есть ли подробное описание функций бибилиотеки?

[AndyD]

Для Builder'а не знаю, но для VisualC можно так
Файл "aosmgr.h"

#ifndef _AOSMGR_H_
#define _AOSMGR_H_

#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */

#include <windef.h>

typedef UINT (CALLBACK * LPFNDLLAOSSTATUS)(char* Host, char* AOSname);
typedef UINT (CALLBACK * LPFNDLLAOSSTART)(char* Host, char* AOSname);
typedef UINT (CALLBACK * LPFNDLLAOSSTOP)(char* Host, char* AOSname);

#ifdef __cplusplus
}
#endif /* __cplusplus */

#endif

файл "AxAosMgr.cpp" - пример консольного приложения, выводящего информацию о статусе AOS. Использование функций старта/остановки AOS аналогично

// AxAosMgr.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"
#include <windef.h>
#include <winbase.h>
#include <winuser.h>
#include <malloc.h>
#include "aosmgr.h"

char * GetStatusStr(int _status)
{
   switch (_status)
   {
		case 1:
			return "AOS остановлен";
		case 2:
			return "AOS запускается";
		case 3:
			return "AOS останавливается";
		case 4:
			return "AOS запущен";
        case -1:
            return "Connection timed out";
        case -2:
            return "Connection refused";
        case -3:
            return "Protocol error";
        case -4:
            return "Server manager not started";
        case -5:
            return "AOS stopped";
        case -6:
            return "AOS start pending";
        case -7:
            return "AOS stop pending";
        case -8:
            return "AOS running";
        case -9:
            return "AOS not found on server";
        case -10:
            return "Cannot assign requested address";
        case -11:
            return "Unknown TCP error";
        case -12:
            return "AOS unknown status";
        case -13:
            return "Access denied";
        case -14:
            return "Service error";
        case -15:
            return "Invalid Axapta Service Name";
        case -16:
            return "Service Does Not Exist";
        case -17:
            return "Service Not Started";
        case -18:
            return "Server Unavailable";
        default:
            return "Unknown status";
   }
}

int _tmain(int argc, _TCHAR* argv[])
{
	HINSTANCE hDLL;               
	LPFNDLLAOSSTATUS	AOSStatus;    
	LPFNDLLAOSSTART		AOSStart;    
	LPFNDLLAOSSTOP		AOSStop;   
	char*				msg;

	hDLL = LoadLibrary("AosMgr.dll");

	if (hDLL != NULL)
	{
	   AOSStatus = (LPFNDLLAOSSTATUS)GetProcAddress(hDLL, "AosStatus");
	   if (!AOSStatus)
	   {
		  FreeLibrary(hDLL);       
		  return -1;
	   }
/*	   AOSStart = (LPFNDLLAOSSTART)GetProcAddress(hDLL, "AosStart");
	   AOSStop = (LPFNDLLAOSSTOP)GetProcAddress(hDLL, "AosStop");*/

	   msg = GetStatusStr(AOSStatus("Axapta", "Axapta"));
	   if (msg)
	   {
			char * buf = (char*) malloc(strlen(msg)+1);
			strcpy(buf, msg);
			CharToOem(buf, buf);
			printf("%s\n", buf);
			free(buf);
	   }
	}
	return 0;
}

[falcon65]

Большое спасибо, AndyD!!!!!

[patron]

Уважаемый AndyD возникла необходимость воспользоваться вашей утилитой. При запуске из командной строки:
rundll32 AosMgr.dll,AosStart_RunDll serverName aosName

происходит сбой аоса, после которого он не запускается даже через Service Manadger
лог ошибки:
Ошибка1:
"Описание:
Object Server Dev: Fatal SQL condition during login. Error message: "Внутренний системный номер версии таблицы, хранящейся в базе данных, больше, чем версия, поддерживаемая ядром (33/31). Используйте более новое ядро Microsoft Business Solutions-Axapta, или запустите Microsoft Axapta используя параметр -REPAIR командной строки, чтобы провести синхронизацию."
"
Ошибка2
"Object Server Dev: Axapta Server received an invalid socket"

У нас Axapta 3.0 CIS SP3 build 9.2
Буду признателен за ответ

[AndyD]

А кто у вас на сервере слушает порт TCP 2712?
Service Manager - это имеется в виду Server Manager?

Схема работы dll-ки такая.
По порту TCP 2712 идет обращение к Server Manager (Ax32mgr.exe). А уже Server Manager при необходимости загружает нужный инстанс AOS (ax32serv.exe)
Для проверки, попробуйте запустить утилиту axctrl.exe (утилита для настройки AOS) с удаленной машины и поуправлять сервером

[patron]

Цитата:

Service Manager - это имеется в виду Server Manager?

Да, это я попутал

Цитата:

Схема работы dll-ки такая.
По порту TCP 2712 идет обращение к Server Manager (Ax32mgr.exe). А уже Server Manager при необходимости загружает нужный инстанс AOS (ax32serv.exe)
Для проверки, попробуйте запустить утилиту axctrl.exe (утилита для настройки AOS) с удаленной машины и поуправлять сервером

Спасибо за совет, щас попробую.

[vallys]

Ув. AndyD!
Во-первых, спасибо за оч. полезную библиотеку!
А во-вторых, позвольте задать Вам пару вопросов:
1. Знаете ли Вы как (не партнеру) можно найти информацию о принципах управления Server Manager (Ax32mgr.exe) по порту TCP 2712 (инет, доки, книги)?
2. Возможно ли подобным образом управлять и "режимом запуска" АОСа (manual, on demand)? И (в случае положительного ответа) может Вы бы согласились доработать Вашу библиотеку для управления "режимом запуска" АОСа ?

Заранее, спасибо.

[AndyD]

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

[vallys]

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

Цитата:

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

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

Спасибо.

Цитата:

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

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

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

[Dron AKA andy]

Присоединяюсь к просьбе vallys.

[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

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

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

[Dron AKA andy]

Вновь подниму тему, вдруг у кого какие полезные мысли появились? Остался открытым вопрос: можно ли программно менять режим запуска AOS с "On Demand" на "Manual" и обратно?

[AndyD]

Выкладываю обновление dll.

• Добавлены методы для вызова из командной строки:

AosGetStartupType_RunDll - информация об типе запуска AOS (командный файл startup.cmd с примером вызова и обработки сообщений)

AosSetStartupTypeAutomatic_RunDll
AosSetStartupTypeManual_RunDll
AosSetStartupTypeDisable_RunDll
AosSetStartupTypeOnDemand_RunDll
- ряд функций для установки типа запуска AOS. Названия функций соответствуют выполняемому действию (пример использования - в файле startupDisable.cmd).

Правила вызова функций остаются прежними:

rundll32 AosMgr.dll,AosStatus_RunDll Axapta "Aaa 1" 1

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

В методы, вызываемые из RunDll добавлено возвращение кода возврата (можно обрабатывать через errorlevel). Во вложении есть пример обработки возвращаемого статуса в файле start.cmd (для всех методов обработка одинаковая)

• Добавлены методы для вызова из среды разработки:

AosGetStartupType - для получения информации о типе запуска AOS
AosSetStartupType - для установки информации о типе запуска AOS

В архиве вложен проект для Аксапты с реализацией класса управления AOS


Все функции, изменяющие статусы/останавливающие/стартующие AOS для своего выполнения требуют наличия соответствующих прав

[Dron AKA andy]

AndyD, респект!

[Delfins]

Что то у меня не правильно работает обработка статуса при стопе:

:stop_AOS
echo STOP AOS: "%X_AOSNAME%@%X_AOSSERVER%"
rundll32 %AOS_BIN%/AosMgr.dll,AosStop_RunDll %X_AOSSERVER% %X_AOSNAME% 0

:check_AOS_STOPStatus
sleep 2
rundll32 %AOS_BIN%/AosMgr.dll,AosStatus_RunDll %X_AOSSERVER% %X_AOSNAME% 0
if errorlevel 1 goto exit_OK

goto check_AOS_STOPStatus

Пока идёт цикл остановки ("Stopping ..." в АОС утилите).. он у меня возвращает как уже остановленный... поэтому при копировании файлов у меня ошибка - аои занят (я его удаляю..)

Это так и должно быть?
Спасибо за утилитку!