Timer Script – VBS

' ###################################################
 ' 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
 

Related Images: