Установка клиента через политики Active Directory

[rumpleteazer]

А кто-нибудь сталкивался с вопросом установки Аксаптовских клиентов средствами групповых политик Active Directory ? Возможно ли это?

[ravil]

Да, возможно. Наши админы пробовали, устанавливается нормально. Конфигурацию тоже устанавливали, через загрузку ветки реестра с оригинальной конфинурацией. Только я детали не знаю, как сделали. Наверно так же, как и все другие программы ставятся.

[KiselevSA]

Установка клиентской части - совсем не обязательный процесс. Установите клиента на одну из машин, сокпируйте папку Bin на сервер, скриптом проверяйте наличие папки "%SystemDrive%/Program Files/Navision/Axapta" на компьютере пользователя. При отсутствии - создавайте папки, копируйте Bin и создавайте ярлык. Конфигурацию для подключения сохраняйте в xpo и указывайте вызов в ярлыке. Можно добавить проверку версии файла ax32.exe
Пример скрипта:
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 = "G:\Axapta\Client"
Const DestPath = "%SYSTEMDRIVE%\Program Files\Navision\Axapta\Bin"
Const Cfg1 = "G:\Axapta\Axapta.xpo -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\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\Bin")) Then
fso.CreateFolder(SDrive & "\Program Files\Navision\Axapta\Bin")
End If
fso.CopyFile (ClientPath & "\*.*"), DPath
DesktopPath = WshShell.SpecialFolders("Desktop")
TagPath = DPath & "\Ax32.exe" & " " & Cfg1
If (Not fso.FileExists(DesktopPath & "\Axapta 3.0.lnk")) Then
Set Shortcut = WshShell.CreateShortcut(DesktopPath & "\Axapta 3.0.lnk")
Shortcut.TargetPath = """" & TagPath & """"
Shortcut.Arguments = CfgPath
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