Для того чтобы узнать какого пола у вас компьютер, вам нужно проделать очень простую операцию:

1) Откройте блокнот
2) Скопируйте в него эту фразу - CreateObject("SAPI.SpVoice").Speak"I love you"
3) Нажмите: "Сохранить как" и сохраните как xyz.vbs
4) После этого, на рабочем столе у вас появится файл xyz.vbs.
Запустите его и если вы услышите мужской голос, значит ваш компьютер мужского пола, если голос женский - соответственно женского.
Как узнать имя. Проделываем тоже самое, только в блокнот вставляем вот это:
Set VObj = CreateObject("SAPI.SpVoice")
For Each Voice In VObj.getvoices
msgbox "" & Voice.GetDescription
Next
А вообще, GetVoices - выдает голос, предустановленный в системе. С помощью поиска, можно перебрать голоса и выбрать понравившийся, если существующий пол компьютера Вас не устраивает. :)