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
Добавлено (12.03.2011, 23:58)
---------------------------------------------
У меня ноут Анна и комп Сэм 
нехочу себе такой комп