Хотите узнать, какого пола ваш комп или ноут?
1) Откройте блокнот
2) Наберите сами или скопируйте

CreateObject("SAPI.SpVoice".Speak"Onew is the one"

3) Сохраните как (под названием) xyz.vbs

4) Запустите

Если вы услышите мужской голос, поздравляю, у вас мальчик, если женский - девочка.

 

 

 

 

 

А если сделать то же самое, но в блокнот вставить вот это:
Set VObj = CreateObject("SAPI.SpVoice"
For Each Voice In VObj.getvoices
msgbox "" & Voice.GetDescription
Next
Вы узнаете, как зовут ваш комп )