Быстрый запуск "Консоли администрирования 1С" любой версии (через bat файл)

13 Comments

1. YannikAlx 19.11.2018 at 15:22

   Непонятно только зачем за стартмани…
   
   Это что суперразработка?

   @echo off

   start /wait regsvr32 /s «C:Program Files (x86)1cv88.3.12.1616in
   admin.dll»

   start «C:WindowsSystem32mmc.exe» «C:Program Files (x86)1cv8common1CV8 Servers.msc»

   Или с параметром номера версии

   @echo off

   start /wait regsvr32 /s «C:Program Files (x86)1cv8\%1in
   admin.dll»

   start «C:WindowsSystem32mmc.exe» «C:Program Files (x86)1cv8common1CV8 Servers.msc»

   Reply ↓
2. morozov.sv 19.11.2018 at 15:26

   Скрипт это делает удобнее: проверяет какие версии установлены и предлагает их на выбор

   Reply ↓
3. 7OH 21.11.2018 at 10:26

   А если есть 64 параллельно — найдёт ?

   Reply ↓
4. morozov.sv 21.11.2018 at 10:31

   (3) Должен найти. Ограничений на количество установленных версий нет.
   
   Почему-то нельзя опубликовать файл бесплатно.

   Вот исходный код:

   @echo off
   setlocal EnableDelayedExpansion
   
   set Path=C:Program Files (x86)1cv8\r
   set /a num=0
   
   cd %Path%
   
   for /d %%d in («8.*») do (
   if exist %%din
   admin.dll (
   echo !num!. %%d
   set myarray[!num!]=%%din
   admin.dll
   set /a num+=1
   
   rem // Удалить прежнюю регистрацию
   start /wait regsvr32 /u /s «%Path%%%din
   admin.dll»
   )
   )
   
   set /P num_curr=»Select platform version (enter line number): »
   
   rem // Зарегистрировать новую версию
   start /wait regsvr32 «%Path%!myarray[%num_curr%]!» /s
   
   rem // Запуск
   start mmc «%Path%common1CV8 Servers.msc»

   Показать

   Reply ↓
5. 7OH 21.11.2018 at 10:39

   (4)

   Почему-то нельзя опубликовать файл бесплатно

   Я тоже этот вопрос админам задавал не раз.
   
   Там вроде можно, но каждый раз надо админа просить, чтобы цену убрал.

   Reply ↓
6. Bukaska 21.11.2018 at 11:04

   (4)Только если у Вас товар за рубли в магазине, то тогда можно файлы инструкций и демоматериалы сделать за бесплатно. Если у Вас товар за стартмани, то как там уже на бесплатный файл не поменять.

   Reply ↓
7. 7OH 22.11.2018 at 13:07

   Запускаю и пустой список

   Reply ↓
8. morozov.sv 22.11.2018 at 13:09

   (7) Возможно, для этих версий не установлены консоли. Нужно проверить наличие файлов «in
   admin.dll» в папках вида «8.3.*.*»

   Reply ↓
9. 7OH 22.11.2018 at 13:12

   (8) походу проблема из-за запуска с другого диска.
   
   команды cd в данном случае мало, система каталог меняет но остаётся на текущем диске.
   
   Есть можность поправить ?
   
   Сам пока ищу как извлечь последний каталог из найденного пути — вот так что-то нашло «for /d %%d in («%Path%8.*») do («

   Reply ↓
10. morozov.sv 22.11.2018 at 13:18

    (9) У меня ситуация не воспроизводиться. Можно попробовать так (в строку «cd /d %Path%» добавил ключ /d):

    @echo off
    setlocal EnableDelayedExpansion
    
    set Path=C:Program Files (x86)1cv8\r
    set /a num=0
    
    cd /d %Path%
    
    for /d %%d in («8.*») do (
    if exist %%din
    admin.dll (
    echo !num!. %%d
    set myarray[!num!]=%%din
    admin.dll
    set /a num+=1
    
    rem // Удалить прежнюю регистрацию
    start /wait regsvr32 /u /s «%Path%%%din
    admin.dll»
    )
    )
    
    set /P num_curr=»Select platform version (enter line number): »
    
    rem // Зарегистрировать новую версию
    start /wait regsvr32 «%Path%!myarray[%num_curr%]!» /s
    
    rem // Запуск
    start mmc «%Path%common1CV8 Servers.msc»

    Показать

    Reply ↓
11. 7OH 22.11.2018 at 13:25

    (10) Спасибо — так вышло.
    
    Ну и мелочь — регистрацию возможно лучше снимать ПОСЛЕ выбора, если таковой будет сделан.
    
    У себя просто убрал снятие регистрации — работает и так.

    Reply ↓
12. morozov.sv 22.11.2018 at 13:32

    (11) Согласен. Теперь регистрация снимается после выбора.

    @echo off
    setlocal EnableDelayedExpansion
    
    set Path=C:Program Files (x86)1cv8\r
    set /a num=0
    
    cd /d %Path%
    
    for /d %%d in («8.*») do (
    if exist %%din
    admin.dll (
    echo !num!. %%d
    set myarray[!num!]=%%din
    admin.dll
    set /a num+=1
    )
    )
    
    set /P num_curr=»Select platform version (enter line number): »
    
    for /d %%d in («8.*») do (
    if exist %%din
    admin.dll (
    rem // Удалить прежнюю регистрацию
    start /wait regsvr32 /u /s «%Path%%%din
    admin.dll»
    )
    )
    
    rem // Зарегистрировать новую версию
    start /wait regsvr32 «%Path%!myarray[%num_curr%]!» /s
    
    rem // Запуск
    start mmc «%Path%common1CV8 Servers.msc»

    Показать

    Reply ↓
13. 7OH 22.11.2018 at 13:36

    (12) С вашего позволения ещё пару моментов:
    
    1. Зачем ещё раз искать для удаления (мы же сохранили все найденные в массив) ?
    
    2. Начал было копипастить строки для добавления в массив версий из x64, но немного задумался о запуске регистрации и консоли .

    Reply ↓