Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проверка прав Active Directory / 5 сообщений из 5, страница 1 из 1
12.07.2018, 20:45
    #39673357
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка прав Active Directory
Есть пользователь с неким SID. Как проверить наличие у него какой-то политики? Скажем "Вход в качестве службы"

С учетом того, что политика может быть установлена самому пользователю, так и какой-то группе, в которую входит пользователь, так и не установлена вовсе, тогда нужно определить значение по умолчанию.

И вообще, чем характеризуется политика? Не именем же? Как я понимаю, должен быть некий идентификатор (GUID?) не зависящий от версии ОС.

По идее, мне нужно смотреть в сторону ADSI функций. Но пока не вижу что именно мне нужно и как их применять.

С уважением, Vasilisk
...
Рейтинг: 0 / 0
12.07.2018, 21:56
    #39673391
GunSmoker
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка прав Active Directory
Group Policy API? GetAppliedGPOList?
...
Рейтинг: 0 / 0
12.07.2018, 22:19
    #39673398
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка прав Active Directory
GunSmokerGetAppliedGPOListО! Спасибо. Оно. А я уже в LDAP забурился...

А не подскажешь еще функцию для создания своей кастомной групповой политики?
...
Рейтинг: 0 / 0
12.07.2018, 22:51
    #39673405
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка прав Active Directory
_Vasilisk_А не подскажешь еще функцию для создания своей кастомной групповой политики?Кажись нашел. IGroupPolicyObject.New

Завтра буду курить маны
...
Рейтинг: 0 / 0
13.07.2018, 20:52
    #39673899
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверка прав Active Directory
GunSmokerGetAppliedGPOList?А если возвращается 0 элементов?
Код: pascal
1.
2.
3.
LError := GetAppliedGPOList(0, nil, nil, CNULL_GUID, LList);
if LError <> ERROR_SUCCESS then
  RaiseLastOSError(LError);


LError = ERROR_SUCCESS;
LList = nil;
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проверка прав Active Directory / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]