[Ramzes_]

Мммм... что то не очень понятно, что требуется. Можно на пальцах? По порядку так сказать...

[skatet]

конечно!
1. необходимо установить 3 программы к примеру.
Что должен делать скрипт - спрашивает в самом начале - нужно ли устанавливать Пр№1, тут - если я говорю - да, то скрипт устанавливает ее, после завершения, предлагает уст. пр №2, если я скажу нет, то сразу переходит на прогамму №2 не устанавливая 1ю и т.д. - программ много - автоматизация установок ПО
надеюсь на понимание!

И спасибо за внимание. Очень нужно просто - это все у меня есть, но на батниках и без возм выбора, а желательно.

[Ramzes_]

Так?

Код:

If (MsgBox("Установить программу XXX?", vbYesNo) = vbOK) Then
  RetCode = WshShell.Run("XXX", 1, vbTrue)
End If


If (MsgBox("Установить программу YYY?", vbYesNo) = vbOK) Then
  RetCode = WshShell.Run("YYY", 1, vbTrue)
End If

[skatet]

ну как бы да, надеюсь я правильно понял - а если я нажму нет, то тогда как повед скрипт?

поведет скрипт, ведь он должен автоматом перекинуться на установку программы yyy

тоесть как я понимаю речь идет о команде Else

' Объявляем переменные
Dim WshShell,theNotepad,Res,Text,Title
' Создаем объект WshShell
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.Sleep 100

только здесь выполнено по другому - просто для объяснения.

[Ramzes_]

Если ты нажмешь Отмена, программа перейдет к выполнению следующего оператора.
В примере, который указал ты, если ты нажмешь Да, и установится первая программа, то после этого запроса на установку второй программмы не будет.

[skatet]

в том то и дело, а мне надо чтоб все программы автоматически предлагались к выполнению

[Ramzes_]

Ну и?

If () Then
............
End If

И так по порядку для каждой программы.
А еще лучше функцию напиши. Будет грамотнее.

[skatet]

вот алгоритм

[skatet]

Option Explicit
Dim WshShell,theNotepad,Res,Text,Title,RetCode
Set WshShell = WScript.CreateObject("WScript.Shell")

Text="Хранитель паролей"
Title="Установка"
Res=WshShell.Popup(Text,0,Title,vbOkCancel)

If (Res=vbOk) Then
RetCode = WshShell.Run("""C:\Program Files\KeePass-1.08\KeePass.exe""", 1, vbTrue)

Else

Text="RegShot"
Title="Установка"
Res=WshShell.Popup(Text,0,Title,vbOkCancel)

RetCode = WshShell.Run("""C:\Program Files\regshot181_src_bin\regshot.exe""", 1, vbTrue)

WScript.Sleep 100
End If

но как сделать чтоб если я выбираю Yes, то после установки, автоматом выходило окно с вопросом и т.д.

..с вопросом на установку след программы