Проблема запуска rar.exe из сетевой папки

@Jenyok2 · Регистрация: 12.06.2015

Студворк — интернет-сервис помощи студентам

Есть сетевой диск и сетевая папка "T:\WORK" на сетевом хранилище (под управлением ОС НЕ Windows, сетевой NAS).
В папке "T:\WORK" есть исполняемый файл "rar.exe" и vbs скрипт, выполняющий архивацию по некоторым условиям.
Из сетевой папки выполняется следующий VBS скрипт, см. ниже.
При запуске архиватора "rar.exe" из сетевой папки выдаются следующие окна предупреждений, см. прикрепленную картинку.
При запуске архиватора "rar.exe" с локального диска таких окон предупреждений НЕТ (закомментированная строка в скрипте).
.
НО... (погуглил, пока решения НЕ нашел)
.
1. Скрипт для сетевой папки будет выполнятся на рабочей станции с чистой ОС Windows, т.е. кроме ОС на рабочей станции ничего установлено НЕ будет (никаких дополнительных программ, в том числе и архиватора "WinRAR" и "rar" на рабочей станции установлено НЕ будет, такое условие).
2. Архиватор "rar.exe" должен находится в той же сетевой папке, что и выполняемый vbs скрипт (такое условие).
3. Использовать в скрипте WshShell = CreateObject("WScript.Shell") WshShell.Exec("rar.exe") или Set objShell = CreateObject("Shell.Application").ShellE xecute("rar.exe") возможности НЕТ, так как по условию работы скрипта необходимо ОБЯЗАТЕЛЬНО дождаться окончания выполнения команды runReturnCode = objShell.Run(fscriptPath2, 0, True) ' Ждем завершения внешней программы, НЕ выводить окно - так как архив может создаваться несколько минут или несколько часов и только потом переходить к выполнению следующих команд скрипта, а указанные выше команды НЕ дожидаются окончания работы внешней программы и переходят к следующим командам скрипта.
.
Вопрос как избавится от всплывающих окон предупреждений при запуске "rar.exe" с сетевой папки ?
.
.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
On Error Goto 0
Function AddChr34(fString)
  AddChr34 = fString
  If InStr(fString, Chr(34)) <> 1 and _
     InStrRev(fString, Chr(34)) <> Len(fString) Then
    AddChr34 = Chr(34) & fString & Chr(34)
  End If
End Function
Const ext1 = "*.*"
Const ext2 = "*.vbs"
Dim objShell
Dim fscriptPath2
Dim runReturnCode
'Dim rarPath : rarPath = "C:\Program Files\WinRAR\rar.exe"
Dim rarPath : rarPath = "T:\WORK\rar.exe"
Dim rarTemp : rarTemp = "T:\WORK\TEMP"
Dim rarLog  : rarLog  = "T:\WORK\LOG\test_05.log"
Dim rarFile : rarFile = "T:\WORK\test_05.RAR"
Set objShell = CreateObject("WScript.Shell")
fscriptPath2 = AddChr34(rarPath) & " a -ep -m5 -w" & AddChr34(rarTemp) & " -x" & AddChr34(ext2) & " -logf=" & AddChr34(rarLog) & " " & AddChr34(rarFile) & " " & AddChr34(ext1)
WScript.StdOut.WriteLine
WScript.StdOut.WriteLine AddChr34(fscriptPath2)
runReturnCode = objShell.Run(fscriptPath2, 0, True) ' Ждем завершения внешней программы, НЕ выводить окно
WScript.StdOut.WriteLine
WScript.StdOut.WriteLine "Код ошибки RAR: " & runReturnCode
WScript.StdOut.WriteLine
fscriptPath2 = AddChr34(rarPath) & " t -w" & AddChr34(rarTemp) & " -logf=" & AddChr34(rarLog) & " " & AddChr34(rarFile)
WScript.StdOut.WriteLine
WScript.StdOut.WriteLine AddChr34(fscriptPath2)
runReturnCode = objShell.Run(fscriptPath2, 0, True) ' Ждем завершения внешней программы, НЕ выводить окно
WScript.StdOut.WriteLine
WScript.StdOut.WriteLine "Код ошибки RAR: " & runReturnCode
WScript.StdOut.WriteLine

.

FlasherX · 07.10.2022, 10:56

rar.exe не крякнутый, случаем? Может, проверка сертификата по хэш не проходит.
3. Т. е. хотим сказать, что при Exec и ShellExecute не ругается?

А зачем функция с кавычками, если все пути без пробелов?
Да и проще так:

