Ключевое слово в защите информации
ключевое слово
в защите информации
Получить ГОСТ TLS-сертификат для домена (SSL-сертификат)
Добро пожаловать, Гость! Чтобы использовать все возможности Вход. Новые регистрации запрещены.

Уведомление

Icon
Error

2 Страницы<12
Опции
К последнему сообщению К первому непрочитанному
Offline SuslegStyle  
#11 Оставлено : 30 ноября 2012 г. 13:33:37(UTC)
SuslegStyle

Статус: Активный участник

Группы: Участники
Зарегистрирован: 23.08.2010(UTC)
Сообщений: 74
Откуда: Омск

Сказал(а) «Спасибо»: 2 раз
Не получается никак вызвать эту функцию. Возвращается ошибка - несоответствие типа.
Список параметров функции посмотрел в документации, в руководстве программиста. Делаю вот так.

Код:

Dim list, RowsCount, RowsAffected
Dim Utils: Set Utils = Server.CreateObject("WebReg.Utils")
list = Utils.GetCertificatesListMtoN
(1,                                      'StartingIndexex Сказано должен быть больше или равен 1.
 1,                                      'EndingIndex Должен быть больше или равен  StartIndex
 "CertificateID",                   'SortColumn. Пробовал значения "" и vbNullString, так как сортировка не нужна, результат должен быть 1.
 "OID.2.5.4.10",                   'SortSubColumn. Мне это поле не нужно, но перепробовал значения "", vbNullString, "2.5.4.10"
 1,                                      'SubColumnPos. По идее это значение должно игнорироваться.
 FALSE,                               'AscSort. Порядок сортировки по убыванию.
 "SerialNumber",                  'FilterColumn.
 "OID.2.5.4.10",                   'FilterSubColumn. Так как FilterColumn не "Subject", то значение должно игнорироваться. На вякий случай пробовал значения "", vbNullString, "2.5.4.10"
 1,                                      'FilterSubColumnPos. По идее это значение должно игнорироваться.
 Certificate.SerialNumber,     'Серийный номер сертификата. Certificate это "CAPICOM.Certificate" объект. Серийный номер проверял, там действительно то что нужно лежит.
 1,                                       'CertState. Значение Cert_Valid
 1,                                       'SearchType. значение должно игнорироваться.
 FALSE,                                'FetchRecordsCount. Пробовал TRUE и FALSE
 RowsAffected, 
 RowsCount)
Offline SuslegStyle  
#12 Оставлено : 3 декабря 2012 г. 12:31:05(UTC)
SuslegStyle

Статус: Активный участник

Группы: Участники
Зарегистрирован: 23.08.2010(UTC)
Сообщений: 74
Откуда: Омск

Сказал(а) «Спасибо»: 2 раз
Разобрался. Заработало когда каждый параметр стал приводить к требуемому типу.
Код:

Utils.GetCertificatesListMtoN(CLng(1), CLng(1), CStr("CertificateID"), CStr("2.5.4.10"), Clng(1), CBool(FALSE), CStr("SerialNumber"), CStr("2.5.4.10"), Clng(1), CStr(Certificate.SerialNumber), CLng(1), CLng(1), CBool(FALSE), CLng(RowsAffected), CLng(RowsCount))
RSS Лента  Atom Лента
Пользователи, просматривающие эту тему
Guest
2 Страницы<12
Быстрый переход  
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.