タスクスケジューラでvbsを実行すると動作しない

windows7でタスクスケジューラに以下のa.vbsを登録し実行すると

動作せず、エラーにもなりません。

a.vbsをダブルクリックで実行すると動作します。

この違いはなんでしょうか。

a.vbs

Option Explicit

Dim FileShell

Dim count

Const ForReading = 1

On Error Resume Next

Set FileShell = WScript.CreateObject("Scripting.FileSystemObject")

Function ReadFile(ByVal FileName)

ReadFile = FileShell.OpenTextFile(FileName, ForReading, False).ReadAll()

End Function

Execute ReadFile("holiday.vbs")

If ktHolidayName(Date) <> "" Then

WScript.Echo "祝日と判定。今日は" & ktHolidayName(Date)

Set FileShell = Nothing

WScript.Quit

else

WScript.Echo "祝日と判定しなかった。"

End If

WScript.Echo "祝日判定終了"

Set FileShell = Nothing

環境　windows7 Home Premium