Play windows start up tone and covey a message ...

Set objVoice = CreateObject("SAPI.SpVoice")

Set objFile = CreateObject("SAPI.SpFileStream.1")

objFile.Open "Windows XP Startup.wav"

objVoice.Speakstream objFile

Wscript.Echo "your message here"

Save it as Learnfromzero.vbs