フリーソフト

以下のソースコードをコピーして、テキストファイルに貼り付け、拡張子「.vbs」で保存して下さい。

	
Dim oShell
Dim Holidays , expr , d , DayOfWeek
Dim ExecInfo

'休日データ2016→2019 ※年末年始休日追加可能です 1行1年分でセットして下さい
Holidays = _
        "2016/01/01 2016/01/02 2016/01/11 2016/02/11 2016/03/20 2016/03/21 2016/04/29 2016/05/03 2016/05/04 2016/05/05 2016/07/18 2016/08/11 2016/09/19 2016/09/22 2016/10/10 2016/11/03 2016/11/23 2016/12/23 " & _
        "2017/01/01 2017/01/02 2017/01/09 2017/02/11 2017/03/20 2017/04/29 2017/05/03 2017/05/04 2017/05/05 2017/07/17 2017/09/18 2017/09/23 2017/10/09 2017/11/03 2017/11/23 2017/12/23 " & _
        "2018/01/01 2018/01/08 2018/02/11 2018/02/12 2018/03/21 2018/04/29 2018/04/30 2018/05/03 2018/05/04 2018/05/05 2018/07/16 2018/08/11 2018/09/17 2018/09/23 2018/09/24 2018/10/08 2018/11/03 2018/11/23 2018/12/23 2018/12/24 " & _
        "2019/01/01 2019/01/14 2019/02/11 2019/03/21 2019/04/29 2019/05/03 2019/05/04 2019/05/05 2019/05/06 2019/07/15 2019/09/16 2019/09/23 2019/10/14 2019/11/03 2019/11/04 2019/11/23 2019/12/23"

'実行チェック
d = Date
'd = "2016/05/7"    'for Debug
expr = FormatDateTime(d, vbGeneralDate)        'データ形式にあわせる

ExecInfo = False
'当日が祝日、土、日に実行する
'土曜日実行しない場合は、29行目を ExecInfo = false にするか、コメントアウトする！
if InStr(1,Holidays, expr) > 0 then
    '当日が休日
    ExecInfo = True
else
    DayOfWeek = Weekday(expr)
    select case DayOfWeek
        case 1    'Sunday
            ExecInfo = true        'trueで実行
        case 7    'Saturday
            ExecInfo = true        'trueで実行
        case else
    end select
end if

if ExecInfo then
    'Auto Crawle
    Set oShell = WScript.CreateObject ("WSCript.shell")
    oShell.run "RakuRakuPremiumYahoo.jar auto",0            'この部分は楽天、Yahooでファイル名が変わります。（このサンプルはYahoo用）
    Set oShell = Nothing
end if