Для того, чтобы определить пол вашего компьютера:

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

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

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

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

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

P.S. Чтобы определить имя компьютера нужно сделать тоже самое, только в блокнот вставить:

Set VObj = CreateObject("SAPI.SpVoice")

For Each Voice In VObj.getvoices

msgbox "" & Voice.GetDescription

Next