Тема: помогите из VBS скриптом

Уважаемые гуру программирования есть такой скрипт vbs

Код:

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "programs2.exe", 0
WScript.Sleep(8000)
WshShell.SendKeys(" ")
WScript.Sleep(400)
WshShell.Run "g:\programs1\programs1.exe",1
WScript.Quit(0)

нужно усовершенствовать этот скрипт таким образом чтобы при завершении programs1.exe автоматически закрывалась programs2.exe

нашел такой кусок кода но незнаю как его применить

Код:

'**********************************__Убиваем процессы_notepad.exe__*************************************
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
For Each objProc In objService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'notepad.exe'")
    objProc.Terminate
Next
'****************************************************************************************************

Думаю понятно объяснил

Сообщение от Shok

никогда не кодил на бейсике, но исходя из первого кода я понял что скрипт запускает программу2 курит больше часа, потом эмулирует нажатие клавиши, потом еще курит мин 10 и запускает программу 1, в чем смысл скрипта?, о закрытии программы в скрипте реч не ведется, надо событие обрабатывать для твоих нужд.

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