Ошибки в запуске

Const checkIntervalMinutes = 15
Dim lastCheckedValue = -1
Dim currentValue
 
Do
    currentValue = ReadCacheValue("C:\UI\UX\Config\Cache_Logs.ini")
    
    If currentValue <> lastCheckedValue Then
        lastCheckedValue = currentValue
        WScript.Echo "Новое значение: " & currentValue
    End If
 
    Select Case currentValue
        Case 0
            WScript.Echo "Значение 0: ничего не делаем, ждем..."
            sleepMinutes = checkIntervalMinutes
        Case 1
            Call CleanTempFolder()
            sleepMinutes = checkIntervalMinutes
        Case 2
            Call CleanTempFolder()
            sleepMinutes = 30
        Case 3
            Call CleanTempFolder()
            sleepMinutes = 60
        Case 4
            Call CleanTempFolder()
            sleepMinutes = 240
        Case 5
            Call CleanTempFolder()
            sleepMinutes = 480
        Case Else
            sleepMinutes = checkIntervalMinutes
    End Select
    
    SleepMinutes sleepMinutes
Loop
 
' =================== Функции ===================
 
Function ReadCacheValue(filePath)
    Dim fso, txt, line, modeStr, modeNum
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' Проверка существования файла
    If Not fso.FileExists(filePath) Then
        ' Создаем файл и пишем начальное значение "Mode: 0"
        Dim newFile
        Set newFile = fso.CreateTextFile(filePath, True)
        newFile.WriteLine("Mode: 0")
        newFile.WriteLine()
        newFile.WriteLine(";0 - off        1 - timer 15 min        2 - timer 30 min      3 - timer 1 hour    4 - timer 4 hours       5 - time 8 hours")
        newFile.Close
        ReadCacheValue = 0
        Exit Function
    End If
    
    Set txt = fso.OpenTextFile(filePath, 1)
    modeNum = 0
    
    Do While Not txt.AtEndOfStream
        line = Trim(txt.ReadLine)
        ' Пропускаем комментарии
        If Left(line, 1) <> ";" And InStr(line, "Mode:") > 0 Then
            ' Ищем число после "Mode:"
            Dim parts, valuePart
            parts = Split(line, "Mode:")
            If UBound(parts) >= 1 Then
                valuePart = Trim(parts(1))
                ' Удаляем любые пробелы и запятые
                valuePart = Replace(valuePart, ";", "")
                valuePart = Trim(valuePart)
                If IsNumeric(valuePart) Then
                    modeNum = CInt(valuePart)
                End If
            End If
        End If
    Loop
    txt.Close
    ReadCacheValue = modeNum
End Function
 
Sub SleepMinutes(minutes)
    WScript.Sleep(minutes * 60000)
End Sub
 
Sub CleanTempFolder()
    Dim fso, folder, file, subfolder, shell, tempPath
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set shell = CreateObject("WScript.Shell")
    tempPath = shell.ExpandEnvironmentStrings("%TEMP%")
    On Error Resume Next
    Set folder = fso.GetFolder(tempPath)
    ' Удаляем файлы
    For Each file In folder.Files
        fso.DeleteFile(file.Path, True)
    Next
    ' Удаляем папки
    For Each subfolder In folder.SubFolders
        fso.DeleteFolder(subfolder.Path, True)
    Next
    WScript.Echo "Папка TEMP очищена!"
End Sub

Dim lastCheckedValue: lastCheckedValue = -1