http://dieseyer.de • all rights reserved • © 2011 v11.4

'v5.B*****************************************************
' File: zeitgestaffelt.vbs
' Autor: dieseyer@gmx.de
' dieseyer.de
'
' Startet zeitgestafflet verschiedene Skripte.
'
'*********************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

Dim WSHShell : Set WSHShell = WScript.CreateObject("WScript.Shell")

Dim StartZeit : StartZeit = now()
Dim Nach20 : Nach20 = 20
Dim Nach40 : Nach40 = 40
Dim Nach60 : Nach60 = 60
Dim Intervall : Intervall = "s" ' für Sekunden; n für Minuten
Dim LaufZeit

MsgBox "Es geht los!", , "0021 :: " & WScript.ScriptName


Do
LaufZeit = DateDiff( "s", StartZeit, now() )
' MsgBox "LaufZeit: " & LaufZeit, , "0026 :: " & WScript.ScriptName
If LaufZeit > 20 Then
If not Nach20 = 0 Then
Nach20 = 0
' WSHShell.Run( "20.vbs" )
MsgBox "20.vbs", , "0031 :: " & WScript.ScriptName
End If
End If

If LaufZeit > 40 Then
' If not Nach40 = 0 Then Nach40 = 0 : WSHShell.Run( "40.vbs" )
If not Nach40 = 0 Then Nach40 = 0 : MsgBox "40.vbs", , "0037 :: " & WScript.ScriptName
End If

' If LaufZeit > 60 AND not Nach60 = 0 Then Nach60 = 0 : WSHShell.Run( "60.vbs" )
If LaufZeit > 60 AND not Nach60 = 0 Then Nach60 = 0 : MsgBox "60.vbs", , "0041 :: " & WScript.ScriptName

If Nach60 = 0 Then Exit Do ' Alles abgearbeitet

If Intervall = "s" Then WScript.Sleep 1*1000 ' 1s
If Intervall = "n" Then WScript.Sleep 60*1000 ' 1min

Loop

MsgBox "Das wars!", , "0050 :: " & WScript.ScriptName

http://dieseyer.de • all rights reserved • © 2011 v11.4