Лучший отвечающий
AD - как написать скрипт для записи текста в атрибут Description

Вопрос
-
суть вопроса такова, нужен скрипт который бы проверял наличие заполненности атрибута Description, если пусто то при авторизации пользователя на компьютере в домене выводил бы сообщение с двумя кнопками "да" или "нет". Если пользователь нажимает "да" , то происходит запись в атрибут Description слова "согласен".13 апреля 2016 г. 8:07
Ответы
-
Т.к. пользователь не имеет права на запись атрибута Description, то надо будет явно предоставить разрешение Write Description для SELF.
On Error Resume Next vbYes = 6 Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName Set objUser = GetObject("LDAP://" & _ strUser) description = objUser.Description If description = "" Then result = MsgBox ("Согласны или нет?", vbYesNo + vbQuestion, "Yes No Example") If result = vbYes Then objUser.Description = "согласен" objUser.SetInfo End If End If
- Изменено KazunEditor 13 апреля 2016 г. 8:32
- Помечено в качестве ответа Vector BCOModerator 16 апреля 2016 г. 6:36
13 апреля 2016 г. 8:31Отвечающий -
не ответит на этот вопрос, не мог ничего делать на компьютере. - Обратиться к разработчикам ПО, которые за отдельную плату реализуют данный функционал или купить ПО третьих фирм - http://www.fasttrackscript.com/.
Как назначить скрипт для ПОЛЬЗОВАТЕЛЯ ,не для комптьютера:
Assign user logon scripts - https://technet.microsoft.com/en-us/library/cc781361(v=ws.10).aspx
Logon Script Delay Group Policy Setting - http://blogs.technet.com/b/platformspfe/archive/2014/03/08/windows-8-1-logon-script-delay-group-policy-setting.aspx
- Предложено в качестве ответа Svolotch 15 апреля 2016 г. 13:49
- Помечено в качестве ответа Vector BCOModerator 16 апреля 2016 г. 6:36
13 апреля 2016 г. 10:16Отвечающий
Все ответы
-
Т.к. пользователь не имеет права на запись атрибута Description, то надо будет явно предоставить разрешение Write Description для SELF.
On Error Resume Next vbYes = 6 Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName Set objUser = GetObject("LDAP://" & _ strUser) description = objUser.Description If description = "" Then result = MsgBox ("Согласны или нет?", vbYesNo + vbQuestion, "Yes No Example") If result = vbYes Then objUser.Description = "согласен" objUser.SetInfo End If End If
- Изменено KazunEditor 13 апреля 2016 г. 8:32
- Помечено в качестве ответа Vector BCOModerator 16 апреля 2016 г. 6:36
13 апреля 2016 г. 8:31Отвечающий -
а в какие атрибуты пользователь имеет права записывать, кроме веб сайта?13 апреля 2016 г. 8:36
-
а в какие атрибуты пользователь имеет права записывать, кроме веб сайта?
Используйте dsacls или dsa.msc, чтобы определить в вашей среде, в какие атрибуты может писать пользователь.
dsacls "CN=Ttes,OU=UserM,DC=Contoso,DC=Com" - и смотрим SELF
Ps. Можно атрибут info попробовать.- Изменено KazunEditor 13 апреля 2016 г. 9:39
13 апреля 2016 г. 9:34Отвечающий -
а в какие атрибуты пользователь имеет права записывать, кроме веб сайта?
Используйте dsacls или dsa.msc, чтобы определить в вашей среде, в какие атрибуты может писать пользователь.
dsacls "CN=Ttes,OU=UserM,DC=Contoso,DC=Com" - и смотрим SELF
Ps. Можно атрибут info попробовать.
а подскажите пожалуйста, а можно дополнить скрипт, чтобы при его запуске пользователь пока не ответит на этот вопрос, не мог ничего делать на компьютере.
И как его можно добавить в автозапуск при старте компа, просто прописал его в сценарии входа, а он не выполняется.
13 апреля 2016 г. 9:45 -
не ответит на этот вопрос, не мог ничего делать на компьютере. - Обратиться к разработчикам ПО, которые за отдельную плату реализуют данный функционал или купить ПО третьих фирм - http://www.fasttrackscript.com/.
Как назначить скрипт для ПОЛЬЗОВАТЕЛЯ ,не для комптьютера:
Assign user logon scripts - https://technet.microsoft.com/en-us/library/cc781361(v=ws.10).aspx
Logon Script Delay Group Policy Setting - http://blogs.technet.com/b/platformspfe/archive/2014/03/08/windows-8-1-logon-script-delay-group-policy-setting.aspx
- Предложено в качестве ответа Svolotch 15 апреля 2016 г. 13:49
- Помечено в качестве ответа Vector BCOModerator 16 апреля 2016 г. 6:36
13 апреля 2016 г. 10:16Отвечающий -
Спасибо Вы очень помогли.15 апреля 2016 г. 11:24