Показать полную графическую версию : Написание Скриптов
Здравствуйте, подскажите пожалуйста как из пользователя вытащить фамилию имя отчество
Здравствуйте подскажите пожалуйста как из пользователя вытащить его атрибуты(допустим фамилию)
Prisoner
26-08-2003, 17:32
Написал, а потом понял, что ступил - ответ дал для почтовика Зе Бат :(. Прошу прощения...
Исправлено: Prisoner, 18:37 26-08-2003
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
...где то так...
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.