Latest News

the latest news from our team

eFORMz API: POST of XML data to an Accessible Queue

For a comprehensive resource, consult the following: eFORMz API Management (Developer Resources) [Web Services]

eFORMz can be called as a web service. We loosely refer to eFORMz calling itself as the eFORMz API (Application Programming Interface). For more details, view the following posts:

eFORMz API (Called as a Web Service)

eFORMz API URL Parameters

eFORMz API .NET Web Service Call

VBScript sample: POST of XML data to an Accessible Queue

Below, there’s a standalone VBScript example of calling eFORMz API, specifically the POST of XML data to an Accessible Queue. This example includes the creation of the XML data using objects in place of the problematic strings.Replacing the text1 line with:

set text1 = xdoc.createTextNode("TITLE & stuff") 

Yields the following XML data:

TITLE & stuffNAME

Example

option explicit
 'On Error Resume Next
 Function CallWebService(URL, ConfigurationName, QueueName, NameTemplate, strRequest)
     dim strUrl
     dim http
     dim Cfg
     dim Queue
     dim Name
 Cfg = "&ConfigurationName=" & ConfigurationName Queue = "&QueueName=" + QueueName Name = "&NameTemplate=" + NameTemplate Const EFZAPI = "/servlet/com.minisoft.AppServer.AppServer?APP=com.minisoft.eformz.eFORMzApp" Const DIRECTOR = "&director&Host=localhost&Port=9996&User=minisoft&Password=password" Const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056 strUrl = URL + EFZAPI + DIRECTOR + Cfg + Queue + Name set http=CreateObject("MSXML2.ServerXMLHTTP.3.0") http.SetOption(2) = SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS http.open "POST",strUrl,false http.setRequestHeader "Content-Type","text/xml" http.send strRequest If http.Status = 200 Then     'WScript.Echo "STATUS : " & http.status     'WScript.Echo "RESPONSE : " & http.responseText else     WScript.Echo "STATUS : " & http.status     WScript.Echo "RESPONSE : " & http.responseText End If
 End Function
 Function CreateXML()
     dim xdoc
     dim root
     dim title
     dim name
     dim text1
     dim text2
 set xdoc = CreateObject("MSXML2.DOMDocument") set root = xdoc.appendChild(xdoc.CreateElement("data")) set title = root.appendChild(xdoc.createElement("title")) set text1 = xdoc.createTextNode("TITLE") title.appendChild text1 set name = root.appendChild(xdoc.createElement("name")) set text2 = xdoc.createTextNode("NAME") name.appendChild text2 CreateXML = xdoc.xml
 End Function

 dim URL
 dim ConfigurationName
 dim QueueName
 dim NameTemplate
 dim strRequest

 URL = "https://localhost:8000"
 ConfigurationName = "accessible.cfg"
 QueueName = "Accessible"
 NameTemplate = "data.xml"
 strRequest = CreateXML()
 CallWebService URL, ConfigurationName, QueueName, NameTemplate, strRequest 

Leave a Reply

Your email address will not be published. Required fields are marked *