Timer Script – VBS
2. Januar 2011 | In: VBScript
' ################################################### ' File: Timer.vbs ' Author: M.Buarotti ' Description: Script welches Aufgaben erledigt in der ' definierten Zeit. ' Date: 26.01.2008 Version: 1.1 ' ################################################### Const EVENTLOG_SUCCESS = 0 Const EVENTLOG_ERR_TYPE = 1 Const EVENTLOG_WARN_TYPE = 2 Const EVENTLOG_INFO_TYPE = 4 Set objShell = CreateObject("wscript.shell") objTime() Function objTime Do ' FormatDateTime formatiert die Zeit objTime = FormatDateTime(Time, 4) Wscript.echo objTime sTime = "11:15" eTime = "11:40" If objtime>(sTime) then If objtime<(eTime) then ' ## Funktion jobRun wird aufgerufen. jobRun() Else ' ## Funktion jobNotRun wird aufgerufen. jobNotRun() End If End If Wscript.Sleep 10000 Loop End Function ' ## Funktion wenn der Job gestartet wirklich gestartet wird. Function jobRun wscript.echo "Ich darf starten.." & oTime objShell.LogEvent EVENTLOG_INFO_TYPE, "Job Running --> " & Time End Function ' ## Funktion wenn der Job nicht gestartet werden soll Function jobNotRun wscript.echo "Ich darf nicht starten.." & oTime objShell.LogEvent EVENTLOG_WARN_TYPE, "Job not Running --> " & Time End Function