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

Уведомление

Icon
Error

Опции
К последнему сообщению К первому непрочитанному
Offline bsam  
#1 Оставлено : 5 марта 2013 г. 10:12:05(UTC)
bsam

Статус: Новичок

Группы: Участники
Зарегистрирован: 05.03.2013(UTC)
Сообщений: 7
Российская Федерация

Сказал(а) «Спасибо»: 1 раз
Здравствуйте! Стоит задача написать vbs для поиска сертификата по заданному полю. Но при отправке SOAP-запроса появляется следующая ошибка:
- WSDLReader:The operation requested in the Soap message with soapAction http://tempuri.org/RA/ac....GetCertificatesListMtoN isn't defined in the WSDL file. This may be because it is in the wrong namespace or has incorrect case HRESULT=0x80004005: Неопознанная ошибка

Вот код vbs:

Код:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set debug_file = objFSO.CreateTextFile("debug.txt", True)
debug_file.Writeline(Date & " " & Time & " === Register_SOAP started === ")
CN="Иванов Иван Иванович"
res = sendRequest("1","1","CertificateID","","1","False","Subject","2.5.4.3","1",CN,"1","0","False","1","1")
debug_file.WriteLine(Date & " " & Time & " result: " & res)
debug_file.Close

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("notepad debug.txt")


Function sendRequest(strStartIndex, strEndIndex, strSortCol, strSortSubCol, strSubColPos, strAscSort, strFilCol, strFilSubCol, strFilSubColPos, strFilVal, strRegReqSt, strSearchType, strFetchRecCount, strRecAff, strRecCou)

	strMessage = "<?xml version=""1.0"" encoding=""utf-8""?>"
	strMessage = strMessage + "<SOAP-ENV:Envelope"
	strMessage = strMessage + " xmlns:xsi =""http://www.w3.org/2001/XMLSchema-instance"""
	strMessage = strMessage + " xmlns:xsd =""http://www.w3.org/2001/XMLSchema"""
	strMessage = strMessage + " xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"">"
	strMessage = strMessage + "<SOAP-ENV:Body>"
	strMessage = strMessage + "<SOAPSDK1:GetCertificatesListMtoN"
	strMessage = strMessage + " xmlns:SOAPSDK1=""http://tempuri.org/RA/message/"">"
	strMessage = strMessage + "<StartingIndex xsi:type=""xsd:int"">"+strStartIndex+"</StartingIndex>"
	strMessage = strMessage + "<EndingIndex xsi:type=""xsd:int"">"+strEndIndex+"</EndingIndex>"
	strMessage = strMessage + "<SortColumn xsi:type=""xsd:string"">"+strSortCol+"</SortColumn>"
	strMessage = strMessage + "<SortSubColumn xsi:type=""xsd:string"">"+strSortSubCol+"</SortSubColumn>"
	strMessage = strMessage + "<SubColumnPos xsi:type=""xsd:int"">"+strSubColPos+"</SubColumnPos>"
	strMessage = strMessage + "<AscSort xsi:type=""xsd:boolean"">"+strAscSort+"</AscSort>"
	strMessage = strMessage + "<FilterColumn xsi:type=""xsd:string"">"+strFilCol+"</FilterColumn>"
	strMessage = strMessage + "<FilterSubColumn xsi:type=""xsd:string"">"+strFilSubCol+"</FilterSubColumn>"
	strMessage = strMessage + "<FilterSubColumnPos xsi:type=""xsd:int"">"+strFilSubColPos+"</FilterSubColumnPos>"
	strMessage = strMessage + "<FilterValue xsi:type=""xsd:string"">"+strFilVal+"</FilterValue>"
	strMessage = strMessage + "<RegReqState xsi:type=""xsd:int"">"+strRegReqSt+"</RegReqState>"
	strMessage = strMessage + "<SearchType xsi:type=""xsd:int"">"+strSearchType+"</SearchType>"
	strMessage = strMessage + "<FetchRecordsCount xsi:type=""xsd:boolean"">"+strFetchRecCount+"</FetchRecordsCount>"	
	strMessage = strMessage + "<RecordsAffected xsi:type=""xsd:int"">"+strRecAff+"</RecordsAffected>"
	strMessage = strMessage + "<RecordsCountInScope xsi:type=""xsd:int"">"+strRecCou+"</RecordsCountInScope>"
	strMessage = strMessage + "</SOAPSDK1:GetCertificatesListMtoN>"
	strMessage = strMessage + "</SOAP-ENV:Body>"
	strMessage = strMessage + "</SOAP-ENV:Envelope>">"
	debug_file.WriteLine(Date & " " & Time & " request: " & strMessage)

	Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
	xmlhttp.open "POST", "https://****-ra/RA/RA.asp", False
	xmlhttp.setRequestHeader "Host", " amur-ra"
	xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
	xmlhttp.setRequestHeader "Content-Length", CStr(Len(strMessage))
	xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/RA/action/CertView.GetCertificatesListMtoN"
	xmlhttp.SetOption 3, ""
	xmlhttp.send strMessage

	strMessage = xmlhttp.responseText
	Set xmlDoc = CreateObject("MSXML2.DOMDocument")
	xmlDoc.LoadXml strMessage

	If xmlDoc.parseError.errorCode Then
		Err.Raise &H8000FF01, "Error: " & xmlDoc.parseError.srcText
	End If

	sendRequest = strMessage

