автоматизация установки клиента Axapta

[Roman777]

Всем добрый вечер.
Интересует вопрос автоматизированной установки клиента Axapta на рабочие станции домена.
Суть в следующем: чтобы установить Axapta SP4 KR3 необходимо как
минимум установить Axapta CIS 30, затем Axapta 30 SP4, и Axapta KR3. Руками - трудоемко, т.к. компьютеров с Axapta порядка сотни.
Кто-нибудь делал из этого всего один .msi файл?
Поделитесь пожалуйста мыслями.
Спасибо.

[KiselevSA]

Формировали и пакет msi для развертывания (есть для этого программы), но не вижу я смысла в установке клиента на все машины. Равернули на одну станцию, сформировали рабочую директорию с набором файлов и копируйте.
Достаточно скрипта:

Dim DesktopPath, Shortcut
Dim UserName, SDrive
Dim WshShell, ObjEnv, Wscr
Dim fso
Dim VerCL, VerSRV
Dim ProgPath, WorkPath, LnkPath, TagPath, CfgPath, DPath
Dim oFolder, oFile, file
Const ClientPath = "шара, где лежит клиент"
Const DestPath = "%SYSTEMDRIVE%\Program Files\Navision\Axapta\Client\Bin"
Const Cfg1 ="что-то -user=" --путь до конфигурациооного файла и параметр для имени, если нужно

Set fso = createobject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set ObjEnv = WshShell.Environment("Process")

SDrive = ObjEnv("SYSTEMDRIVE")
ProgPath = SDrive + "\Program Files\Navision\Axapta\Client\Bin"
DPath = WshShell.ExpandEnvironmentStrings(DestPath)
If (Not fso.FileExists(ProgPath & "\Ax32.exe")) Then
	If (Not fso.FolderExists(SDrive & "\Program Files\Navision")) Then
		fso.CreateFolder(SDrive & "\Program Files\Navision")
	End If
	If (Not fso.FolderExists(SDrive & "\Program Files\Navision\Axapta")) Then
		fso.CreateFolder(SDrive & "\Program Files\Navision\Axapta")
	End If
	If (Not fso.FolderExists(SDrive & "\Program Files\Navision\Axapta\Client")) Then
		fso.CreateFolder(SDrive & "\Program Files\Navision\Axapta\Client")
	End If
	If (Not fso.FolderExists(SDrive & "\Program Files\Navision\Axapta\Client\Bin")) Then
		fso.CreateFolder(SDrive & "\Program Files\Navision\Axapta\Client\Bin")
	End If

	fso.CopyFile (ClientPath & "\*.*"), DPath
	DesktopPath = WshShell.SpecialFolders("Desktop")
	TagPath = DPath & "\Ax32.exe"
	If (Not fso.FileExists(DesktopPath & "\Axapta.lnk")) Then
		Set Shortcut = WshShell.CreateShortcut(DesktopPath & "\Axapta.lnk")
			Shortcut.TargetPath = """" & TagPath & """"
			Shortcut.Arguments = Cfg1 
			Shortcut.WorkingDirectory = DPath
			Shortcut.IconLocation = (DPath & "\Ax32.exe,0")
			Shortcut.WindowStyle = 1
			Shortcut.Save
	End If
Else
		VerCL = fso.GetFileVersion(ProgPath & "\Ax32.exe")
		VerSRV = fso.GetFileVersion(ClientPath & "\Ax32.exe")
		If (VerSRV <> VerCL) Then
			set oFolder = fso.GetFolder(DPath)
			Set oFile = oFolder.Files
			For Each i In oFile
				file = oFolder.Path & "\" & i.Name
				fso.DeleteFile file, true
			Next	
			fso.CopyFile (ClientPath & "\*.*"), DPath
		End If 
End If

[gl00mie]

Цитата:

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

Интересует вопрос автоматизированной установки клиента Axapta на рабочие станции домена. Суть в следующем: чтобы установить Axapta SP4 KR3 необходимо как минимум...
Кто-нибудь делал из этого всего один .msi файл?

Цитата:

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

Формировали и пакет msi для развертывания (есть для этого программы), но не вижу я смысла в установке клиента на все машины. Равернули на одну станцию, сформировали рабочую директорию с набором файлов и копируйте.

