Dim speaks, speech, salam , username
username = CreateObject("WScript.Network").Username
If Hour(Time) < 12 Then
salam = "Good morning"
ElseIf Hour(Time) < 20 Then
salam = "Good afternoon"
Else
salam = "Good evening"
End If

speaks = salam + "Idont woory be happy to morrow and never"
Set speech = CreateObject("sapi.spvoice")
speech.Speak speaks