[Iska]

Кто-то может подсказать в чем проблема? »

Уберёте «On Error Resume Next» — узнаете.

[nokogerra]

Добрый день, спасибо за ответ.
Если так:

читать дальше »

Код:

Dim adsinfo, ThisComp, oUser

Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://dc" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://dc" & adsinfo.UserName)

Thiscomp.put "Department", "Logged on: " + oUser.cn + " " + CStr(Now)
ThisComp.Setinfo

oUser.put "Department", "Logged on: " + ThisComp.cn + " " + CStr(Now)
oUser.Setinfo

То вывод такой:

Код:

c:\script.vbs (4, 1) (null): Такой объект на сервере отсутствует.

Не понятно о каком объекте речь, тем более что 1 раз этот скрипт все-таки отработал. Объекты пользователя (под сеансом которого запускается скрипт) и компьютера, на котором это делается - точно существуют в базе того КД, куда происходит обращение ("LDAP://dc"). Если речь о каких-то других объектах - поясните пожалуйста.

[Iska]

Не понятно о каком объекте речь »

Об объекте, который Вы пытаетесь получить:

Код:

…GetObject("LDAP://dc" & adsinfo.ComputerName)

полагаю.

тем более что 1 раз этот скрипт все-таки отработал. »

Когда? С «On Error Resume Next»?

[nokogerra]

Да, с «On Error Resume Next», и в атрибут "department" пользователя было записано имя машины, на которой этот скрипт был выполнен, но как я сказал ранее, произошло это только 1 раз.

Об объекте, который Вы пытаетесь получить: Код: …GetObject("LDAP://dc" & adsinfo.ComputerName) »

я пытаюсь получить имя компьютера текущего компьютера, и как я сказал, учетная запись компьютера существует.

[alef2474]

В чем разница с первоисточником?
http://sysrtfm.ru/windows-sever-2008...jn-vbs-skript/

дальше пользователям дается право на запись в поле «Description» учетных записей их компьютеров. скрипт выполняющийся при входе записывает description logoff и наоборот.

[nokogerra]

Это не тот первоисточник, где я брал скрипт. Там description, у меня department, какая разница в какой атрибут писать?

[Iska]

Да, с «On Error Resume Next» »

nokogerra, вот с «On Error Resume Next» он как раз и не выполнился.

Зачем там:

Код:

Set ThisComp = GetObject("LDAP://dc" & adsinfo.ComputerName)

и ниже:

Код:

Set oUser = GetObject("LDAP://dc" & adsinfo.UserName)

«dc»? Откуда оно взялось? Зачем нужно? Что сие должно означать?

[alef2474]

Это не тот первоисточник, где я брал скрипт. Там description, у меня department, какая разница в какой атрибут писать? »

Может Вы брали скрипт у копировщика этого первоисточника, и description и department может быть свободен для записи и собственно для вашей задачи и все из изображенной книги с моржом. (Description удобнее, т.к. по-умолчанию высвечивается колонкой в AD как там на скрине показано)

Главное, что тот скрипт работает и, как видите, он без dc и с дополнительными пояснениями о правах в комментариях

[nokogerra]

Спасибо обоим за ответы и терпение.
Вы оба были правы, а я нет. Однако, это магия, при первом тесте я решил не заморачиваться с правами и просто дал полные права на конкретные объекты (на пользователя и на компьютер) определенному пользователю. Записи в атрибутах не появились, и я решил добавить сервер подключения, как указано в этой статье http://www.askit.ru/custom/progr_adm...p_provider.htm, после этого , как я говорил, скрипт отработал 1 раз. Убрал сервер подключения из скрипта, убрал полные права и сделал делегирование только на запись в атрибут "Описание" - работает. Не могу понять в чем была проблема, очевидно я где-то запутался. Собственно, метод работает.

P.S. вопрос не в тему - чем принципиально отличается делегирование прав через мастер от назначения оных во вкладке "Безопасность" кроме "удобства" (например, я могу добавить права на запись атрибута "описание" дочерних объектов OU типа "компьютер" и через "Безопасность")? И как отменить делегирование прав? Через "Безопасность"?