End Function


Я так понимаю не срабатывает SoapAction "http://tempuri.org/RA/action/CertView.GetCertificatesListMtoN". В чем может быть причина?
Offline Kirill Sobolev  
#2 Оставлено : 5 марта 2013 г. 10:51:00(UTC)
Кирилл Соболев

Статус: Сотрудник

Группы: Участники
Зарегистрирован: 25.12.2007(UTC)
Сообщений: 1,733
Мужчина
Откуда: КРИПТО-ПРО

Поблагодарили: 177 раз в 168 постах
Например, в отсутствии клиентского сертификата, который требуется при обращении к RA.asp.
Техническую поддержку оказываем тут
Наша база знаний
Offline bsam  
#3 Оставлено : 6 марта 2013 г. 4:59:47(UTC)
bsam

Статус: Новичок

Группы: Участники
Зарегистрирован: 05.03.2013(UTC)
Сообщений: 7
Российская Федерация

Сказал(а) «Спасибо»: 1 раз
Цитата:
Например, в отсутствии клиентского сертификата, который требуется при обращении к RA.asp.


В хранилище установлен только один сертификат.
Код:
xmlhttp.SetOption 3, ""

Если указать пустую строку ("") используется значение, первый сертификат в хранилище (который также является значением по умолчанию).

Проблема в чем то другом, другой vbs с методом CreateRequestByAdmin выполняется, так что не в сертификате дело
Offline Kirill Sobolev  
#4 Оставлено : 6 марта 2013 г. 9:26:06(UTC)
Кирилл Соболев

Статус: Сотрудник

Группы: Участники
Зарегистрирован: 25.12.2007(UTC)
Сообщений: 1,733
Мужчина
Откуда: КРИПТО-ПРО

Поблагодарили: 177 раз в 168 постах
Цитата:
strMessage = strMessage + "<RegReqState xsi:type=""xsd:int"">"+strRegReqSt+"</RegReqState>"

Должен быть CertState, RegReqState это для запросов на регистрацию.
Техническую поддержку оказываем тут
Наша база знаний
thanks 1 пользователь поблагодарил Кирилл Соболев за этот пост.
bsam оставлено 06.03.2013(UTC)
Offline bsam  
#5 Оставлено : 6 марта 2013 г. 9:59:36(UTC)
bsam

Статус: Новичок

Группы: Участники
Зарегистрирован: 05.03.2013(UTC)
Сообщений: 7
Российская Федерация

Сказал(а) «Спасибо»: 1 раз
Большое спасибо! Ошибка была там где совсем не предполагал
RSS Лента  Atom Лента
Пользователи, просматривающие эту тему
Guest
Быстрый переход  
Вы не можете создавать новые темы в этом форуме.
Вы не можете отвечать в этом форуме.
Вы не можете удалять Ваши сообщения в этом форуме.
Вы не можете редактировать Ваши сообщения в этом форуме.
Вы не можете создавать опросы в этом форуме.
Вы не можете голосовать в этом форуме.