特定の時刻にvbsを含むファイルを実行する

Question

特定の時刻にVBScriptファイルを使用して任意の種類のファイル（例：mp3、doc、exe ..など）を実行できますか？
私は多くの場所に見えたが、何の成功はありませんでした。..

Answer 1

だから午前10時

で毎日実行されるように、メモ帳をスケジュールすることができ、この例の試してみて、あなただけのこれらの3を変更する必要がありますあなたに、このスクリプトでは、引数：

1. TaskName：指定
2. App_FullPath
3. strTime

---

Option Explicit 
Dim TaskName,App_FullPath,strTime 
TaskName = "Execute_Notepad" 
App_FullPath = "C:\windows\notepad.exe" 
strTime = "10:00" 
Call CreateTask(TaskName,App_FullPath,strTime) 

'***************************************************************** 
Sub CreateTask(TaskName,App_FullPath,strTime) 
Dim ws,strtask,exitcode 
Set ws = CreateObject("Wscript.Shell") 
strtask = "schtasks /create /sc Daily /tn "& qq(TaskName) & _ 
      " /tr "& qq(App_FullPath) & _ 
      " /st " & strTime & " /f" 

exitcode = ws.Run(strtask, 0, True) 

If exitcode <> 0 Then 
    WScript.Echo "External command failed: " & Hex(exitcode) 
Else 
    wscript.echo "Success !" 
End If 
End Sub 
'***************************************************************** 
Function qq(str) 
    qq = chr(34) & str & chr(34) 
End Function 
'***************************************************************** 

編集：番タスク名このVBScriptで

@echo off 
Mode 100,3 & color 0A 
Title Delete Tasks with their time tasks execution by Hackoo 2017 
:Menu 
Mode 100,3 & color 0A 
cls & echo(
echo Type the time with this format "hh:mm" or a task name to show or delete for scheduled Tasks 
set /a "count=0" 
set /p "strTime=" 
cls & echo( 
echo    Please wait a while ... looking for a scheduled Tasks for "%strTime%" 
Setlocal EnableDelayedExpansion 
@for /f "tokens=1 delims=," %%a in ('schtasks /query /fo csv ^| find /I "%strTime%"') do (
    set /a "Count+=1" 
    set "TaskName[!Count!]=%%~a" 
) 
Rem Display numbered Task Names 
Mode 90,30 & cls & echo( 
@for /L %%i in (1,1,%Count%) do (
    set "Task=[%%i] - !TaskName[%%i]:~1!" 
    echo !Task! 
) 

If not defined Task (
    Mode 90,3 & Color 0C 
    echo(
    echo      No Scheduled Tasks found with this criteria 
    Timeout /T 3 /nobreak >nul & goto Menu 
) 

echo(
Rem Asking user if he wants to delete or not the numbered task names 
echo Type the number of the task to delete ! 
set /p "Input=" 
@for /L %%i in (1,1,%Count%) Do (
    If "%INPUT%" EQU "%%i" (
     schtasks /delete /tn "!TaskName[%%i]:~1!" 
    ) 
) 
echo(
echo Type any key to show and delete another task ! 
Pause>nul 
Goto Menu 

Answer 2

を表示または削除するバッチファイルあなたは4つの引数を変更することができます。

1. TaskName：指定
2. AppFullPath
3. のStartTime
4. 周波数

---

Option Explicit 
Dim TaskName,AppFullPath,StartTime,Frequency 
'************* Four params can be changed here******************** 
TaskName = "Execute Notepad by Hackoo" 
AppFullPath = "C:\windows\notepad.exe" 
StartTime = "10:00" 
Frequency = "Minute" 
REM The value of frequency can be taken 
Rem as "MINUTE", "HOURLY", "DAILY", "WEEKLY" or "MONTHLY" 
REM https://technet.microsoft.com/en-us/library/bb490996.aspx 
REM Don't change anything under this line 
'************************** Main ********************************* 
Call CreateTask(TaskName,AppFullPath,StartTime,Frequency) 
'***************************************************************** 
Sub CreateTask(TaskName,AppFullPath,StartTime,Frequency) 
Dim ws,strtask,exitcode 
Set ws = CreateObject("Wscript.Shell") 
strtask = "schtasks /create /sc "& Frequency &" /tn "& qq(TaskName) & _ 
      " /tr "& qq(AppFullPath) & _ 
      " /st " & StartTime & " /f" 

exitcode = ws.Run(strtask, 0, True) 

If exitcode <> 0 Then 
    WScript.Echo "External command failed: " & Hex(exitcode) 
Else 
    wscript.echo "The Task "& qq(TaskName) & " is created successfully !"& vbcrlf &_ 
    "to be run "& qq(Frequency) &" with a StartTime at " & qq(StartTime) & "" 
End If 
End Sub 
'***************************************************************** 
Function qq(str) 
    qq = chr(34) & str & chr(34) 
End Function 
'*****************************************************************