Обновление платформы на клиентских машинах и восстановление списка информационных баз пользователей Периодически сталкиваюсь с проблемой обновления платформы на клиентских машинах, + периодически пользователи удаляют, изменяют или добавляют какие-то новые информационные БД.
В случае 8.2 новые релизы платформы стали штамповать чуть ли не каждый месяц, что меня повергло в уныние, разбираясь в этом вопросе понял: у кого есть домен могут легко реализовать с помощью доменных политик..Те же кто лишен домена и работает в рабочих группах, может прибегнуть к помощи кривоватого скрипта от 1С (текст скрипта приведен в руководстве администратора 8.2 стр. 185
Но как быть, если нужно одновременно снести старую платформу и поставить новую + что б еще у всех пользователей был одинаковый список информационных БД, Да и лучше, что б по ссылке вообще автоматом выбиралась нужна ИБ!
Для решения нам нужно какое-нибудь общедоступное сетевое пространство, куда мы кладем дистрибутивы платформ и нужный нам список баз (отредактированный файлик ibases.v8i)
Итак, пишем скрипт от меня с любовью и комментариями
Код VBS Option ExplicitWscript .CreateObject("WindowsInstaller.Installer")WScript .CreateObject("WScript .Shell")WScript .CreateObject("Scripting.FileSystemObject")WScript .CreateObject("WScript .Shell")WScript .CreateObject("Scripting.FileSystemObject")WScript .CreateObject("WScript .Shell")WScript .CreateObject("WScript .Shell")WScript .CreateObject("Scripting.FileSystemObject")
Напоминаю, что создать исполняющий скрипт не сложно, берем обычный текстовый файл, вставляем туда текст скрипта, сохраняем файл, меняем ему расширение с txt на vbs и можно скрипт исполнять
Источник Категория:
Администрирование Автоматическая архивация баз 1С 8.х для файлового и клиент-серверного варианта Данный способ архивации подходит для файловых и SQL версий баз 1С:
И так:
1. Создаем скрипт vbs и сохраняем его в
C:\Backup\ZUP.vbs
Код VBS WScript .Shell")
2. На Server1C создаем Назначенные задания с параметрами как на рисунках ниже:
3. В итоге получаем архивные файлы выгрузок 1С и логи:
Категория:
Администрирование Работа с буфером обмена средствами 1С Копировать из 1С в буфер обмена( без ВК):
Код 1C v 8.х ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь);Вставить в 1С из буфера обмена:
Код 1C v 8.х ЭлементыФормы.Добавить(Тип("ПолеHTMLДокумента"), "Поле_HTML_Документа_acb123", Ложь);При определенных настройках политики безопасности, способ с ПолеHTMLДокумента НЕ работает, используйте:
Код 1C v 8.х
Для 7.7:
Код 1C v 7.x Set objHTM = CreateObject("htmlfile");
Используя
WSH :
Код 1C v 8.х // через SendKeys передаем Ctrl-C и Ctrl-V WScript .Shell"); Код 1C v 7.x // через SendKeys передаем Ctrl-C и Ctrl-V WScript .Shell"); Категория:
Полезные, Универсальные Функции Сохранение рабочей конфигурации в файл средствами встроенного языка Как сохранить рабочую конфигурацию из конфигуратора знают все, но это не всегда удобно. Мне понадобилось сохранять рабочую конфигурацию и тут-же этот файл обрабатывать. Предлагаю простую процедуру:
Код 1C v 8.х // функция сохраняет рабочую конфигурацию в файл, в случае успеха возвращает ИстинаWScript .Shell");
ну и пример использования (работает если нет пароля):
Код 1C v 8.х Функция ЗаписатьКонфигурациюВФайл(ИмяФайла="")Автор статьи: vde69 Категория:
Полезные, Универсальные Функции Как в 1С автоматически переключать раскладку клавиатуры? Для этого можно использовать функционал следующих внешних компонент:
1. FormEx смотрите тут.
Код 1C v 7.x Сервис=СоздатьОбъект("Сервис");2. Miracle смотрите тут.
3. NetaTable смотрите тут.
Код 1C v 7.x Если (ЗагрузитьВнешнююКомпоненту("NetaTable.dll")=1) Тогда
А можно и без внешних компонент:
Код 1C v 7.x //примеры SserjwScript .shell");wScript .shell"); Категория:
Полезные, Универсальные Функции Кнопка ~ Как программно нажать кнопку на форме ? Вопрос:
На готовой форме есть кнопки : <OK> <ЗАПИСАТЬ> <ОТМЕНА>
Как программно нажать например кнопку <OK> ?
Ответ:
Нужно программно вызвать процедуру этой кнопки.
Например: Записать(); , Закрыть(); или ЗаписатьВФОРМЕ();
Смотрите синтаксис-помощник 1С
Если эта кнопка по умолчанию, то
Код 1C v 8.х Shell = Новый COMОбъект("WScript .Shell"); Категория:
Работа с Формой (Диалог) и её элементами Как сделать, задать паузу при выполнении кода? Если это какая-нибудь обработка и запускается на клиенте(у пользователя) то можно использовать обработчик ожиданий у встроенных функций:
Код 1C v 8.х //Самый простой и доступный способ - использовать диалог "Предупреждение"Код 1C v 8.х // А если мы не хотим выводить пользователю ни каких сообщений
Для паузы можно использовать следующие примеры:
Код 1C v 8.х Процедура глПауза(Сек)WScript .Shell");Код 1C v 7.x Процедура глПауза(Сек)WScript .Shell"); Категория:
COM-объекты, WMI, WSH Создание ярлыка файла программно На Рабочем столе
Код 1C v 8.х Shell = Новый COMОбъект("WScript .Shell");Код 1C v 7.x Shell = СоздатьОбъект("WScript .Shell"); Категория:
COM-объекты, WMI, WSH Как получить уникальный идентификатор объекта, GUID? GUID (Globally Unique Identifier) — статистически уникальный 128-битный идентификатор. Его главная особенность — уникальность, которая позволяет создавать расширяемые сервисы и приложения без опасения конфликтов, вызванных совпадением идентификаторов. Хотя уникальность каждого отдельного GUID не гарантируется, общее количество уникальных ключей настолько велико (2128 или 3,402 * 10в38), что вероятность того, что в мире будут независимо сгенерированы два совпадающих ключа, крайне мала.
Для получения уникального идентификатора объекта, используйте код вида:
Код 1C v 8.х ГУИДССЫЛКИ = СсылкаНаОбъект.УникальныйИдентификатор();Как с помощью запроса получить уникальный идентификатор:
Код 1C v 8.х Запрос = Новый Запрос;В 1С 7.7 можно получить так
Через v7plus.dll
Код 1C v 7.x Инфо = СоздатьОбъект("AddIn.V7SysInfo");Через WScript
Код 1C v 7.x Функция СоздатьGUID()при OLE доступе:
Код 1C v 7.x Если Док_Источник.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода) = 1 ТогдаЕще посмотрите метод:
ЗначениеВСтрокуВнутр(<?>);
Синтаксис:
ЗначениеВСтрокуВнутр(<Объект>)
Назначение:
Преобразование значения объекта агрегатного типа в строковое системное представление.
Возвращает: представление значения объекта в строковом системном виде.
Параметры:
<Объект> - значение объекта агрегатного типа данных которое нужно преобразовать.
Категория:
Встроенные Функции Запись СД из 1С(без ВК и других программ, проверено на ХР/2003) Код 1C v 7.x WScript .Shell");
Конечно метод дубовенький, расчитан тока на русскую версию, но можно и допеределать.
Не стал писать код определения пишущего сидирома и возможности записи (хотя на отсутствие диска или невозможность записать ОС сама укажет)...
Автор:
smaharbA
А через Nero можно записать так:
Код DOS Batch File Категория:
Полезные, Универсальные Функции Скрипт принудительного завершения процессов 1С на всех компьютерах В примере "1cv7s.exe", для 8-ки замениете на "1cv8.exe"
Код VBS WScript .Shell").Run "notepad.exe " & TempPathWScript .Sleep 1000WScript .Shell").ExpandEnvironmentStrings("%TEMP%")WScript .Network").ComputerName Категория:
Администрирование Скрипт запуска 1С:Предприятия от имени Администратора или Пользователя Данные пример для 7.7, для 8-ых версий указать путь к 1Сv8.exe
Код VBS WScript .Shell") wscript .Sleep(1000) wscript .Sleep(1000)
или так:
Код VBS Wscript .Shell")Wscript .Sleep 800Wscript .Sleep 200Wscript .Sleep 500 Категория:
Администрирование Пример получения списка пользователей из файла users.usr Получает из users.usr список пользователей, каталоги пользователей и даже хеши паролей
Код 1C v 7.x // заполним список пользователей WScript .Shell");Посмотрите еще: Категория:
Пользователь, роль доступа, интерфейс Доступен ли сервер? Проверка Ping Код 1C v 8.х // Функция возвращает результат пинга указанного IPАдресаWScript .Shell") ;Код 1C v 7.x //пример от smaharbAWScript .Shell"); Категория:
COM-объекты, WMI, WSH Создание ярлыка программы 1С в автозагрузке Код 1C v 8.х WScript = Новый COMОбъект("WScript .Shell");WScript .SpecialFolders;WScript .CreateShortcut(ИмяФайлаСсылки); Категория:
COM-объекты, WMI, WSH 
Обновление платформы на клиентских машинах и восстановление списка информационных баз пользователей Категория: Администрирование.gif)
