Talking clock in VBScript.

'TalkingClock.vbs
'To Run type in a command prompt
'cscript C:\Folder\TalkingClock.vbs
'Press Ctrl + C to stop
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