'v5.B*****************************************************
' File:   immerwieder.vbs
' Autor:  dieseyer@gmx.de 
'         dieseyer.de
'
' Startet regelmäßig verschiedene Skripte.
' 
'*********************************************************

' Das Skript beendet sich, wenn es gelöscht wird.

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

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

Dim n
Dim nach        : nach = Array( 10, 20, 30, 50, 59 ) ' gestartet werden "10.vbs" "20.vbs" .. "59.vbs"

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

' MsgBox UBound( nach ), , "0022 :: " &  WScript.ScriptName

Do
  For n = LBound( nach ) To UBound( nach ) 
    If Second(now) = nach( n ) Then 
  ' If Minute(now) = nach( n ) Then 
    ' WSHShell.Run( nach( n ) & ".vbs" ) 
      MsgBox nach( n ) & ".vbs", , "0029 :: " &  WScript.ScriptName
    End If
  Next

  WScript.Sleep 250     ' alle 1/4 Sekunde   bei   ==>> "If Second(now) = nach( n ) Then" <<==
' WScript.Sleep 15*1000 ' alle 1/4 Minute    bei   ==>> "If Minute(now) = nach( n ) Then" <<==
  If Not fso.FileExists( WScript.ScriptFullName ) Then Exit do
Loop

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