Вопрос по ADSI (периодически надо обновлять эту таблицу, чтобы добавлять в таблицу новых пользователей)

Вопрос такой.
Есть задача - в БД есть таблица, в которой надо поддерживать актуальные данные о пользователях домена (например, имя пользователя в домене и его почта), т.е. периодически надо обновлять эту таблицу, чтобы добавлять в таблицу новых пользователей.
Используя ADSI подключаюсь с помощью интерфейса LDAP к AD и без проблем заполняю таблицу в БД. Но проблемы возникают, когда надо периодически обновлять инфу в этой таблице. Каждый раз удалять из неё все записи и заносить данные снова - не решение, поскольку эта таблица участвует в связях с другими таблицами в БД и при её очистке эти связи похерятся. Поэтому нужно именно периодическое добавление новых пользователей, которых ещё нет в таблице, и обновление информации о тех пользователях, которые есть в таблице, но данные которых изменились (например, изменилось имя входа в домен, или не было почты, а потом появилась); и всё это должно происходить автоматически, без участия в этом процессе человека.
Так вот, проблема в том, как определять, есть ли данный пользователь домена в таблице или нет. Если бы имя пользователя не менялось, то можно смотреть по имени, но если имя поменялось, то механизм уже не работает и в таблицу добавится ещё одна запись с новым именем, хотя должна просто обновиться существующая.
Вопрос такой. Можно ли с помощью ADSI считывать какое-то уникальное для каждой учётной записи в домене значение какого-либо параметра (например тот же SID), чтобы его тоже хранить в той-же таблице и использовать именно его в качестве критерия вместо имени пользователя? И если можно, то как это сделать? Или может есть у кого другие предложения?

Спасибо.

у записей есть GUID, который по идее не должен меняться после смены логина, выглядит примерно так

d33fb7f8e89e38489fd732533edfb7ec

попробуй его хранить в БД, и при обновлении сверять не логины, а значение этого GUID, пример

Set connAD = CreateObject('adodb.connection')
connAD.Provider = 'ADsDSOObject'
connAD.Open 'ADSI'

Set usersAD = CreateObject('adodb.recordset')
usersAD.Open 'LDAP://...', connAD

Set objectuser = GetObject(usersAD(0))

MsgBox objectuser.FullName & vbCrLf & objectuser.Guid

usersAD.Close
connAD.Close

0

Да, спасибо, так всё получилось.
Хотя я конечно пробовал раньше использовать свойство GUID, но раньше у меня получалось, что оно одинаковое для всех учётных записей и поэтому я забросил эту идею. Но тогда я пробовал его получать используя интерфейс WinNT, а сейчас сделал это через LDAP и всё вроде бы пучком. Сейчас только попробую изменить имя уч.записи или др. свойста и убедиться, что guid не изменился.

Спасибо большое!

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

0