зачитать объекты AD
Мне нужно в Delphi зачитать объекты AD с определенным набором атрибутов. Когда брать простые атрибуты типа Name, Mail, OU, и т.д. проблем никаких - VarToStr - и все ок. Но я столкнулся с серьезной проблемой. Часть атрибутов в запросе более сложных форматов, например Array of Variant (с этим я разобрался) и Dispatch (вот этот никак не могу осилить) как его распарсить в Delphi и получить конкретное стороковое значение.
Работаю через ADOQuery. Запрос простой, выглядит так:
SELECT
objectClass
,objectCategory
,objectGUID
,objectSid
,cn
,ou
,whenCreated
,whenChanged
,Name
,distinguishedName
,ADsPath
,description
,sAMAccountName
,userPrincipalName
,mail
,otherMailbox
,proxyAddresses
,dNSHostName
,operatingSystem
,operatingSystemVersion
,operatingSystemServicePack
,pwdLastSet
,badPwdCount
,badPasswordTime
,localPolicyFlags
,accountExpires
,lastLogoff
,lastLogon
,logonCount
FROM
'LDAP://DC=sidomain,DC=local'
WHERE objectClass='user' or objectClass='computer'
Подскажите, плиз, как получить значение атрибута, например pwdLastSet.
Спасибо.
|