'Insert File To Fault
function insertFileToFault(dictionary)
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set stdout = fso.GetStandardStream(1)
    Set stderr = fso.GetStandardStream(2)
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = "http://omnidatabridge/api/Justin/insertArticleToFault"
    json = createJsonString(dictionary)
    objHTTP.Open "Post", URL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0"
    objHTTP.setRequestHeader "Content-Type", "application/json; charset=UTF-8"
    objHTTP.setRequestHeader "CharSet", "charset=UTF-8"
    objHTTP.setRequestHeader "Accept", "application/json"
    objHTTP.Send json
    If objHTTP.Status >= 400 And objHTTP.Status <= 599 Then
    MsgBox "Error Occurred : " & objHTTP.Status & " - " & objHTTP.statusText
    ffPostJSON = False
    End If
    SET insertFileToFault = createDict(objHTTP.ResponseText)
end function

'Add Parameters here
Dim test
Set dic = CreateObject("Scripting.Dictionary")
dic.Add "STOER_ID", "149049"
dic.Add "ART_NR", "21.99.0105"
dic.Add "Anzahl", "1"
dic.Add "UserID", "1093"
SET resolve = insertFileToFault(dic)