Visual Basic
1
2
3
Function AddChr34(fString)
  If Left(fString, 1) <> """" Then AddChr34 = """" & fString & """"
End Function

@Jenyok2 · 07.10.2022, 11:01 **[ТС]**

Сообщение от FlasherX

rar.exe не крякнутый, случаем? Может, проверка сертификата по хэш не проходит.
3. Т. е. хотим сказать, что при Exec и ShellExecute не ругается?

.
Exec и ShellExecute - НЕ пробовал, так как эти функции НЕ походят, функции НЕ ждут завершения выполнения внешнего файла. Поэтому смысла пробовать эти функции НЕ видел.
rar - возможно, крякнутый, возможно, не проходит проверка.
.

Сообщение от FlasherX

А зачем функция с кавычками, если все пути без пробелов?

.
На всякий случай, вдруг появятся пути с пробелами, поэтому перестраховка.
.

FlasherX · 07.10.2022, 11:04

Сообщение от Jenyok2

Exec и ShellExecute - НЕ пробовал

Ну тогда зачем их было вообще упоминать?

Сообщение от Jenyok2

rar - возможно, крякнутый.

В этом и кроется причина.

@Jenyok2 · 07.10.2022, 11:33 **[ТС]**

Создал BAT файл "Test_05.bat" с одной командой
CALL cscript.exe test_05.vbs
.
При запуске (страте) самого BAT файла (НЕ rar.exe) всплывает аналогичное окно предупреждения.
Причем даже при запуске BAT файла от имени Администратора.
.

Добавлено через 16 минут
Создал BAT файл "Test_05_1.bat" с одной командой
CALL rar.exe
.
При запуске (страте) самого BAT файла всплывает аналогичное окно предупреждения.
При запуске из BAT файла rar.exe окно предупреждения для rar.exe НЕ всплывает !!!??? Вот это, простите, как ???
.

FlasherX · 07.10.2022, 11:45

Сообщение от Jenyok2

вдруг появятся пути с пробелами

Где появятся? У вас же они в коде прописаны, а не случайным образом передаются. А если предполагается менять в коде, то проще сразу и писать Var = """C:\path 2""".

Сообщение от Jenyok2

CALL cscript.exe test_05.vbs

При чём тут CALL? cscript - не пакетный файл.

А вообще вэб-поиск никто не отменял: 1, 2, 3, 4, 5, 6 и т. д.

@Jenyok2 · 07.10.2022, 12:04 **[ТС]**

Сообщение от FlasherX

А вообще вэб-поиск никто не отменял: 1, 2, 3, 4, 5, 6 и т. д.

.
Это я читал внимательно и не раз.
Хотелось бы сделать универсальный vbs скрипт, который при запуске с сетевой папки НЕ выводил всплывающее окно предупреждения. Например, в vbs скрипте на время работы отключить предупреждения, при окончании работы vbs скрипта обратно включить предупреждения.
.
Сейчас вот какая загвоздка.
Вызов "rar.exe" из vbs скрипта поднимает всплывающее окно предупреждения rar .
Вызов "rar.exe" из bat файла НЕ поднимает всплывающее окно предупреждения rar .
.

Добавлено через 5 минут

Сообщение от FlasherX

Где появятся? У вас же они в коде прописаны, а не случайным образом передаются. А если предполагается менять в коде, то проще сразу и писать Var = """C:\path 2""".

.
То что здесь на форуме приведено, это ТОЛЬКО тестовый скрипт для проверки работоспособности vbs и поиска специфичных ошибок, как в данном случае.
.

FlasherX · 07.10.2022, 15:38

Jenyok2, тут, очевидно, 3 пути:
1. Лицензионный rar.
2. .Run "%ComSpec% /q/c >nul chcp 1251|rar.exe ...",0,1
3. Правка реестра через WshShell.RegWrite + gpupdate /force или nircmd.exe sysrefresh policy.

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@Jenyok2 1 / 1 / 0 Регистрация: 12.06.2015 Сообщений: 67
	07.10.2022, 11:33 [ТС]
	Создал BAT файл "Test_05.bat" с одной командой CALL cscript.exe test_05.vbs . При запуске (страте) самого BAT файла (НЕ rar.exe) всплывает аналогичное окно предупреждения. Причем даже при запуске BAT файла от имени Администратора. . Добавлено через 16 минут Создал BAT файл "Test_05_1.bat" с одной командой CALL rar.exe . При запуске (страте) самого BAT файла всплывает аналогичное окно предупреждения. При запуске из BAT файла rar.exe окно предупреждения для rar.exe НЕ всплывает !!!??? Вот это, простите, как ??? . 0

FlasherX 6998 / 2883 / 1109 Регистрация: 06.06.2017 Сообщений: 9,780
	07.10.2022, 15:38
	Jenyok2, тут, очевидно, 3 пути: 1. Лицензионный rar. 2. `.Run "%ComSpec% /q/c >nul chcp 1251\|rar.exe ...",0,1` 3. Правка реестра через WshShell.RegWrite + `gpupdate /force` или `nircmd.exe sysrefresh policy`. 0

Опции темы