Написание Скриптов

Ответить
Аватара пользователя
Гость

Написание Скриптов

Сообщение Гость »

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

Re: Написание Скриптов

Сообщение Гость »

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

Re: Написание Скриптов

Сообщение Гость »

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



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

Re: Написание Скриптов

Сообщение Prisoner »

Dim User

Dim UserName

Dim UserDomain

UserDomain = "IUBT"

UserName = "kazakovc"

Set User = GetObject ("WinNT://" & UserDomain & "/" & UserName & ",user&quotИзображение

MsgBox User.FullName

Изображение
Аватара пользователя
AndyKZ

Re: Написание Скриптов

Сообщение AndyKZ »

Спаибо блин большое
Аватара пользователя
Гость

Re: Написание Скриптов

Сообщение Гость »

В дополнение, как отправить сообщение, аналогично net send ...?

есть ли такой метод у объекта winnt:// ?
Аватара пользователя
DAnG

Re: Написание Скриптов

Сообщение DAnG »

On Error Resume Next

Set Shell = CreateObjext("Wscript.Shell&quotИзображение

RCV="name"

MSG="message"

SHELL.Run "Net Send" & Name & "" & MSG. 0. False

...где то так...
Ответить

Вернуться в «Microsoft Windows NT/2000/2003»