Полностью поддерживаю, с MSI больше мороки. Можно, конечно, воспользоваться установкой через групповую политику, но я лично написал банальный батник для удаленной (со своего компа) установки. При этом не просто копируются файлы клиента, но еще проверяется доступность указанной машины, наличие на ней предыдущей "установки" (по тому же пути) клиента и его полный снос, а также регистрация небходимых OCX и DLL и создание записей в реестре, чтобы нормально создавались сообщения в eventlog, и работал performance monitor. До кучи еще копируются необходимые шрифты, и в реестр импортируются данные для подставновки шрифтов, чтобы не было "крякозябр".
Правда, для работы батника понадобится psexec, 4nt и админские права на удаленной машине.

[Roman777]

Цитата:

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

Полностью поддерживаю, с MSI больше мороки. Можно, конечно, воспользоваться установкой через групповую политику, но я лично написал банальный батник для удаленной (со своего компа) установки. При этом не просто копируются файлы клиента, но еще проверяется доступность указанной машины, наличие на ней предыдущей "установки" (по тому же пути) клиента и его полный снос, а также регистрация небходимых OCX и DLL и создание записей в реестре, чтобы нормально создавались сообщения в eventlog, и работал performance monitor. До кучи еще копируются необходимые шрифты, и в реестр импортируются данные для подставновки шрифтов, чтобы не было "крякозябр".
Правда, для работы батника понадобится psexec, 4nt и админские права на удаленной машине.

Этот вариант подходит.
Правильно ли я понимаю, что необходимо предварительно установить только на одну машину клиента с необходимым SP и KR, скопировать получившийся Bin в директорию Bin для батника?
Можно немного поподробнее о запуске этого скрипта?

[gl00mie]

Цитата:

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

Правильно ли я понимаю, что необходимо предварительно установить только на одну машину клиента с необходимым SP и KR, скопировать получившийся Bin в директорию Bin для батника?

Да, но если быть точным, я брал весь каталог с установленным клиентом (стандартные каталоги appl, bin, log, share, std, из которых файлы только в bin и share), а также файлы шрифтов для штрих-кодов, которые ставятся с Аксаптой, и рассовывал это по указанным каталогам.

Цитата:

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

Можно немного поподробнее о запуске этого скрипта?

Во-первых, надо поставить указанные утилиты, в частности, psexec используется для удаленого запуска regsvr32 (регистрация компонент OCX) и regedit (импорт настроек подстановки шрифтов), а сам батник сильно завязан на функции, присутствующие в 4nt. В начале скрипта настраиваются переменные, указывающие на исходные и конечные каталоги:

• __src_axapta - каталог, содержащий подкаталог client, в котором должны лежать файлы клиента Axapta;
• __dst_axapta - каталог, куда будут копироваться файлы клиента Axapta; по умолчанию задан в виде c$\axapta, т.е. с использованием стандартной шары c$ (корень диска c:\); вместе с netbios-именем клиентского компа должен давать полный unc-путь, типа \\host\c$\axapta;
• __src_files - каталог, содержащий вспомогательные файлы (в данном случае файл 2000.reg, ярлычок Axapta.lnk и шрифты в подкаталоге %__src_files%\fonts); этот путь берется по умолчанию из пути, откуда запущен батник, и настраивать его не надо.
• __src_ax32 - путь к файлу ax32.exe на локальной машине, используемый для определения "древности" версии уже установленного на удаленной машине клиента по сравнению с устанавливаемой версией - если, конечно, будет обнаружен уже установленный клиент; настраивается автоматом с использованием __src_axapta.
• __client_dir - каталог, куда ставится клиент, в том виде, как он будет выглядеть на машине клиента, например, c:\axapta; предполагается, что __dst_axapta указывается через стандартные шары дисков, поэтому значение __client_dir автоматом создается из __dst_axapta путем замены "$" на ":".

Таким образом, в батнике в общем случае надо настроить только путь __src_axapta. После запуска запрашивается netbios-имя или ip клиентской машины, проверяется ее доступность по сети и доступность шары admin$ на ней (без этого psexec не будет работать, и не получится скопировать шрифты), проверяется наличие уже установленного клиента и то, что его версия старее устанавливаемой (иначе запрашивается дополнительное подтверждение), ну и собственно начинается установка. Если был обнаружен уже установленный клиент, то до установки удаляется регистрация его компонент (regsvr32 /u) и полностью сносится его каталог (%__dst_axapta%\client). Настройки подстановки шрифтов на w2k начинают дейтсвовать сразу, а на wxp/w2k3 понадобится перезагрузка.
Мне, правда, десятками за раз клиентов ставить не довелось, но батник легко подрихтовать, чтоб он лишнего не спрашивал и брал имя машины из ком.строки или из файла.
Да, на счет performance monitor: для него на удаленной машине регистрируются счетчики COM-коннектора, но сам коннектор не регистрируется. Если это необходимо, то можно добавить его в эту строчку аналогично другим dll:

