Hier ein Vorschlag:
' ----------------------------------------------
' check time
' programm je nach zeit starten
' ----------------------------------------------
option explicit
Dim jetzt
Dim sMldg
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
jetzt = Time
sMldg = "Verarbeitung gestartet am " & Date & " um " & jetzt & "."
MsgBox sMldg, , "!check time!"
' -- Fall 1, als Beispiel den Notepad starten
If jetzt >= 0 And jetzt MsgBox "Fall 1, hier startet Programm xy ..."
' mit "True" wartet das Skript, bis der Notepad wieder
' geschlossen wird
WshShell.Run "Notepad", 1, True
End If
' -- Fall 2
If jetzt > 12 And jetzt MsgBox "Fall 2 ..."
End If
jetzt = Time
sMldg = "Verarbeitung beendet um " & jetzt & "."
MsgBox sMldg, , "!check time!"