'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