Обновление платформы на клиентских машинах и восстановление списка информационных баз пользователей

1876

Время чтения: 12 мин.

Нет времени читать? Отправить на почту

Периодически сталкиваюсь с проблемой обновления платформы на клиентских машинах, + периодически пользователи удаляют, изменяют или добавляют какие-то новые информационные БД.
В случае 8.2 новые релизы платформы стали штамповать чуть ли не каждый месяц, что меня повергло в уныние, разбираясь в этом вопросе понял: у кого есть домен могут легко реализовать с помощью доменных политик..Те же кто лишен домена и работает в рабочих группах, может прибегнуть к помощи кривоватого скрипта от 1С (текст скрипта приведен в руководстве администратора 8.2 стр. 185
Но как быть, если нужно одновременно снести старую платформу и поставить новую + что б еще у всех пользователей был одинаковый список информационных БД, Да и лучше, что б по ссылке вообще автоматом выбиралась нужна ИБ!
Для решения нам нужно какое-нибудь общедоступное сетевое пространство, куда мы кладем дистрибутивы платформ и нужный нам список баз (отредактированный файлик ibases.v8i)

Итак, пишем скрипт от меня с любовью и комментариями

Код VBS

 Option Explicit
      

    Const Server = "62.76.65.113" ' Здесь мы зададим ip нашего общего ресурса (можно задать через имя компьютера)
      

      

    If Ping (Server) = True Then ' проверим доступно ли место
      

    Dim ProductCod 'код продукта (Смотри в каталоге каждого дистрибутива платформы в файле setup.ini
      

    Dim DistrFolder 'каталог в которм находится дистрибутив платформы
      

    Dim cmdLine 'Параметры запуска дистрибутива
      

      

    'Деинсталируем предыдущие платформы
      

    cmdLine = "REMOVE=ALL"
      

      

    ProductCod = "{375C3BB1-6F1E-4D93-9AF7-6A379133CA81}"
      

    DistrFolder= "\\" & Server & "\1s\8.2.10.73\"
      

     If Ustanovlena(ProductCod) Then ' Здесь и далее идет проверка на наличие установленной данной версии платформы
      

     SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine
      

     'Иногда папка остается в каталоге installer после удаления - исправим это
      

     UdalitFolder ProductCod
      

     End If
      

      

    ProductCod = "{8150646B-4F88-4415-AF2A-F96199E3DA37}"
      

    DistrFolder= "\\" & Server & "\1s\8.2.10.77\"
      

     If Ustanovlena(ProductCod) Then 
      

     SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine
      

     End If
      

      

    'Установим текущую платформу
      

    ProductCod = "{3D5173F0-371D-4B5D-B96A-9340D7F30431}"
      

    DistrFolder= "\\" & Server & "\1s\8.2.10.82\"
      

    cmdLine = "TRANSFORMS=adminstallrelogon.mst;1049.mst DESIGNERALLCLIENTS=0 THICKCLIENT=0 THINCLIENTFILE=1 THINCLIENT=1 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=0 LANGUAGES=RU" 
      

    'В данном случае мне нужны только установленные тонкие клиенты, если надо больше - поменяйте на 1, то что надо установить 
      

     If Not Ustanovlena(ProductCod) Then ' Если текущая версия не установлена - установим ее
      

     SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine
      

     End If 
      

      

    ScopirovatSpisokBaz ' В любом случае обновим список ИБ (Вдруг или мы или пользователи, что-то поменяли)
      

      

    End If 
      

      

    Sub SdelatEto (ByVal productCode, ByVal msiPackage, ByVal CmdLine)
      

     On Error Resume Next
      

     Dim installer
      

     Set installer = Nothing
      

     Set installer = Wscript.CreateObject("WindowsInstaller.Installer")
      

     installer.UILevel = 2 'молчаливая установка (варианты смотрите в Руководстве администратора 8.2 стр.185
      

     installer.InstallProduct msiPackage,cmdLine
      

     Set installer = Nothing
      

    End Sub
      

      

    Sub UdalitFolder (ProductCod)
      

    On Error Resume Next
      

    Dim fso1, WSH1
      

    set WSH1 = WScript.CreateObject("WScript.Shell")
      

    Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")
      

    fso1.DeleteFolder WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod, True
      

    End Sub
      

      

    'Создаем список баз данных (копируем наш фал с сервера на клиент
      

    Sub ScopirovatSpisokBaz
      

    On Error Resume Next
      

    Dim fso1, WSH1
      

    Set WSH1 = WScript.CreateObject("WScript.Shell")
      

    Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")
      

    fso1.CopyFile "\\" & Server & "\1s\1CEStart\ibases.v8i",WSH1.ExpandEnvironmentStrings("%AppData%") & "\1C\1CEStart\ibases.v8i", True
      

    End Sub
      

      

    'создание ярлыка
      

    Sub createShurtcut
      

     Dim WshShell, oShellLink, ServerBD, NameBD
      

     ServerBD = "IZO-NoteBook"
      

     NameBD = "1C_Dec_82" 
      

     Set WshShell = WScript.CreateObject("WScript.Shell")
      

     Dim strDesktop : strDesktop = WshShell.SpecialFolders("Desktop")
      

     Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & shortcutName & ".lnk")
      

     oShellLink.TargetPath = WSHShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\1cv82\Common\1cestart.exe /S" & ServerBD & "\" & NameBD 'Если не указывать параметры, то будет появлятся стандартное окно выбора ИБ, если укажем, то сразу имя пользователя-пароль :)
      

     oShellLink.WindowStyle = 1
      

     oShellLink.Description = shortcutName
      

     oShellLink.Save 
      

     Set oShellLink = Nothing
      

     Set WshShell = Nothing
      

    End Sub
      

      

    Function Ustanovlena(ProductCod)
      

    On Error Resume Next
      

    Dim fso1, oFolders, WSH1
      

    set WSH1 = WScript.CreateObject("WScript.Shell")
      

    Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")
      

    Set oFolders = Nothing
      

    Set oFolders = fso1.GetFolder(WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod)
      

    If OFolders Is Nothing Then
      

    Ustanovlena = False
      

    Else
      

    Ustanovlena = True
      

    End If
      

    End Function
      

      

    Function Ping(strHost)
      

    ' Просто пингуем наш компутер, проверяя включен ли он
      

     Dim objPing, objRetStatus
      

     Set objPing = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery _
      

     ("S_elect * FR OM Win32_PingStatus WH ERE address = '" & strHost & "'")
      

     for Each objRetStatus in objPing
      

     if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 Then
      

     Ping = False
      

     Else
      

     Ping = True
      

     End If
      

     Next
      

    End Function

