[amel27]

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]

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

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

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

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

[skatet]

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

[amel27]

skatet

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

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

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

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

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

[skatet]

все правильно, но:
|
| установить программу№1? |

Да нет
|
установка программы |
| |
| завершение установки | |
| |
| установить программу№2? |
и тд...

вот как надо

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

подстава

[amel27]

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

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

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

[skatet]

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

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

[amel27]

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