Скрипт для установки платформы 1С

07.03.18

База данных - Инструменты администратора БД

Еще один баян по установке 1с8 на клиентских машинках без использования групповых политик безопасности.

Скачать файлы

Наименование Файл Версия Размер
Скрипт для установки платформы 1С:
.vbs 7,48Kb
1
.vbs 7,48Kb 1 Скачать

На предприятии около трехсот компов, на которых используется 1с 8.2 и 8.3, при этом домен отсутствует. Естественно приходится побегать при обновлении платформы 1с8. Применение скрипта облегчает этот процесс. Его нужно запускать только в нештатных ситуациях, когда по тем или иным причинам платформа не обновилась автоматом, а так же на всех новых машинках или после переустановки виндовс.

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

 

И так приступим.

Дистрибутивы платформы должны быть расположены на шаре \\ВашИП\Шара\8.2\, \\ВашИП\Шара\8.3\.

на данный момент у меня следующий набор платформ:

\\МойИП\1с\8.2\8.2.19.106

\\МойИП\1с\8.3\win\8.3.6.2041

\\МойИП\1с\8.3\win\8.3.7.1776

\\МойИП\1с\8.3\win\8.3.8.1784

Скрипт устанавливает самую большую версию из каждой папки 8.2 и 8.3

Ну и сам скрипт
 

Option Explicit
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

public lenlist,list()
lenlist = 0

on error resume next
install "\\МойАйпи\1c\8.2\" ' устанавливаем платформу из папки 8.2
if Err.Number > 0 then
    install "\\1МойАйпи2\1c\8.2\" ', если недоступен МойАйпи, устанавливаем из МойАйпи2
end if
install "\\192.168.1.248\1c\8.3\win\" ' устанавливаем платформу из папки 8.3
if Err.Number > 0 then
    install "\\192.168.2.148\1c\8.3\win\"  ', если недоступен МойАйпи, устанавливаем из МойАйпи2
end if
on error goto 0

remove     'удаляем версии платформ, которые больше использоваться не будут
writesetting

function osverion
    dim opSysSet, opSys
    Set opSysSet = GetObject("winmgmts:{impersonationLevel=impersonate}//./root/cimv2")._
    ExecQuery("SELECT * FROM Win32_OperatingSystem  WHERE Primary=true")
    For Each opSys In OpSysSet
       osverion = left(opSys.Version,instr(1,opSys.Version,".")-1)
    Next
end function

