Проблема запуска 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.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@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 6985 / 2875 / 1106 Регистрация: 06.06.2017 Сообщений: 9,765
	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