Dim wk , FolderName
Dim taskName , taskTime
wk = ""
FoldweName = ""
Do While Wscript.StdIn.AtEndOfStream = false
  wk = Trim( Wscript.StdIn.ReadLine )
  If ( inStr( 1 , wk , "フォルダ\" , 0 ) > 0 ) Then
    FolderName = wk
  End if
  If (( FolderName = "フォルダ\" ) _
        And ( wk <> FolderName ) _
        And ( Len( wk ) > 10 ) ) Then
    wk = Replace( wk , "準備完了" , "" )
    taskTime = trim( right( wk , 23 ) )
    taskName = trim( left( wk , len( wk ) - 23 ) )
    If ( DateAdd( "n" , 0 , taskTime ) _
           < DateAdd( "n" , 1 , Now ) ) Then
      Wscript.StdOut.WriteLine _
          "schtasks /run /tn """ & taskName & """"
    End if
  End if
Loop
                        

@echo off
:Loop
schtasks /Query /NH ^
  | FIND /V "N/A" ^
  | cscript //Nologo C:\TOOL\TaskCheck.vbs ^
  | cmd > nul 2>&1
Ping -n 61 localhost > nul 2>&1
goto :Loop