VBScript leálitása?

Szia! az elöbi pár napokban írtam egy VB Scriptet, viszont nem bírom leálitani... ha tudsz, akkor kérlek segits nekem. köszi!

Script:

set wshshell = wscript.createobject("wscript.shell")

do until yorn = vbno

all=MsgBox ("Hardcore 1.16.2 futatasa?",vbYesNo,"Server Manager")

if all=vbYes then

Set shell = CreateObject("WScript.Shell")

shell.Run "C:\Users\csaba\Desktop\Serverek\HC1161\server.jar"

shell.Run "C:\Users\csaba\Desktop\Serverek\HC1161\Ngrokbat"

wscript.sleep 15000

again=MsgBox ("elinditas megesgyszer?",vbYesNo,"Server Manager")

end if

loop