Issue Sending SOAP messages (COM Error 80020009)

[Ragemonkey]

Hi all,

First post for a newbie..

I am trying to send an xml to an server but i kee getting error 80020009: the system cannot locate the resource specified. error source is msxml3.dll

I have used the example from ptrex

http://www.autoitscript.com/forum/index.ph...904&hl=soap

Here is the code i have:

expandcollapse popup

Dim $objHTTP 
Dim $strEnvelope
Dim $strReturn
Dim $objReturn
Dim $dblTax
Dim $strQuery
Dim $value

; Initialize COM error handler 
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

$objHTTP = ObjCreate("Microsoft.XMLHTTP")
$objReturn = ObjCreate("Msxml2.DOMdocument.3.0")

; Get the Soap message text file for the Ping
$strEnvelope = FileRead("C:\Documents and Settings\salvatore\Desktop\JohnCommings\SOAPBOX\test.txt")

; Set up to post to our b2b test enviroment server
$objHTTP.open ("post", "wgwprdpxy", False)




; Set a standard SOAP/ XML header for the content-type
$objHTTP.setRequestHeader ("Content-Type", "text/xml")

; Set a header for the method to be called
$objHTTP.setRequestHeader ("SOAPMethodName", "urn:myserver/soap:TaxCalculator#getsalestax")

ConsoleWrite("Content of the Soap envelope : "& @CR & $strEnvelope & @CR & @CR)

; Make the SOAP call
$objHTTP.send ($strEnvelope)

; Get the return envelope
$strReturn = $objHTTP.responseText

; ConsoleWrite("Debug : "& $strReturn & @CR & @CR)

; Load the return envelope into a DOM
$objReturn.loadXML ($strReturn)

ConsoleWrite("Return of the SOAP Msg : " & @CR & $objReturn.XML & @CR & @CR)

; Query the return envelope
$strQuery = "SOAP:Envelope/SOAP:Body/m:getsalestaxresponse/salestax"

$dblTax = $objReturn.selectSingleNode($strQuery)
$Soap = $objReturn.Text

MsgBox(0,"SOAP Response","Result : " & $Soap)

Func MyErrFunc()
  $HexNumber=hex($oMyError.number,8)
  Msgbox(0,"COM Test","We intercepted a COM Error !"       & @CRLF  & @CRLF & _
             "err.description is: " & @TAB & $oMyError.description  & @CRLF & _
             "err.windescription:"   & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "       & @TAB & $HexNumber              & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "   & @TAB & $oMyError.scriptline   & @CRLF & _
             "err.source is: "       & @TAB & $oMyError.source       & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile     & @CRLF & _
             "err.helpcontext is: " & @TAB & $oMyError.helpcontext _
            )
  SetError(1) ; to check for after this function returns
Endfunc

thanks for the help guys!!

[DaleHohm]

Your COM error handler is set up to give you a lot more information taht the error number. Please give more information (like the command that results in the error). You can also try DebugMode (see my sig).

Dale

[Ragemonkey]

Your COM error handler is set up to give you a lot more information taht the error number. Please give more information (like the command that results in the error). You can also try DebugMode (see my sig).

Dale

Hi DaleHohm,

thanks for replying!

This is information from the error box "COM Test"

We intercepted a COM error !

err.description is: The system cannot locate the resource specified.

err.number is: 80020009

err.lastdll is: 0

err.scriptline is: 33

err.source is: msxml3.dll

err.helpcontext is: 0

i copied the debug code in to my code but hasn't seem to of had any affect.

[DaleHohm]

For the DebugMode to work you must be running your script in SciTe (F5) -- are you?

By my counting, this is line 33... is that correct?

$objHTTP.send ($strEnvelope)

Dale

[Ragemonkey]

Dale,

Yep, i put #AutoIt3Wrapper_run_debug_mode=Y at line one and im running in SciTe via F5

and yes, $objHTTP.send ($strEnvelope) is at line 33

thanks.

Sam.

[DaleHohm]

A google search for

80020009 msxml3 send

will bring you many hits. Many suggest upgrading msxml for V4

see what you find

Dale