Sub Install(Dir)

    Dim Folder,fil

    'On Error Resume Next

    Set Folder = FSO.GetFolder(Dir)
    Dim Version
    Version = ""
    For Each fil In Folder.SubFolders 'находим папку с наиболее старшей версией
        Dim pos,curVersion
        pos = InStrRev ( fil.Path, "\")
        curVersion = Right(fil.Path, Len(fil.Path)-pos)
        if curVersion > Version then Version = curVersion
    Next

    Set fso = CreateObject("scripting.filesystemobject")
    Dim ts,ReadTXTfile
    Set ts = fso.OpenTextFile(Dir+Version+"\setup.ini", 1, True)
    Do While ts.AtEndOfStream<>True
         ReadTXTfile = ts.ReadLine
        pos = InStr ( ReadTXTfile, "=")
        if pos > 0 Then
            Dim Name
            Name = Left(ReadTXTfile,pos-1)
            if Name = "ProductCode" then
                Dim Installer,ProductCode,msiPackage,CmdLine,Session
                Set Installer = CreateObject("WindowsInstaller.Installer")
                ProductCode = Right(ReadTXTfile, Len(ReadTXTfile)-pos)
                'Set Session = Installer.OpenProduct (ProductCode)

                Dim products : set products = installer.Products
                Dim product,installed: installed = false
                for each product in products
                    if product = ProductCode then
                        installed = True
                    end if
                next

                redim preserve list(lenlist)
                list(lenlist) = ProductCode
                lenlist = lenlist + 1

                if not installed Then 'запускаем инсталятор только в том случае, когда платформа не устаналена
                    if Version < "8.3" Then
                                    msiPackage = Dir+Version + "\1CEnterprise 8.2.msi"
                    else
                                    msiPackage = Dir+Version + "\1CEnterprise 8.msi"
                    end if
                    cmdLine = "TRANSFORMS=adminstallrelogon.mst;1049.mst DESIGNERALLCLIENTS=0 DESIGNERALLCLIENTS=1 THICKCLIENT=1 THINCLIENTFILE=0 THINCLIENT=1 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=0 LANGUAGES=RU,UK"
    'On Error Goto 0 CLIENT
                    'Installer.UILevel = 5
                    Installer.InstallProduct msiPackage,cmdLine : processError
                end if
            end if
        end if
    Loop
    ts.Close

End Sub

Обработка ошибок
Sub processError()
    Dim msg
    If Err = 0 Then Exit Sub
    msg = Err.Source & " " & Hex(Err) & ": " & Err.Description
    WScript.Echo msg
    WScript.Quit 2
End Sub

Sub Remove() 'удаление "лишних" версий платформ

    Dim product,instprod

    Dim msi , strProductName
    Set msi = CreateObject("WindowsInstaller.Installer")

        For each product in msi.Products
          strProductName = msi.ProductInfo(product, "InstalledProductName")
          if InStr(strProductName,"1C:Предприятие") > 0 then
              redim preserve list(lenlist)
              list(lenlist) = strProductName
              lenlist= lenlist+ 1
    
            Dim need,instproduct
        need = false

               for each instproduct in list
            if instproduct = product then    
                need = true
                exit for
            end if
               next

        if not need then
            'WScript.echo product
            msi.ConfigureProduct product,0,2 'uninstall
        end if
          end if
        next
End Sub


Sub writesetting

      Const ForReading = 1, ForWriting = 2, ForAppending = 8
      Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
      Dim WshShell, fso, MyFile, FileName, TextLine,strComputer,objWMIService
      Dim IPConfigSet,OK,IPConfig,DefaultIPGateway

      Set fso = CreateObject("Scripting.FileSystemObject")
      Set WshShell = CreateObject("WScript.Shell")
      ' Open the file for output.
      'FileName = WshShell.ExpandEnvironmentStrings("%APPDATA%") + "\1C\1CEStart\1CEStart.cfg"

      'Set MyFile = fso.OpenTextFile(FileName, ForAppending, True, TristateTrue)

      'MyFile.WriteLine "DistributiveLocation=\\192.168.1.248\1c\8.2"
      'MyFile.Close

      'MsgBox osversion
      'WScript.echo "osversion " + osversion
      if StrComp(osversion,"5",vbTextCompare ) = 0 then
          FileName = WshShell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%") + "\Application Data\1C\1CEStart\1CEStart.cfg"
      else
          FileName = WshShell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%") + "\1C\1CEStart\1CEStart.cfg"
      end if

      'FileName = WshShell.ExpandEnvironmentStrings("%APPDATA%") + "\1C\1CEStart\1CEStart.cfg"
      'WScript.Echo filename
      'WScript.echo FileName
      on error resume next
      Set MyFile = fso.OpenTextFile(FileName, ForAppending, True, TristateTrue)
      if Err.Number > 0 then
           if StrComp(osversion,"5",vbTextCompare ) = 0 then
               FileName = WshShell.ExpandEnvironmentStrings("%APPDATA%") + "\Application Data\1C\1CEStart\1CEStart.cfg"
           else
               FileName = WshShell.ExpandEnvironmentStrings("%APPDATA%") + "\1C\1CEStart\1CEStart.cfg"
           end if
      end if
    on error goto 0
    Set MyFile = fso.OpenTextFile(FileName, ForAppending, True, TristateTrue)

      strComputer = "."
      Set objWMIService = GetObject("winmgmts:" _
          & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

      Set IPConfigSet = objWMIService.ExecQuery _
          ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

      OK = 0
      For Each IPConfig in IPConfigSet
          If Not IsNull(IPConfig.IPAddress) Then
              For Each DefaultIPGateway In IPConfig.DefaultIPGateway
              msgbox DefaultIPGateway
              If DefaultIPGateway = "192.168.1.1" Then
                  MyFile.WriteLine "DistributiveLocation=\\192.168.1.248\1c\8.2"
                  MyFile.WriteLine "DistributiveLocation=\\192.168.1.248\1c\8.3\win"
                  OK = 1
                  Exit for
              ElseIf DefaultIPGateway = "192.168.1.100" Then
                  MyFile.WriteLine "DistributiveLocation=\\192.168.1.248\1c\8.2"
                  MyFile.WriteLine "DistributiveLocation=\\192.168.1.248\1c\8.3\win"
                  OK = 1
                  Exit for
              ElseIf DefaultIPGateway = "192.168.12.20" Then
                  MyFile.WriteLine "DistributiveLocation=\\192.168.12.10\1c\8.2"
                  MyFile.WriteLine "DistributiveLocation=\\192.168.12.10\1c\8.3\win"
                  OK = 1
                  Exit for
              ElseIf DefaultIPGateway = "192.168.103.1" Then
                  MyFile.WriteLine "DistributiveLocation=\\192.168.103.48\1c\8.2"
                  MyFile.WriteLine "DistributiveLocation=\\192.168.103.48\1c\8.3\win"
                  OK = 1
                  Exit for
              ElseIf DefaultIPGateway = "192.168.2.1" Then
                  MyFile.WriteLine "DistributiveLocation=\\192.168.2.148\1c\8.2"
                  MyFile.WriteLine "DistributiveLocation=\\192.168.2.148\1c\8.3\win"
                  OK = 1
                  Exit for
              End If
              Next
          End If
      Next

      MyFile.Close

      if OK = 1 then
          MsgBox "OK"
      else
          MsgBox "адрес не определен"
      end if

End Sub

 

См. также

Автоподбор ролей для профилей и групп доступа в любых типовых базах 1С УТ 11, КА 2, ERP2, Розница 2/3, УНФ 16/3, БП 3, ЗУП 3 и подобных (УФ, Платформа 8.3.14+)

Инструменты администратора БД Роли и права 8.3.14 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Документооборот 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Роли… Вы тратите много времени и сил на подбор ролей среди около 2400 в ERP или 1500 в Рознице 2, пытаясь понять какими правами они обладают? Вы все время смотрите права в конфигураторе или отчетах чтоб создать нормальные профили доступа? Вы хотите наглядно видеть какие права дает профиль и редактировать все в простом виде? А может хотите просто указать подсистему и дать права на просмотр и добавление на объекты и не лезть в дебри прав и чтоб обработка сама подобрала нужные роли? Все это теперь стало возможно! Обновление от 15.12.2023, версия 1.1.

12000 руб.

06.12.2023    2980    13    1    

34

SALE! 20%

Infostart УДиФ: Управление данными и формами

Инструменты администратора БД Инструментарий разработчика Роли и права Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

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

10000 8000 руб.

10.11.2023    3544    11    1    

34

SALE! 30%

PowerTools

Инструментарий разработчика Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2520 руб.

14.01.2013    177758    1073    0    

849

Ускоренное проведение документов (x4), устранение ошибок 60/62 счетов и зачет авансов (Бухгалтерия 3.0)

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020    27383    79    146    

59

Система хранения присоединенных файлов в томах на диске

Инструменты администратора БД Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием Платные (руб)

Конфигурация Комплексная автоматизация 1.1 (и УПП 1.3 тоже) хранит файлы и изображения в справочнике Хранилище дополнительной информации в реквизите Хранилище типа ХранилищеЗначений. Та же история с ВложениямиЭлектроннойПочты. Но при этом присоединенные файлы в Электронном документообороте хранит в томах на диске. Эта доработка позволяет использовать стандартный механизм хранения файлов, изображений и вложений электронных писем в томах на диске. При этом можно разделить тома хранения по объектам конфигурации.

4200 руб.

10.11.2015    61320    88    59    

73

"Менеджер потоков 2.1": УПП: "Восстановление партий"

Инструменты администратора БД Платформа 1С v8.3 1С:Управление производственным предприятием Россия Бухгалтерский учет Управленческий учет Платные (руб)

Как оптимизировать то, что, считалось, не поддается оптимизации? Как повысить доступность базы данных? Как проводить самую «времяемкую» операцию не по паре раз в неделю, а по несколько раз в день*? Ответ есть!

20000 руб.

12.09.2019    11746    5    9    

7

Брандмауэр для сервера 1С Предприятие 8 - внешнее управление сеансами

Инструменты администратора БД Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

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

3600 руб.

06.02.2017    31111    31    18    

47

Хранилище файлов на SQL

Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Управленческий учет Платные (руб)

Привязка файлов / сканов к объектам 1С с сохранением их на SQL-сервере

12000 руб.

09.10.2019    10986    5    8    

9
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. pm74 199 07.03.18 20:50 Сейчас в теме
каким образом запускаете скрипт на клиентах ?
2. alex0402 28 08.03.18 12:10 Сейчас в теме
да, на клиентах. Скрипт запускается один раз, за тем, при обновлении платформы достаточно разместить установщик в соответствующую папку.и 1с устанавливает платформу на клиенте сама после следующего запуска.
3. AlexO 135 08.03.18 13:31 Сейчас в теме
(2) так вы вручную его запускаете?
А что тогда мешает запустить сразу установку 1С на клиенте?
4. alex0402 28 08.03.18 17:40 Сейчас в теме
(3) кроме установки удаляются старые версии платформы и настраивается 1С для дальнейшего автоматического обновления.
5. pm74 199 08.03.18 22:43 Сейчас в теме
(4) так стандартным образом 1с это тоже вроде умеет (кроме удаления) .
под какими правами запускается скрипт ?
6. alex0402 28 10.03.18 12:04 Сейчас в теме
(5) расскажите, как стандартным способом прописать пути к установщикам платформ. На сколько я знаю, нужно редактировать файл 1CEStart.cfg, что в общем не удобно. Когда то перед обновлением платформы я написал скрипт, что бы автоматизировать только этот процесс, что бы не нужно было на каждом компьютере искать этот файл. Потом, со временем добавил установку, потому что после установки постоянно забывал запускать скрипт. Ну еще позже добавил удаление старых платформ.

Под правами локального администратора.
7. pm74 199 10.03.18 17:58 Сейчас в теме
(6) в сетевой общей папке 1CEStart.cfg , 1cestart.exe, ibcommon.v8i + папки с дистрибутивами (наименование папки = номер версий напр. 8.3.11.2899) и все
проблема бывает когда у локального пользователя нет прав на установку 1с , поэтому и спросил
Danila-Master; alex0402; +2 Ответить
Оставьте свое сообщение