Где наткнулась, не помню. Хотите определить пол вашего компьютера? Проделайте нехитрые манипуляции.

1) Откройте блокнот

2) Наберите сами или скопируйте
CreateObject("SAPI.SpVoice").Speak"I love you"

3) Сохраните как computer_sex.vbs

4) Запустите файл.

Если вы услышите мужской голос, поздравляю, у вас пацан, если женский - девочка.
У меня мальчик. Брутальный такой. И зовут его Сэм. Имя узнать можно тем же путем, только в блокнот вставляем вот это текст: Set VObj = CreateObject("SAPI.SpVoice")
For Each Voice In VObj.getvoices
msgbox "" & Voice.GetDescription
Next

Сохраняем под тем же именем, запускаем и читаем в окошке имя. Кстати, не пойму, Microsoft - это фамилия моего Сэма?