VBS/WHS/JS - Скрипт для последовательного запуска нескольких программ

amel27 · Отправлено: **07:02, 17-11-2007** | #2

skatet

Цитата skatet:

У вас впервые »

- имхо для этой темы оффтоп;
- код скрипта нужно брать в теги "CODE";
- почему количество кавычек в примере и в пояснении разное?.. так работает:

Код:

Set WshShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run("notepad", 1, vbTrue)
RetCode = WshShell.Run("""C:\Program Files\WinRAR\WinRAR.exe""", 1, vbTrue)
RetCode = WshShell.Run("notepad", 1, vbTrue)

skatet · Конфигурация компьютера

1 - почему для этой темы оффтоп?
2 - код скрипта нужно брать в теги "CODE - для чего?, что они позволяют?
3 - количество кавычек в примере и в пояснении разное - сорри, не заметил - работает только при 3х кавычках
4 - отлично Скрипт заработал как надо!
5 - чем отличается параметр vbTrue от True? (сам тоже поищу ответ) - дело было только в этом?
Огромной Респект!

Еще вопрос возник теперь, если с запуском программ более проблем не будет, то как теперь сделать чтоб в зависимости от необходимости установки программ, скрипт перенаправлял на установку текущей программы или на запрос установки следующей программы?

ShaddyR · Конфигурация компьютера

Цитата skatet:

почему для этой темы оффтоп? »

вероятно, это потому, что тема называется

Цитата:

CMD/BAT - нужна помощь в написании *.bat файлов »

и в названии темы ничего не сказано про VB-скрипты?

skatet · Конфигурация компьютера

тем неменее на этом форуме много обсуждений скриптов.
Ну ладно, пойду туда..

amel27 · Отправлено: **11:49, 19-11-2007** | #6

skatet

Цитата skatet:

Ну ладно, пойду туда »

хм... если перечисленных ниже тем мало создай свою, но тут все-таки про батники:

Хелп! Нужен скрипт на на WSH или VBS
Скрипт на VBS
VBS/WHS/JS - скрипты VBS

Цитата skatet:

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

ты же вроде сам привел пример через WshShell.Popup

skatet · Конфигурация компьютера

подстава

amel27 · Отправлено: **06:41, 20-11-2007** | #8

skatet
не понял - выход при согласии или при отказе... если второе то можно так:

Код:

Set WshShell = WScript.CreateObject("WScript.Shell")

Text="Запуск установки программного обеспечения" & vbCrLf & """Установка Хранителя Паролей"""
Title="Установка"

Res=WshShell.Popup(Text,0,Title,vbOkCancel)
If Res=vbOk Then
	Set theNotepad = WshShell.Exec("C:\Program Files\KeePass-1.08\KeePass.exe")
Else
	WScript.Quit
End If

Цитата skatet:

пробелы оказ не учитываются »

в теге CODE учитываются

skatet · Конфигурация компьютера

- "установить программу №1?":
- если да, то установка программы - ожидание окончания - "установить программу №2 ?" .
если да то тоже самое для Пр№3, 4 и т.д.
- если нет - то "установить программу №2 ?"
если нет то тоже самое для Пр№3, 4 и т.д.

"установить программу №1?":
1) - если да, то установка программы - ожидание окончания - "установить программу №2 ?" .
если да то тоже самое для Пр№3, 4 и т.д.
2) - если нет - то "установить программу №2 ?"
если нет то тоже самое для Пр№3, 4 и т.д.

amel27 · Отправлено: **10:06, 21-11-2007** | #10

skatet
ну и в чем проблема?

Код:

Set WshShell = WScript.CreateObject("WScript.Shell")

If WshShell.Popup("Text1",0,"Title1",vbOkCancel)=vbOk Then WshShell.Run "notepad.exe",1,vbTrue
If WshShell.Popup("Text2",0,"Title2",vbOkCancel)=vbOk Then WshShell.Run """c:\Program Files\WinRAR\WinRAR.exe""",1,vbTrue