VBS/WSH/JS - [решено] Проблема передачи параметров в скрипт при запуске из ярлыка

VBS/WSH/JS - [решено] Проблема передачи параметров в скрипт при запуске из ярлыка

gora

Ушёл из жизни

Сообщения: 6021
Благодарности: 3491

Конфигурация

Профиль | Отправить PM | Цитировать

Изменения

Автор: gora
Дата: 08-09-2011

Создаю ярлык в контекстном меню SendTo. В свойствах ярлыка прописал запуск с ключом /Cs.

В скрипте ChngCase.vbs первыми строками стоит проверка передаваемых параметров:

Код:

F = WScript.Arguments(0)
MsgBox(F)
CurrentFile = WScript.Arguments(1)
MsgBox(CurrentFile)

Скрипт лежит по указанному в ярлыке адресу.
Устанавливаю курсор на файл -> ПКМ -> Отправить -> Щелчок по ярлыку "С заглавной буквы". Появляется первое окно в котором отображается полный путь к файлу под курсором. Закрываю это окно, но второго окна не появляется, а появляется ошибка

Цитата:

Ошибка: Индекс выходит за пределы допустимого диапазона

Появление ее понятно, т.к., в скрипт передан только один (второй, а не первый) параметр - полный путь к файлу, а куда пропадает ключ /Cs для меня остается загадкой!?

Положил рядом со скриптом одноименный батник и изменил в ярлыке расширение на .bat, дабы проверить передачу параметров ярлыком.
Файл ChngCase.bat

Код:

@Echo Off
Echo %1
Echo %2
Pause>Nul

В результате запуска в консольном окне вижу как и положено две строки: в первой ключ, во второй путь к файлу под курсором.

Как правильно создать ярлык для запуска .vbs скрипта с передачей ему этих двух параметров: ключа и пути к файлу ?

Отправлено: 10:07, 08-09-2011

SendMessage

Старожил

Сообщения: 175
Благодарности: 119

Профиль | Отправить PM | Цитировать

Перед маршрутом скрипта вставьте сервер сценариев wscript.exe.

Кроме того можно разделить параметры на именованные и нет.
/Cs - его лучше проверять как именованный. Например:

Код:

If WScript.Arguments.Named.Exists("Cs") Then MsgBox "есть"

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

Код:

CurrentFile = WScript.Arguments.UnNamed.Item(0)
MsgBox(CurrentFile)

Это сообщение посчитали полезным следующие участники:

gora, Iska

Отправлено: 13:26, 08-09-2011 | #2

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

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.