Info Requested: SOAPClient Integration with JIRA

[Sayan]

Hi,

I am trying to create a JIRA using VBA. I am stuck at the creation step. Can anyone please guide me a bit on the same.

I have used the below sample code to create a JIRA. But I am stuck at the very last step while using the command createIssue.

Dim token As Variant
Dim newissue, updateissue As Variant
Dim issuemap As Variant

Dim b As Boolean

Dim SoapClient
Set SoapClient = CreateObject("MSSOAP.SoapClient30")
SoapClient.mssoapinit ("https://issuetracking.company.net/jira15/rpc/soap/jirasoapservice-v2?wsdl")
'token = SoapClient.LogIn("jirauser", "jira")

If Err <> 0 Then
wscript.echo "initialization failed " + Err.Description
End If

Dim new_xmlText, update_xmlText As String

new_xmlText = "<root>" & _
"<assignee>" & "USER" & "</assignee>" & _
"<project>" & "PROJECTNAME" & "</project>" & _
"<type>" & "Defect" & "</type>" & _
"<summary>" & "TestProject" & "</summary>" & _
"<priority>" & "High" & "</priority>" & _
"</root>"

Dim new_xmlDoc As New MSXML2.DOMDocument30

new_xmlDoc.async = False
new_xmlDoc.LoadXML (new_xmlText)
If (new_xmlDoc.parseError.ErrorCode <> 0) Then
Dim myErr
Set myErr = new_xmlDoc.parseError
MsgBox (myErr.reason)
GoTo MyEnd
Else
End If

Dim update_xmlDoc As New MSXML2.DOMDocument30

update_xmlDoc.async = False
update_xmlDoc.LoadXML (new_xmlText)
Dim new_XMLNodeList As MSXML2.IXMLDOMNodeList
Dim new_root As MSXML2.IXMLDOMElement
Set new_root = new_xmlDoc.DocumentElement
Set new_XMLNodeList = new_root.ChildNodes
Dim FieldValues(1 To 1) As MSXML2.IXMLDOMNodeList
Dim update_XMLNodeList As MSXML2.IXMLDOMNodeList
Dim update_root As MSXML2.IXMLDOMElement
Set update_root = update_xmlDoc.DocumentElement
Set update_XMLNodeList = update_root.ChildNodes
Set FieldValues(1) = update_XMLNodeList
Set updateissue = SoapClient.createIssue(token, update_XMLNodeList)

I get a runtime automation error at the last step

Can you please help me out by pointing out where I might have gone wrong? I have googled the stuff quite a bit but to no avail. Thanks.

[Sayan]