Передача XML файла на Web-service

[LAYENS]

Здравствуйте, уважаемые форумчане. Возникла задача передать xml файл на определенный web-service. прошу помочь с кодом агента. Ниже код:

Спойлер

Sub Initialize
On Error GoTo Err1
Dim xmlhttp As Variant
Dim DOMDocument As Variant
Dim soapEnvelope As String
Dim webService As String
Dim username As String
Dim password As String
Dim strxml As String

Set xmlhttp = CreateObject("Msxml2.XMLHTTP")
Set DOMDocument = CreateObject("MSXML2.DOMDocument")

webService = "ссылка на web-service"
Print "Чек"
soapEnvelope ={<?xml version='1.0' encoding='WINDOWS-1251'?>}
soapEnvelope =soapEnvelope & {<soap:Header/>}
soapEnvelope =soapEnvelope & {<soap:Body>}
soapEnvelope =soapEnvelope & {<organization>}
soapEnvelope =soapEnvelope & {<people>}
soapEnvelope =soapEnvelope & {<key>kluch034564</key>}
soapEnvelope =soapEnvelope & {<name>Петров Петр Васильевич</name>}
soapEnvelope =soapEnvelope & {<email>Petrov@petr.ru</email>}
soapEnvelope =soapEnvelope & {</people>}
soapEnvelope =soapEnvelope & {</organization>}
soapEnvelope =soapEnvelope & {</soap:Body>}
soapEnvelope =soapEnvelope & {</soap:Envelope>}
Print "Вторая проверка"
DOMDocument.loadXML(soapEnvelope)
Call xmlhttp.open("POST", webService, False)
Call xmlhttp.setRequestHeader("Content-Type", "application/soap+xml;charset=UTF-8")


Exit Sub
Err1:
MsgBox "UPLOADFILE_ERRORS: Error" + Error$ + " on str " + CStr(Erl)
Print "<br><br>UPLOADFILE_ERRORS: Error" + Error$ + " on str " + CStr(Erl)
End Sub

 

[lmike]

Set DOMDocument = CreateObject("MSXML2.DOMDocument")

ну чтож за беда-то такая..., что ни вопрос - юзают КОМ, ну нафига? Как потом ошибки обрабатывать?
в этом MSXML2 100500 вариантов ошибок... и никакого сервиса для вменяемого парсинга
java и весь разговор

Ссылка скрыта от гостей

можно сделать простенький рапер, но не вижу смысла, все-равно агент вызываете