psexec \\%__host% cmd /c for %%a in ("%__client_dir%\bin\*.ocx" "%__client_dir%\bin\anameter.dll" "%__client_dir%\bin\smmaxol.dll") do regsvr32 /s %%a

[Ned]

Могу предложить ещё способ:
- Запуск батником нескольких самораспоковывающихся архивов + файлов с расширением reg для регистрации компонентов

[KiselevSA]

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

[gl00mie]

Цитата:

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

А я регистрацию компонент специально убрал из скрипта, т.к. оказалось, что для подавляющего числа сотрудников они не нужны (не используются в работе), а скрипт вызывается из logon-скрипта доменного. Т.ч. с правами админа мучаться не надо.

Из моего скромного опыта: когда у "подавляющего числа сотрудников" есть админские права на локальной машине (а иначе регистрация компонент, запускаемая из logon-скрипта под их аккаунтами, не сработает) - вот тогда и начинаются настоящие мучения...

PS. В моем случае пользователи после 1С "жить не могли" без панельки внизу окна Axapta с кнопками на каждое открытое окно, а панелька шла как раз отдельным OCX'ом...

[KiselevSA]

Цитата:

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

Из моего скромного опыта: когда у "подавляющего числа сотрудников" есть админские права на локальной машине (а иначе регистрация компонент, запускаемая из logon-скрипта под их аккаунтами, не сработает) - вот тогда и начинаются настоящие мучения...

PS. В моем случае пользователи после 1С "жить не могли" без панельки внизу окна Axapta с кнопками на каждое открытое окно, а панелька шла как раз отдельным OCX'ом...

Согласен. Админами они не были, а всякие украшательства им не были показаныи остались не востребованы )))

[sukhanchik]

А можно глупый вопрос непонимающего?
А есть смысл вообще устанавливать клиента на все компы?
Не проще ли запускать Аксапту с расшаренной папки БЕЗ установки клиента?
Единственное что придется сделать - это шрифты на все машины поставить
Сразу оговорюсь - вопрос не касается 4.0

[KiselevSA]

Цитата:

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

Не проще ли запускать Аксапту с расшаренной папки БЕЗ установки клиента?

Ну если сетевой трафик резиновый, то проще. У меня были ситуации, когда Axapta работала, а файловый сервер был недоступен.

[gl00mie]

Цитата:

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

А есть смысл вообще устанавливать клиента на все компы? Не проще ли запускать Аксапту с расшаренной папки БЕЗ установки клиента?

Если нет необходимости регистрировать какие-то используемые клиентом компоненты, то оно, конечно, проще. Можно даже через DFS "раскидать" шару, откуда запускается клиент, на несколько физических серверов для повышения отказоустойчивости и распределения нагрузки по трафику.

[Roman777]

Выкладываю свой вариант:

@ECHO OFF
SETLOCAL
SET CLIENTPATH=\\SERVER\Axapta\Axapta_30_CIS\Setup\Client
SET DIRSP=\\SERVER\Axapta\DIRSP\bin.sp4
SET DIRLINK=\\SERVER\Axapta\Link

set /p cname=Enter computer name: 
Ping -n 1 %cname% >Nul
IF %ERRORLEVEL% NEQ 0 goto NPING
net use \\%cname%\Admin$ /user:DOMAIN\Administrator
IF %ERRORLEVEL% NEQ 0 goto EXIT
psexec -i -s \\%cname%  msiexec /i "%CLIENTPATH%\navision axapta client.msi" /qn ALLUSERS=2
IF %ERRORLEVEL% NEQ 0 goto DELSHARE
psexec -i -s \\%cname% regedit /s "%CLIENTPATH%\2000.reg"
xcopy "%DIRSP%\*.*" "\\%cname%\c$\Program Files\Navision\Client\Bin.sp4\"   /q /e /y
xcopy  "%DIRLINK%\Axapta.lnk" "\\%cname%\c$\documents and settings\all users\Рабочий стол\" /y
:DELSHARE
net use \\%cname%\Admin$ /delete
goto EXIT
:NPING
ECHO wrong computer name
:EXIT
pause