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

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

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

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

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

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

Завтра буду курить маны
...
Рейтинг: 0 / 0
Проверка прав Active Directory
    #39673899
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Проверка прав Active Directory
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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