Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » WSH. Передача параметров для скрипта на VBS

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

hack

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день!  
 
Скажите пожалуйста, каким образом можно передать параметр для VBS скрипта.  
Нужно одним скриптом переписывать разные файлы с сервера на локальные компы.  
 
Спасибо.

Всего записей: 7 | Зарегистр. 02-06-2003 | Отправлено: 16:59 03-06-2003
v0yager



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
 
Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
   WScript.Echo objArgs(I)
Next
 

 
В MSDN Library ключ для поиска WScript Object (property Arguments, type - WshArguments).
 
На вход параментры передаются после названия скрипта (обычные command-line parameters).
 

Код:
 
cscript.exe MyScript.vbs Param1 Param2 Param3
 

Всего записей: 95 | Зарегистр. 08-05-2003 | Отправлено: 17:22 03-06-2003
der



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Благодарю!!!!
А запустить экзешник? :-)

Всего записей: 145 | Зарегистр. 27-07-2002 | Отправлено: 17:28 03-06-2003 | Исправлено: der, 17:43 03-06-2003
v0yager



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
WshShell.Exec, WshShell.Run
 

Код:
 
Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
 
Set oExec = WshShell.Exec("calc")
 
Do While oExec.Status = 0
     WScript.Sleep 100
Loop
 
WScript.Echo oExec.Status
 

 
или
 

Код:
 
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%windir%\notepad "
 

Внимательно прочитай доку по этим методам. Когда и как они возвращают управление.

Всего записей: 95 | Зарегистр. 08-05-2003 | Отправлено: 18:52 03-06-2003
der



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть еще одна маленькая проблемка:
 
С помощью этого скрипта я копирую экзешник с сервера на клиентскую машину и запускаю его.
 
Так вот в момент копирования (а происходит это примерно секунд 20) на экране ничего нет. Отчего люди могут подумать, что файл не запустился и начнут сновы тыкать на него, вызывая копирование снова и снова.
 
Можно ли в первых строчках скрипта вставить команду, которая бы вешала окно "Пожалуйста подождите" а потом снимала бы его?

Всего записей: 145 | Зарегистр. 27-07-2002 | Отправлено: 08:48 04-06-2003
v0yager



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
der
 
Схема следующая:
 
1. Делаешь отдельный скрипт с вызовом WScript.Echo "СООБЩЕНИЕ"
2. Запускаешь его в основное скрипте:

Код:
 
Set oExec = WshShell.Exec("wscript.exe /c myMsgScript.vbs")
 

3. Делаешь в основном скрипте все что нужно
4. Закрываешь msg-script:

Код:
 
oExec.Terminate

5. Конец

Всего записей: 95 | Зарегистр. 08-05-2003 | Отправлено: 16:39 04-06-2003
der



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо большое!
 
Слушай, у меня тут еще вопросики появились...
 
Ты не мог бы дать какие-нить ссылки по поводу WSH. На микрософте - там все в одной куче - пока нужную статью найдешь семь потов сойдет.
 
Постоянно народ тревожить по пустякам уже как-то неудобно.
 
Спасибо.
 
p.s. Ну а если не сложно, то как в WSH можно узнать версию файла?

Всего записей: 145 | Зарегистр. 27-07-2002 | Отправлено: 22:08 04-06-2003
v0yager



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
за адресами сюда: http://forum.ru-board.com/topic.cgi?forum=33&topic=1491#1
 
Дальнейшие вопросы желательно туда же

Всего записей: 95 | Зарегистр. 08-05-2003 | Отправлено: 10:27 05-06-2003
viking75

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Задача передать параметр файл  в  bat файл через  vbs  
 
Пример файла 1.vbs
Set objArgs = WScript.Arguments  
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "C:\1.bat " + objArgs(0), 0, False
 
Запуск  Пример
1.vbs 3.txt
 
 
Итог запуск 1.bat 3.txt  

Всего записей: 55 | Зарегистр. 30-08-2007 | Отправлено: 11:41 13-08-2015
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » WSH. Передача параметров для скрипта на VBS


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru