1) Откройте блокнот
2) скопируйте и вставьте CreateObject("SAPI.SpVoice").Speak"I love you"
3) Сохраните как xyz.vbs
4) Запустите
Если вы услышите мужской голос, поздравляю, у вас мальчик, если женский - девочка

А еще можно узнать его/её имя
Нужно сделать тоже самое, только в блокнот вставить вот это:
Set VObj = CreateObject("SAPI.SpVoice")
For Each Voice In VObj.getvoices
msgbox "" & Voice.GetDescription
Next

У меня мужик по имени Сэм...