vbscript и уhit процесс с pid wmiservice


У меня есть папка заполняется несколько vbscripts (скажем 10), который должен быть запущен последовательно, вместо того, чтобы каждый, нажав на них, я хочу, чтобы автоматизировать этот процесс. Ниже мой мастер.VBS скрипт, который запускается каждый VBScript в этой папке по одному.

strComputer = "."Set objFSO = CreateObject("Scripting.FileSystemObject")currentdirectory = objFSO.GetAbsolutePathName(".")filedirectory = currentdirectory Set objFolder = objFSO.GetFolder(filedirectory)Dim filestringSet colFiles = objFolder.FilesFor Each objFile in colFiles    'Wscript.Echo objFile.Name    filestring = filestring & objFile.Name & ","Next'filestring = filestring.Trim().Substring(0, filestring.Length - 1)filestring = Left(filestring,Len(filestring)-1)Dim files  files = Split(filestring,",")For Each f In files'WScript.Echo fchk = Split(f,".")If chk(UBound(chk)) = "vbs" thenpat = filedirectory & "\" & fSet objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")proc = "cmd.exe /c"& Chr(32) &"cscript.exe " & Chr(32) & chr(34) & pat & Chr(34) objWMIService.Create proc , null, null, intProcessIDSet objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colMonitoredProcesses = objWMIService.ExecNotificationQuery _    ("Select * From __InstanceDeletionEvent Within 1 Where TargetInstance ISA 'Win32_Process'")Do Until i = 1    Set objLatestProcess = colMonitoredProcesses.NextEvent    If objLatestProcess.TargetInstance.ProcessID = intProcessID Then        i = 1    End IfLoop'Wscript.Echo "Process has been terminated."End IfNext

Вопрос у меня вот что скрипты прекрасно работает с тех пор, как имя процесса будет одинаковым для всех сценариев (сценария) не ждать процесса, чтобы завершить, прежде чем начать другое .

Я понимаю там всего минута настройки, необходимые в моем коде, но я не уверен, как пойти об этом. Может кто-нибудь указать, что я делаю неправильно здесь ?..