VBscriptでitunesを毎日指定時間に動かすため､ﾀｽｸｽｹｼﾞｭｰﾗに登録していますが『行：2､文字：1､"iTunes.Application"というｵﾌﾞｼﾞｪｸﾄを作成できませんでした､ｿｰｽ：Wscript.CreateObject』と表示され､実行されません｡
解決方法の記載をお願い致します｡
状況：VBscriptをｸﾘｯｸすれば正常に動きます｡ﾀｽｸｽｹｼﾞｭｰﾗは指定時間に起動されています｡時々正常に動作します(理由不明)｡ﾀｽｸを実行するためにｽﾘｰﾌﾟを解除｡開始(ｵﾌﾟｼﾞｮﾝ)指定済み｡
環境：Windows10､itunes最新
Dim it
Set it = WScript.CreateObject("iTunes.Application")
if Weekday(Now) = 2 or Weekday(Now) = 4 or Weekday(Now) = 6 then
Set pList =it.LibrarySource.Playlists.ItemByName("月水金の朝")
end if
if Weekday(Now) = 3 or Weekday(Now) = 5 then
Set pList =it.LibrarySource.Playlists.ItemByName("火木の朝")
end if
if Weekday(Now) = 7 or Weekday(Now) = 1 then
Set pList =it.LibrarySource.Playlists.ItemByName("土日の朝")
end if
pList.Shuffle = 1
pList.PlayFirstTrack()
WScript.sleep 5000
it.SoundVolume = 50
