Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2, свеженьких 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Получить атрибуты файла (нетиповые)          
Inkognito Подменю пользователя
сообщение 28.09.20, 12:02
Сообщение #1

Ветеран
*******
Группа: Пользователи
Сообщений: 939
Из: Україна
Спасибо сказали: 446 раз
Рейтинг: 13.5

Обычные формы, УТП. Есть ключи ЭЦП (АЦСК Украина) в виде файов (*.cer) Их много в каталогах и подкаталогах на диске по разным предприятиям.
Бухгалтер хочет оперативно видеть, какие ключи заканчиваются. С визуалкой и оповещеним проблем нет.
Вопрос: как получить свойства файлов сертификатов (желательно все списком, потом разберемся)?

29a Подменю пользователя
сообщение 28.09.20, 15:10
Сообщение #2

Говорящий
***
Группа: Пользователи
Сообщений: 94
Спасибо сказали: 31 раз
Рейтинг: 33.3

Inkognito @ Сегодня, 13:02 * ,
Как вариант, если сертификаты установлены и видны в certmgr.msc (можно установить через контекстное меню сертификата), то с помощью PowerShell командой Get-ChildItem -Path cert: -Recurse -ExpiringInDays 365 можно получить сертификаты дата которых заканчивается через определенное количество дней (в данном случае 365) перебрать строки, по имени сертификационного центра отобрать нужные.



Сообщение отредактировал Vofka - 28.09.20, 19:32

Спасибо сказали: Inkognito,

Petre Подменю пользователя
сообщение 28.09.20, 15:48
Сообщение #3

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2905
Из: Київ, Україна
Спасибо сказали: 1147 раз
Рейтинг: 1228.9

Inkognito @ Today, 12:02 * ,
Это не атрибуты файла, а данные сертификата формата x.509.
По сути, необходимо прочитать содержимое файла сертификата и разложить из нотации ASN.1 в понятную информацию.


Signature
Допрацьовую:
- "Бухгалтерія для України 2.1";
- "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".

Спасибо сказали: Inkognito,

Inkognito Подменю пользователя
сообщение 07.09.21, 12:57
Сообщение #4

Ветеран
*******
Группа: Пользователи
Сообщений: 939
Из: Україна
Спасибо сказали: 446 раз
Рейтинг: 13.5

Решение:
ДиалогФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    ДиалогФайла.Фильтр = НСтр("ru='Файл сертификата ЭЦП(*.cer)|*.cer|Файл сертификата ЭЦП(*.crt)|*.crt';uk='Файл сертифікату ЕЦП(*.cer)|*.cer|Файл сертифікату ЕЦП(*.crt)|*.crt'");
    ДиалогФайла.МножественныйВыбор = Ложь;
    
    Если ДиалогФайла.Выбрать() Тогда    
        ФайлДД = Новый ДвоичныеДанные(ДиалогФайла.ПолноеИмяФайла);
        
        Сертификат = Новый СертификатКриптографии(ФайлДД);
...
КонецЕсли;

Спасибо сказали: andr_andrey, Vofka,

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 18.04.24, 8:43
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!