bikin komputer ngomong?

met malem sobat, sekedar iseng nich, aku punya trik biar komputer kita bisa ngomong, pengen tahu caranya? oke tonggal kopas aja kode dibawah ini:

 StrText=("Hi, my name is Microsoft Windows ")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
StrText=("What is your name?")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
name=inputbox("What
is your name?")
StrText=("Nice to meet you " &name)
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
StrText=("How are you feeling " &name)
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
feeling=inputbox("How are you feeling " &name)
StrText=("Why are you feeling " &feeling)
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
why=inputbox("Why are you feeling " &feeling)
StrText=("Gotta Go. Bye")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText


caranya adalah, buka notepad (windows +R) kopas kodenya, Save As dengan format .vbs
note: kalo bisa simpennya di dekstop aja biar gampang liatnya