Mantis Bug Tracker - Forums

Code: Select all

Function GetDefect(Byval sLoginName, ByVal sPassword, ByVal issue_id)
  'On Error Resume Next

  Dim    SoapServer
  Dim    SoapMessage
  Dim    xmlhttp

Logger " GetDefect ",  " BEGIN "

       SoapServer = "http://dmethode/mantis/api/soap/mantisconnect.php"
       SoapMessage ="<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'> <soap:Body> <GetDefect xmlns='http://dmethode/mantis/api/soap/mantisconnect.php/mc_issue_get'>           <username>" & sLoginName & "</username>          <password>" & sPassword & "</password>     <issue_id>" & issue_id & "</issue_id></GetDefect></soap:Body></soap:Envelope>"

       set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")

       xmlhttp.open "POST", SoapServer, False
       xmlhttp.setRequestHeader "Man", POST & " " & SoapServer & " HTTP/1.1"
       xmlhttp.setRequestHeader "MessageType", "CALL"
       xmlhttp.setRequestHeader "Content-Type", "text/xml"
       xmlhttp.send(SoapMessage)

       Logger " GetDefect status", xmlhttp.status
       Logger " GetDefect statusText", xmlhttp.statusText
       Logger " GetDefect responseText", xmlhttp.responseText

       set xmlhttp = nothing

Logger " GetDefect ",  " END "

End function