По ФИО из AD взять login, AdsPath, ...

…

Однажды отдел кадров попросил выяснить, кто из «вновь прибывших» сотрудников еще не имеет доступа в сеть. Дали только ФИО всех интересуемых в XLS-файле.

Дело, собственно, знакомое, но условие было — вернуть тот же файл с указанием «хто еще не с нами».

Проблема в том, что ни разу не обращался к AD из Excel — только VBScript. Пришлось попробовать и эту часть бэйсика :-)

Получилось вот так:



Исходник скрипта здесь (рисунок несколько не соответствует... :-)).

Здесь в столбце D:

• 0 - не найдено соответствия displayName = ФИО;
• 1 - точное соответствие;
• > 1 - имеются полные тёзки.

Скрипт не привязан к домену, а потому универсален.