'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