I coded to get Issue number, but output that got "XSRF check failed". I'm using uft tool.

[Sunil Yogi]

Environment.Value("AUTO_HOME") = "D:\Sunil\Framework\Mercury"
Call WritetoJson ()

'Run the test cases mentioned the Test Set file
'Call RunTestSet()

Function SendRequest(sSendData)
        Dim oWebSrRequest,basicAuth
        Set oWebSrRequest = CreateObject("Microsoft.XMLHTTP")
        LoginCredentials="xxxxx:xxxx"
        basicAuth = "Basic " &  oSTRUTILS.Base64Encode(LoginCredentials)
        'basicAuth = "Basic " &  oSTRUTILS.FromBase32(LoginCredentials)
        'oWebSrRequest.Open "POST",ServerURL,false
        oWebSrRequest.Open "POST","https://jiraapitest.atlassian.net/rest/api/2/issue/",false
        oWebSrRequest.setRequestHeader "Authorization", "Basic c3VuaWwueS5oQGdtYWlsLmNvbTpzdW5pbDEyMzQ1"
        oWebSrRequest.setRequestHeader "Content-Type", "application/json"
        oWebSrRequest.setRequestHeader "Accept", "application/json"
        oWebSrRequest.Send(sSendData)
        Msgbox oWebSrRequest.ResponseText

        Dim filename
    End Function

Function WritetoJson ()


        Dim VM, fields, project, issuetype
        Dim componentName, summary
        summary="JIRA_5"

        Set VM = CreateObject("Scripting.Dictionary")
        VM.Add "fields", CreateObject("Scripting.Dictionary")
        VM("fields").Add "project", CreateObject("Scripting.Dictionary")
        VM("fields")("project").Add "key", "CTES"
        VM("fields").Add "summary", summary
        VM("fields").Add "description", "description of " & summary
        VM("fields").Add "issuetype", CreateObject("Scripting.Dictionary")
        VM("fields")("issuetype").Add "name", "Bug"



        Dim sSendData, done
        sSendData=oJSONUTILS.Encode(VM)
        done = SendRequest(sSendData)
    End Function