(VBScript) SOAP Request to https://paycenter.piraeusbank.gr/services/tickets/issuer.asmx

Sends a SOAP Request to https://paycenter.piraeusbank.gr/services/tickets/issuer.asmx

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set http = CreateObject("Chilkat_9_5_0.Http")

set soapXml = CreateObject("Chilkat_9_5_0.Xml")

' Set the HTTP request's XML body to the following SOAP XML:
' <?xml version='1.0' encoding='UTF-8'?>
' <SOAP-ENV:Envelope SOAP-ENV:encodingStyle='http://schemas.xmlsoap.org/soap/encoding/' xmlns:SOAP-ENV='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:SOAP-ENC='http://schemas.xmlsoap.org/soap/encoding/'>
' <SOAP-ENV:Body>
' <IssueNewTicket xmlns="http://piraeusbank.gr/paycenter/redirection">
' <Request>
' <Username xsi:type="xsd:string">TheUserNameOfCustomer</Username>
' <Password xsi:type="xsd:string">ThePasswordOfCustomer</Password>
' <MerchantId xsi:type="xsd:int">TheMerchantIdOfCustomer</MerchantId>
' <PosId xsi:type="xsd:int">ThePosId</PosId>
' <AcquirerId xsi:type="xsd:int">TheAcquirerId</AcquirerId>
' <MerchantReference xsi:type="xsd:string">str_MerchantReference</MerchantReference>
' <RequestType xsi:type="xsd:string">02</RequestType>
' <ExpirePreauth xsi:type="xsd:int">0</ExpirePreauth>
' <Amount xsi:type="xsd:decimal">strBankAmount</Amount>
' <CurrencyCode xsi:type="xsd:int">978</CurrencyCode>
' <Installments xsi:type="xsd:unsignedByte">0</Installments>
' <Bnpl xsi:type="xsd:unsignedByte">0</Bnpl>
' <Parameters xsi:type="xsd:string">SomeValue</Parameters>
' <BillAddrCity xsi:type="xsd:string"></BillAddrCity>
' <BillAddrCountry xsi:type="xsd:string">300</BillAddrCountry>
' <BillAddrLine1 xsi:type="xsd:string"> 7</BillAddrLine1>
' <BillAddrPostCode xsi:type="xsd:string"></BillAddrPostCode>
' <BillAddrState xsi:type="xsd:string"></BillAddrState>      
' <ShipAddrCity xsi:type="xsd:string"></ShipAddrCity>
' <ShipAddrCountry xsi:type="xsd:string"></ShipAddrCountry>
' <ShipAddrLine1 xsi:type="xsd:string"></ShipAddrLine1>
' <ShipAddrPostCode xsi:type="xsd:string"></ShipAddrPostCode>
' <ShipAddrState xsi:type="xsd:string"></ShipAddrState>
' <CardholderName xsi:type="xsd:string"></CardholderName>
' <Email xsi:type="xsd:string"></Email>
' <HomePhone xsi:type="xsd:string"></HomePhone>
' <MobilePhone xsi:type="xsd:string"></MobilePhone>    
' <WorkPhone xsi:type="xsd:string"></WorkPhone>
' </Request>
' </IssueNewTicket>
' </SOAP-ENV:Body>
' </SOAP-ENV:Envelope>

soapXml = "..."

set req = CreateObject("Chilkat_9_5_0.HttpRequest")
req.HttpVerb = "POST"
req.SendCharset = 0
req.AddHeader "Content-Type","atext/xml; charset=utf-8"
req.AddHeader "SOAPAction","???"
req.Path = "/services/tickets/issuer.asmx"
success = req.LoadBodyFromString(soapXml,"utf-8")

http.FollowRedirects = 1

' resp is a Chilkat_9_5_0.HttpResponse
Set resp = http.SynchronousRequest("paycenter.piraeusbank.gr",443,1,req)
If (http.LastMethodSuccess = 0) Then
    outFile.WriteLine(http.LastErrorText)
Else
    set xmlResponse = CreateObject("Chilkat_9_5_0.Xml")
    success = xmlResponse.LoadXml(resp.BodyStr)
    outFile.WriteLine(xmlResponse.GetXml())

End If


outFile.Close