VBscriptループ - 15分ごとに時刻を教えてください

Question

ファイルをダブルクリックして、Windowsに口頭で15分ごとに通知します。 （私は、プロセスを殺すまで）

私は時間に、毎時間の時間を告げるVBScriptのために、このチュートリアルを見つけた： https://www.nextofwindows.com/windows-trick-how-to-make-your-computer-to-speak-out-time-at-every-hour

を、私は、Windowsのスケジューラは、私の目的のためにして作業することができませんでした（ダブルクリックして15分おきに実行するだけです）、正直なところ、スクリプト自体に15分間隔のループがプログラムされていることが必要です。 （おそらくDo/WhileループとSleep()を使用して？）

もう一つの問題：

Dim speaks, speech 
speaks = “It is ” & hour(time) & minute(time) 
Set speech = CreateObject(“sapi.spvoice”) 
speech.Speak speaks 

しかし、それは発表：

私は、Windowsが同様に分を発表するだろうように、分変数を追加してみましたこのように奇妙な形式の時間。たとえば、現在は午前5時1分です。スクリプトを実行すると、Windowsでは「これは501です」と表示されます。なぜそれは5:01を50プラス1と解釈するのですか？以前、私が4:32でテストしたところ、それは「四百三十二」と言いました。私はちょうど通常の12時間の方法で時間を述べたいと思います。

Answer 1

これは5秒です。したがって60 x 15 = 900.

個々の数字として解析するには、数字の間にスペースが必要です。

Set speech = CreateObject("sapi.spvoice") 
Do 
    If Hour(Now) < 12 then 
     Var = Hour(Now) & " AM" 
    else 
     Var = Hour(Now) - 12 & " PM" 
    End If 

    speech.Speak Var & " and " & Minute(Now) & " minutes and " & Second(Now) & " seconds" 
    wscript.sleep 5 
Loop