Вот только что наткнулся в сети случайно:
В каждый компьютер заложено кто он –мальчик или девочка! Не верите? Проведите тест:
1. Включите колонки и откройте Блокнот (Notepad)
2. Скопируйте или наберите в открывшемся Блокноте фразу:
CreateObject("SAPI.SpVoice").Speak"I am your computer I love you"
3. Сохраните этот файл как computer_sex.vbs (любое другое имя нельзя)
4. Запустите этот файл –двойной щелчок правой кнопкой мыши по нему.
5.Ваш компьютер заговорит!
Если его голос будет мужским – у вас мальчик! Если женский – вы редкий обладатель компьютера-девочки!
Какими бы юморными людьми не были производители, но все-таки мужское самолюбие никуда не спрятать – компьютеры девочки встречаются намного реже чем компьютеры-мальчики.
Что сказать? Я тут же проверил. Стало очень приятно – Девочка у меня. Девочка.

Покопался в сети и обнаружил способ узнать какое имя у этой девочки:
Открываем в блокноте файл, который голосом только что сказал, что любит Вас и вместо старой записи вставляем новую:
Set VObj = CreateObject("SAPI.SpVoice")
For Each Voice In VObj.getvoices
msgbox "" & Voice.GetDescription
Next
Просто сохраняем. Теперь после запуска этого файла на экране появляется окошко, в котором будет имя Вашего компа.
На XP ( на другом компе) почему-то не сработало, но думаю это из-за того, что у меня там система очень захламлена и сильно изрезана всякими опытами. А вот на Win7 сработало великолепно.
Новый комп у меня по имени - Анна.

И голосок приятный. Вот я теперь и думаю… - Когда на ощупь буду вставлять проводок в гнездо USB задней панели… нужно быть аккуратней и нежнее.
