[megaloman]

Ваша программа запускается, но она не в состоянии найти файлы, необходимые для нормальной работы. Вот вариант.

Код:

ProgStart = Array("C:\Program Files\cpustats\dau\cpustats.exe", "08:00:00", "18:00:00", _
                "C:\Program Files\cpustats\night\cpustats.exe", "20:00:00", "23:59:59", _
                "C:\Program Files\cpustats\night\cpustats.exe", "00:00:00", "06:00:00")
                
Set WShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

N1 = LBound(ProgStart)
N2 = UBound(ProgStart)
NProg = (N2 - N1 + 1) / 3

On Error Resume Next
For i = 1 To NProg
    PrgName = ProgStart(N1 + 3 * (i - 1))
    TBeg = TimeValue(ProgStart(N1 + 1 + 3 * (i - 1)))
    TEnd = TimeValue(ProgStart(N1 + 2 + 3 * (i - 1)))
    On Error Resume Next
    If TBeg <= Time() And Time() <= TEnd Then
        WShell.CurrentDirectory = FSO.GetFile(PrgName).ParentFolder
        LL = WShell.Run("""" + PrgName + """", 7, False)
        If Err.Number <> 0 Then
            Msg = ""
            If Not FSO.FileExists(PrgName) Then Msg = vbCrLf + "Файл не найден" + vbCrLf
            LL = WShell.Popup("Обратитесь в техподдержку" + vbCrLf + PrgName + Msg + vbCrLf + CStr(TBeg) + "   " + CStr(TEnd) + "   " + CStr(Time()) + vbCrLf + "Код ошибки " + CStr(Err.Number) + vbCrLf + Err.Description, 3600, "Программа не запускается", 16)
            WScript.Quit
        End If

    End If
Next
On Error GoTo 0