Skip to content

Instantly share code, notes, and snippets.

@sgpopov
Created February 23, 2016 09:19
Windows: announce the time every hour
Dim speaks, speech
speaks = "It's " & hour(time) & " o'clock"
Set speech = CreateObject("sapi.spvoice")
speech.Speak speaks
@sgpopov
Copy link
Author

sgpopov commented Feb 23, 2016

  1. Type schedule tasks in search and click on the schedule tasks result, to open the Task Scheduler.
  2. Under Action, select Create Task. Give the task a name (e.g. SpeakTime).
  3. Set the Trigger parameters as shown in the image.
    • One time – Start date & time
    • Repeat task every 1 hour
    • Duration – Indefinitely
  4. Under Actions, click New button. The new action box will open. Select the action "Start a program" and browse to the vbs file to set the path.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment