Написание Скриптов
-
Гость
Написание Скриптов
Здравствуйте, подскажите пожалуйста как из пользователя вытащить фамилию имя отчество
-
Гость
Re: Написание Скриптов
Здравствуйте подскажите пожалуйста как из пользователя вытащить его атрибуты(допустим фамилию)
-
Гость
Re: Написание Скриптов
Написал, а потом понял, что ступил - ответ дал для почтовика Зе Бат
. Прошу прощения...
[s]Исправлено: Prisoner, 18:37 26-08-2003[/s]
. Прошу прощения...[s]Исправлено: Prisoner, 18:37 26-08-2003[/s]
-
Prisoner
Re: Написание Скриптов
Dim User
Dim UserName
Dim UserDomain
UserDomain = "IUBT"
UserName = "kazakovc"
Set User = GetObject ("WinNT://" & UserDomain & "/" & UserName & ",user"
MsgBox User.FullName

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

MsgBox User.FullName

-
Гость
Re: Написание Скриптов
В дополнение, как отправить сообщение, аналогично net send ...?
есть ли такой метод у объекта winnt:// ?
есть ли такой метод у объекта winnt:// ?
-
DAnG
Re: Написание Скриптов
On Error Resume Next
Set Shell = CreateObjext("Wscript.Shell"
RCV="name"
MSG="message"
SHELL.Run "Net Send" & Name & "" & MSG. 0. False
...где то так...
Set Shell = CreateObjext("Wscript.Shell"

RCV="name"
MSG="message"
SHELL.Run "Net Send" & Name & "" & MSG. 0. False
...где то так...