Какого пола твой компьютер?
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