Как узнать, какого пола Ваш комп

[maintainer]

Может баян, но всё-таки:

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

У меня комп Сэм

З.ы. Работает только на виндовс, на семёрке вроде нет.

 

[RifleR]

Работает только на виндовс, на семёрке вроде нет.

а сімка це вже, типу, не віндовс. Так? В мене й на сімці все паше норм. Комп - Анна.

 

[eMkiLL]

+1 Сэм

 

[babaj]

Причём тут "как зовут компьютер"? Данный скрипт выводит имя установленного по умолчанию голосового движка.

Если не устанавливали Promt или ещё какой-нибудь Digalo, то будет Сэм или Анна с верятностью 50%:50%.

 

[Prorab]

О, у меня женсчина оказалась ) то-то у на с ней любофф-моркофф, понимаем друг друга с полуслова

 

[Kimi]

Мужик

 

[AndyRadist]

А где голос переключить можно? У меня мужик Sam, хотелось бы Анну послушать.
А вообще акцент зверский даже в английских словах.
А когда русские слова латиницей вводишь, вообще умора!

 

[chelavek]

Set VObj = CreateObject("SAPI.SpVoice")
For Each Voice In VObj.getvoices
msgbox "" & Voice.GetDescription
Next

у меня вылазит окошко в котором написано "Microsoft Sam"
значит Сем да ?

голос мужской

 

[masta]

chelavek, Да
А у меня Анна, на семерке все отлично работает

 

[maintainer]

Причём тут "как зовут компьютер"? Данный скрипт выводит имя установленного по умолчанию голосового движка.

Ни при чём, просто шутливое представление скрипта.

 

[Stas567]

На семёрке девочка Анна с США)