Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
set xml = CreateObject("Chilkat_9_5_0.Xml")
xml.Tag = "soapenv:Envelope"
success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
success = xml.AddAttribute("xmlns:ser","service.checkpoint.rs")
xml.UpdateChildContent"soapenv:Header",""
xml.UpdateChildContentInt"soapenv:Body|ser:VratiSubjektSkraceniPrikaz|ser:subjekt_ID",1042
xml.UpdateChildContent"soapenv:Body|ser:VratiSubjektSkraceniPrikaz|ser:token","string"' In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required.
xml.EmitXmlDecl = 0
soapRequestBody = xml.GetXml()
endpoint = "https://service.checkpoint.rs/service.asmx"
soapAction = "service.checkpoint.rs/VratiSubjektSkraceniPrikaz"' For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"
contentType = "text/xml"set http = CreateObject("Chilkat_9_5_0.Http")
http.ClearHeaders
http.SetRequestHeader"Content-Type",contentType
http.SetRequestHeader"SOAPAction",soapAction
' resp is a Chilkat_9_5_0.HttpResponse
Set resp = http.PostXml(endpoint,soapRequestBody,"utf-8")
If (http.LastMethodSuccess = 0) Then
outFile.WriteLine(http.LastErrorText)
outFile.WriteLine("Failed to send SOAP request.")
WScript.Quit
End If' Get the XML response body.set responseXml = CreateObject("Chilkat_9_5_0.Xml")
success = resp.GetBodyXml(responseXml)
statusCode = resp.StatusCode
outFile.WriteLine("response status code: " & statusCode)
' If the status code does not indicate succcess, then show the response XML,
' which probably contains error information.If (statusCode <> 200) Then
outFile.WriteLine(responseXml.GetXml())
WScript.Quit
End If
outFile.WriteLine(responseXml.GetXml())
' Parse the successful SOAP response XML.' This is a sample of the response XML, but the namespace prefixes will be different.
' We can parse the result using "*" for the namespace prefixes (see below).
Subjekt_ID = responseXml.GetChildIntValue("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Subjekt_ID")
MBR = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:MBR")
PIB = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:PIB")
Datum_Osnivanja = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Datum_Osnivanja")
Datum_Brisanja = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Datum_Brisanja")
Naziv_skraceni = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Naziv_skraceni")
Naziv_pun = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Naziv_pun")
Sediste_mesto = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Sediste_mesto")
Sediste_opstina = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Sediste_opstina")
Sediste_region = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Sediste_region")
Sediste_drzava = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Sediste_drzava")
Sediste_ulica = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Sediste_ulica")
Sediste_postanski_broj = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Sediste_postanski_broj")
Status_APR = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Status_APR")
Status_NBS = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Status_NBS")
Status_CheckPoint = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Status_CheckPoint")
Pravna_Forma = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Pravna_Forma")
Delatnost_Sifra = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Delatnost_Sifra")
Delatnost_Region = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Delatnost_Region")
Delatnost_Naziv = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Delatnost_Naziv")
Poslednji_FI = responseXml.GetChildIntValue("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Poslednji_FI")
Velicina = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Velicina")
Insolventan = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Insolventan")
Pdv_Broj = responseXml.GetChildContent("*:Body|*:VratiSubjektSkraceniPrikazResponse|*:VratiSubjektSkraceniPrikazResult|*:Pdv_Broj")
outFile.Close