АДОКоннектор = Новый COMОбъект("ADODB.Connection");
    АДОКоннектор.ConnectionString = "Provider=""ADsDSOObject""";
    АДОКоннектор.Open();
    
    ТекстЗапроса = "
    |SELECT AdsPath
    |FROM 'LDAP://" + ИмяДомена + "'
    |WHERE 
    |    objectCategory = 'user'
    |    and objectClass = 'person' 
    |    and SAMAccountName = '" + УчетнаяЗапись + "' 
    |ORDER BY sn
    |";
    
    ВыборкаАДО = АДОКоннектор.Execute(ТекстЗапроса);
    
    Если НЕ ВыборкаАДО.EOF Тогда
        ПутьОбъекта = ВыборкаАДО.Fields("AdsPath").Value;
        ОбъектАД = ПолучитьCOMОбъект(ПутьОбъекта);
        Сообщить(ОбъектАД.sAMAccountName);
        Сообщить(ОбъектАД.cn);
        Сообщить(ОбъектАД.department);
        Сообщить(ОбъектАД.manager);
        Сообщить(ОбъектАД.telephoneNumber);
        Сообщить(ОбъектАД.mail);
        Сообщить(ОбъектАД.title);
    КонецЕсли;