|
v8: Как программно определить, каким дистрибутивом установлена платформа 8.2? | ☑ | ||
|---|---|---|---|---|
|
0
Armando
20.11.11
✎
13:53
|
Как известно есть два дистрибутива: полный и только тонкий клиент.
Как можно однозначно определить, с какого дистрибутива произведена установка? |
|||
|
1
ДенисЧ
20.11.11
✎
13:54
|
проверь наличие екзешников...
|
|||
|
2
Armando
20.11.11
✎
13:58
|
(1) старый дедовский способ)) тоже вариант
|
|||
|
3
Defender aka LINN
20.11.11
✎
14:23
|
(0) А какова прикладная цель?
|
|||
|
4
Armando
20.11.11
✎
15:05
|
(3) Тру админы скажут "фи")) Хочу автоматизировать обновление платформы у юзеров.
При запуске 1С, срабатывает скрипт обновления платформы. При наличии новой версии установка происходит в тихом режиме, юзеры не о чем не подозревают. Через неделю обновляю сервер 1С и меняю параметр Version в списке ИБ. Profit. Но у нас есть сотрудники, у которых инсталица только тонкой клиент с облегченного дистрибутива. Вот надо как-то определять с какого дистрибутива была установка, чтоб подсунуть нужную установку. Данные извращения связаны с отсутствием у нашего админа прав на GPO и logon скрипты( |
|||
|
5
Sakura
20.11.11
✎
15:07
|
(4) у админа нет прав на GPO? О_о а с какого перепуга?
|
|||
|
6
Armando
20.11.11
✎
15:08
|
(5) С перепуга наших "Global IT"
|
|||
|
7
Sakura
20.11.11
✎
15:09
|
(6) мнда. извращенство какой-то, и издевательство.
|
|||
|
8
Armando
20.11.11
✎
20:18
|
Кому интересно вот такая заготовочка родилась:
&НаКлиенте Процедура Команда1(Команда) Инсталлер = Новый COMОбъект("WindowsInstaller.Installer"); Продукты = Инсталлер.Products; СообщениеПользователю = Новый СообщениеПользователю; Для Каждого Продукт Из Продукты Цикл НаименованиеПродукта = Инсталлер.ProductInfo(Продукт, "ProductName"); Если Найти(НаименованиеПродукта, "1С:Предприятие 8.2") > 0 Или Найти(НаименованиеПродукта, "1C:Предприятие 8.2") > 0 Тогда Версия = ДекодироватьВерсию(Инсталлер.ProductInfo(Продукт, "Version")); СообщениеПользователю.Текст = НаименованиеПродукта + ", версия " + Версия; СообщениеПользователю.Сообщить(); КонецЕсли; КонецЦикла; КонецПроцедуры &НаКлиенте Функция ДекодироватьВерсию(Знач Версия) Версия = Число(Версия); Возврат Строка(Цел(Версия/65536/256)) + "." + Строка(Цел(Версия/65535)%256) + "." + Строка(Версия%65536); КонецФункции |
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |