VBScript * непреднамеренно * останавливается на фоне

Для краткого описания кода, который у меня есть, я хочу отслеживать определенное приложение с именем «CostX.exe», если оно закрывается и открывается, и я регистрирую его в файле с именем CostXLog.txt. Я держу это в бесконечном цикле. Проблема в том, что я не знаю почему, но он работает в течение короткого периода, когда я не делаю ничего продуктивного, но когда я делаю, скрипт просто пауза или я должен сказать, что он больше не работает, хотя он все еще остается в фоновом режиме. Это должен быть его желаемый результат.

Opened at: 4/7/2021 9:00:52 AM
Closed at: 4/7/2021 9:07:56 AM
CostX was opened for 7 minutes and 4 seconds.

Но когда я говорю, что делаю что-нибудь продуктивное, результат остается на уровне

Opened at: 4/7/2021 9:00:52 AM

Это мой код

Option Explicit
Const ForReading = 1, ForAppending = 8
Dim i, processName, strComputer
Dim fso, inName, outName, shell, curDir, objWMIService, colProcessList
Set fso = CreateObject("Scripting.FileSystemObject")
Set shell = CreateObject("WScript.Shell")
curDir = shell.CurrentDirectory
outName = curDir & "\CostXLog.txt"
Dim counter1, counter2, initialOpen
Dim minDiff, secDiff
Dim timedate1, timedate2
timedate1 = Date() & " " & Time()
initialOpen = 0
counter1 = 0
counter2 = 1
'msgbox curDir
strComputer = "."

processName = "CostX.exe"

Dim newFile, outputFile 
newFile = Not fso.FileExists( outName )

while(true)
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery _
        ("Select Name from Win32_Process WHERE Name LIKE '" & processName & "%'")
    Set outputFile = fso.OpenTextFile( outName, ForAppending, True )
    if initialOpen = 0 Then
        outputFile.WriteLine "Ignore time after this line"
        initialOpen = 1
    else
        
        If colProcessList.count>0 then
            If counter1 = 0 Then
                outputFile.WriteLine "Opened at: " & Date() & " " & Time()
                timedate1 = Date() & " " & Time()
                counter1 = 1
                counter2 = 1
            End If
            
        else
            If counter2 = 1 Then
                outputFile.WriteLine "Closed at: " & Date() & " " & Time()
                timedate2 = Date() & " " & Time()
                minDiff = DateDiff("s", timedate1, timedate2)/60
                secDiff = DateDiff("s", timedate1, timedate2)
                outputFile.WriteLine "CostX was opened for " & Fix(minDiff) & " minutes and " & secDiff - (Fix(secDiff/60) * 60) & " seconds."
                counter2 = 0
                counter1 = 0
            End If
        End if
    End If
    outputFile.Close
    WScript.Sleep 50
wend

Set objWMIService = Nothing
Set colProcessList = Nothing

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

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