Напоминаю, что создать исполняющий скрипт не сложно, берем обычный текстовый файл, вставляем туда текст скрипта, сохраняем файл, меняем ему расширение с txt на vbs и можно скрипт исполнять :)

Заказать звонок

Сэкономьте время! Оставьте заявку на консультацию специалиста 1С.

Ваше имя

Телефон *

Подтвердите, что вы не робот *

Нажимая на кнопку , Вы даете согласие на обработку своих персональных данных и соглашаетесь с политикой конфиденциальности

Вконтакте

Содержание статьи

Рассылка нашего блога

Электронная почта *

Политика конфиденциальности персональных данных.

Настоящая Политика конфиденциальности персональных данных (далее – Политика) действует в отношении всей информации, которую данный сайт, может получить о Пользователе во время использования (а также его субдоменов), его программ и его продуктов.
1. Определение терминов.
В настоящей Политике используются следующие термины:
– персональные данные – любая информация, относящаяся к прямо или косвенно определенному юридическому или физическому лицу (субъекту персональных данных);
– оператор персональных данных – Администрация сайта (далее – Администрация) – сотрудники, уполномоченные на управление, которые организуют и (или) осуществляют обработку персональных данных, а также определяет цели обработки персональных данных, состав персональных данных, подлежащих обработке, действия (операции), совершаемые с персональными данными;
– обработка персональных данных – любое действие (операция) или совокупность действий (операций), совершаемых с использованием средств автоматизации или без использования таких средств с персональными данными, включая сбор, запись, систематизацию, накопление, хранение, уточнение (обновление, изменение), извлечение, использование, передачу (распространение, предоставление, доступ), обезличивание, блокирование, удаление, уничтожение персональных данных;
– конфиденциальность персональных данных – обязательное для соблюдения оператором или иным получившим доступ к персональным данным лицом требование не допускать их распространения без согласия субъекта персональных данных или наличия иного законного основания.;
– сайт — это совокупность связанных между собой веб-страниц, размещенных в сети Интернет по уникальному адресу (URL), а также его субдоменах;
– субдомены – это страницы или совокупность страниц, расположенные на доменах третьего уровня, принадлежащие сайту, а также другие временные страницы, внизу который указана контактная информация Администрации;
– пользователь сайта (далее Пользователь) – лицо, имеющее доступ к сайту, посредством сети Интернет и использующее информацию, материалы и продукты сайта.
2. Общие положения.
2.1 Назначение политики конфиденциальности.
2.1.1. Настоящая Политика конфиденциальности устанавливает обязательства Администрации по неразглашению и обеспечению режима защиты конфиденциальности персональных данных, которые Пользователь предоставляет .
2.2. Права и обязанности сторон.
2.2.1. Пользователь вправе:
2.2.1.1. Принимать свободное решение о предоставлении своих персональных данных, необходимых для использования сайта, и давать согласие на их обработку.
2.2.1.2. Обновить, дополнить предоставленную информацию о персональных данных в случае изменения данной информации.
2.2.1.3. Пользователь имеет право на получение у Администрации информации, касающейся обработки его персональных данных, если такое право не ограничено в соответствии с федеральными законами. Пользователь вправе требовать от Администрации уточнения его персональных данных, их блокирования или уничтожения в случае, если персональные данные являются неполными, устаревшими, неточными, незаконно полученными или не являются необходимыми для заявленной цели обработки, а также принимать предусмотренные законом меры по защите своих прав.
2.2.2. Администрация обязана:
2.2.2.1. Использовать полученную информацию исключительно для целей, указанных в п. 3 настоящей Политики конфиденциальности.
2.2.2.2. Принять меры для хранения конфиденциальной информации в тайне,
не разглашать без предварительного письменного разрешения Пользователя, а также
не осуществлять продажу, обмен, опубликование, либо разглашение иными
возможными способами переданных персональных данных Пользователя,
за исключением п. 6.3. настоящей Политики Конфиденциальности.
2.2.2.3. Принимать меры предосторожности для защиты конфиденциальности персональных данных Пользователя согласно порядку, обычно используемого для защиты такого рода информации в существующем деловом обороте.
2.2.2.4. Осуществить блокирование персональных данных, относящихся к соответствующему Пользователю, с момента обращения или запроса Пользователя, или его законного представителя либо уполномоченного органа по защите прав субъектов персональных данных на период проверки, в случае выявления недостоверных персональных данных или неправомерных действий.
2.3. Использование сайта Пользователем означает согласие с настоящей Политикой конфиденциальности и условиями обработки персональных данных Пользователя.
2.4. В случае несогласия с условиями Политики конфиденциальности Пользователь должен прекратить использование сайта.
2.5. Настоящая Политика конфиденциальности применяется к сайту.
2.6. Администрация не проверяет достоверность персональных данных, предоставляемых Пользователем.
3. Цели сбора персональных данных.
3.1. Персональные данные Пользователя Администрация может использовать только в связи с заключением договора, стороной которого является субъект персональных данных. Персональные данные не распространяются, а также не предоставляются третьим лицам без согласия субъекта персональных данных и используются оператором исключительно для исполнения указанного договора и заключения договоров с субъектом персональных данных.
4. Правовые основания обработки персональных данных.
Правовым основанием обработки персональных данных является:
– федеральные законы и принятые на их основе нормативные правовые акты, регулирующие отношения, связанные с деятельностью оператора;
– уставные документы оператора;
– договоры, заключаемые между оператором и субъектом персональных данных;
– согласие субъекта на обработку персональных данных;
5. Объем и категории обрабатываемых персональных данных, категории субъектов персональных данных.
5.1. Персональные данные, разрешённые к обработке в рамках настоящей Политики конфиденциальности, предоставляются Пользователем путём заполнения форм на сайте и включают в себя следующую информацию:
5.1.1. имя Пользователя;
5.1.2. контактный телефон Пользователя;
5.1.3. адрес электронной почты (e-mail).
5.2. К категориям субъектов персональных данных относятся работники оператора.
Порядок и условия обработки персональных данных.
6.1. Обработка персональных данных Пользователя осуществляется без ограничения срока, любым законным способом, в том числе в информационных системах персональных данных с использованием средств автоматизации или без использования таких средств.
6.3. Персональные данные Пользователя могут быть переданы уполномоченным органам государственной власти Российской Федерации только по основаниям и в порядке, установленным законодательством Российской Федерации.
6.4. Администрация принимает необходимые организационные и технические меры для защиты персональной информации Пользователя от неправомерного или случайного доступа, уничтожения, изменения, блокирования, копирования, распространения, а также от иных неправомерных действий третьих лиц.
6.5. Администрация совместно с Пользователем принимает все необходимые меры по предотвращению убытков или иных отрицательных последствий, вызванных утратой или разглашением персональных данных Пользователя.
7. Разрешение споров.
7.1. До обращения в суд с иском по спорам, возникающим из отношений между Пользователем и Администрацией, обязательным является предъявление претензии (письменного предложения или предложения в электронном виде о добровольном урегулировании спора).
7.2. Получатель претензии в течение 30 календарных дней со дня получения претензии, письменно или в электронном виде уведомляет заявителя претензии о результатах рассмотрения претензии.
7.3. При не достижении соглашения спор будет передан на рассмотрение Арбитражного суда.
7.4. К настоящей Политике конфиденциальности и отношениям между Пользователем и Администрацией применяется действующее законодательство Российской Федерации.
8. Дополнительные условия.
8.1. Администрация вправе вносить изменения в настоящую Политику конфиденциальности без согласия Пользователя.
8.2. Новая Политика конфиденциальности вступает в силу с момента ее размещения на сайте, если иное не предусмотрено новой редакцией Политики конфиденциальности.

Настройки

Назад к списку

Обновление платформы на клиентских машинах и восстановление списка информационных баз пользователей

Заказать звонок

Рассылка нашего блога

Политика конфиденциальности персональных данных.

Поможем подобрать нужные приложения