Здравствуйте, подскажите пожалуйста как из пользователя вытащить фамилию имя отчество

Здравствуйте подскажите пожалуйста как из пользователя вытащить его атрибуты(допустим фамилию)

Написал, а потом понял, что ступил - ответ дал для почтовика Зе Бат :(. Прошу прощения...

[s]Исправлено: Prisoner, 18:37 26-08-2003[/s]

Dim User
Dim UserName
Dim UserDomain
UserDomain = "IUBT"
UserName = "kazakovc"
Set User = GetObject ("WinNT://" & UserDomain & "/" & UserName & ",user")
MsgBox User.FullName
:)

Спаибо блин большое

В дополнение, как отправить сообщение, аналогично net send ...?
есть ли такой метод у объекта winnt:// ?

On Error Resume Next
Set Shell = CreateObjext("Wscript.Shell")
RCV="name"
MSG="message"
SHELL.Run "Net Send" & Name & "" & MSG. 0. False
...где то так...