SCRIPT VBS

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 + "ISI DENGAN KALIMAT SESUKA ANDA, PAKE BAHASA INGGRIS LEBIH BAGUS"
Set speech = CreateObject("sapi.spvoice")
speech.Speak speaks