:: Visual Foxpro, Foxpro for DOS
Re: Прошу немного помочь со сквозной аутентификацией пользователей через LDAP, Active Directiry
Sergeynizamov
Автор

Сообщений: 73
Дата регистрации: 21.09.2018
pasha_usue
cFields = cFields + ", memberof"
Не проверял.
ЧЕЛОВЕЧЕСКОЕ БОЛЬШОЕ СПАСИБО ВАМ
Ratings: 0 negative/0 positive
Re: Прошу немного помочь со сквозной аутентификацией пользователей через LDAP, Active Directiry
ssa

Сообщений: 12999
Откуда: Москва
Дата регистрации: 23.03.2005
Lparameters lcProperty as String, lcWinLogin as String
Local lcRetVal As String, loUser As Object
lcRetVal = ''
lcProperty = Iif(Empty(lcProperty) Or Type('lcProperty') != 'C', '', Upper(lcProperty))
lcWinLogin = Evl(lcWinLogin, Getenv("USERNAME"))
If Inlist(lcProperty, 'FULLNAME', 'GUID', 'GROUPS', 'SID')
Try
loUser = Getobject('WinNT://'+Getenv("USERDOMAIN")+'/'+lcWinLogin)
Do Case
Case lcProperty = 'FULLNAME'
lcRetVal = loUser.FullName
Case lcProperty = 'GUID'
lcRetVal = loUser.guid
Case lcProperty = 'GROUPS'
For Each loGroup In loUser.Groups
lcRetVal = lcRetVal + Iif(Empty(lcRetVal), '', ';') + loGroup.Name
Next
Case lcProperty = 'SID'
lcRetVal = loUser.Get("objectSID")
Endcase
Catch
Endtry
Endif
Release loUser
Return Trim(lcRetVal)
Примеры использования:
?getaduserinfo('SID')
?getaduserinfo('GUID')
?getaduserinfo('FULLNAME')
?getaduserinfo('GROUPS')

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


------------------
Лень - это неосознанная мудрость.




Исправлено 1 раз(а). Последнее : ssa, 27.02.19 10:50
Ratings: 0 negative/0 positive
Re: Прошу немного помочь со сквозной аутентификацией пользователей через LDAP, Active Directiry
Sergeynizamov
Автор

Сообщений: 73
Дата регистрации: 21.09.2018
Не подскажите еще не много!
по пробую объяснить: Смотрите! если есть группа_1, в которую входит группа_2!
примерно так должно состав групп: группа_1\группа_2!
На данный момент у меня находит группу №1, а вторую не находит, то что она внутри ее!
Если не совсем понятно, то попробую еще раз объяснить!
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 12 Владимир Максимов Guest (Гостей: 10)

© 2000-2024 Fox Club 
Яндекс.Метрика