Sample code for 30+ languages & platforms
AutoIt

Belgium eHealth Platform - AddressBook - Search for Professionals

See more Belgian eHealth Platform Examples

Demonstrates how to search for professionals using the AddressBook API.

Chilkat AutoIt Downloads

Download Chilkat for AutoIt
AutoIt 
Local $bSuccess = False

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

; --------------------------------------------------------------------------------
; Also see Chilkat's Online WSDL Code Generator
; to generate code and SOAP Request and Response XML for each operation in a WSDL.
; --------------------------------------------------------------------------------

; Provide a certificate + private key.
; Note: If your certificate + private key is located on a hardware token or smartcard, you can call a different function to load from smartcard..
$oCert = ObjCreate("Chilkat.Cert")
$bSuccess = $oCert.LoadPfxFile("SSIN=12345678.acc.p12","p12_password")
If ($bSuccess = False) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

; Let's get the SAML Security Token obtained from https://services-acpt.ehealth.fgov.be/IAM/SecurityTokenService/v1/RequestSecurityToken
; a very short time ago..

; See this example for how we got the SAML security token: eHealth Belgium Request Security Token
$oBdSecToken = ObjCreate("Chilkat.BinData")
$bSuccess = $oBdSecToken.LoadFile("qa_data/tokens/ehealth-fgov-be-sectoken.xml")
If ($bSuccess = False) Then
    ConsoleWrite("Failed to load SAML security token" & @CRLF)
    Exit
EndIf

; The SAML security token is just the part from <Assertion ..> ... </Assertion>
; So let's get just that part..
Local $iStartIdx = $oBdSecToken.FindString("<Assertion",0,"utf-8")
If ($iStartIdx < 0) Then
    ConsoleWrite("Did not find the start of the SAML assertion." & @CRLF)
    Exit
EndIf

Local $iEndIdx = $oBdSecToken.FindString("</Assertion>",0,"utf-8")
If ($iEndIdx < 0) Then
    ConsoleWrite("Did not find the end of the SAML assertion." & @CRLF)
    Exit
EndIf

; Adjust the index to the 1st byte after "</Assertion>"
$iEndIdx = $iEndIdx + 12
Local $sBase64_saml_token = $oBdSecToken.GetEncodedChunk($iStartIdx,$iEndIdx - $iStartIdx,"base64")

ConsoleWrite($sBase64_saml_token & @CRLF)

; Our SOAP request will look like this:

; The SOAP request to search for professionals looks like this:

; <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:add="urn:be:fgov:ehealth:addressbook:protocol:v1">
;     <soapenv:Header>
; 	      <wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
; 	         <wsse:BinarySecurityToken
; 	            ValueType="http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID"
; 	            EncodingType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary">BASE64_SAML_TOKEN</wsse:BinarySecurityToken>
; 	      </wsse:Security>
;     </soapenv:Header>
;     <soapenv:Body>
;         <add:SearchProfessionalsRequest Id="bdc38ae62-3e7f-4f80-80f7-c3e745500fa3" IssueInstant="2016-03-23T18:49:26.968+01:00" Offset="0" MaxElements="100">
;             <add:SSIN>74062423769</add:SSIN>
;         </add:SearchProfessionalsRequest>
;     </soapenv:Body>
; </soapenv:Envelope>

$oXml = ObjCreate("Chilkat.Xml")
$oXml.Tag = "soapenv:Envelope"
$oXml.UpdateAttrAt("soapenv:Header|wsse:Security",True,"xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")
$oXml.UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken",True,"ValueType","http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.0#SAMLAssertionID")
$oXml.UpdateAttrAt("soapenv:Header|wsse:Security|wsse:BinarySecurityToken",True,"EncodingType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary")

$oXml.UpdateChildContent "soapenv:Header|wsse:Security|wsse:BinarySecurityToken",$sBase64_saml_token

$oXml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",True,"Id","bdc38ae62-3e7f-4f80-80f7-c3e745500fa3")

$oDt = ObjCreate("Chilkat.CkDateTime")
$oDt.SetFromCurrentSystemTime()
$oXml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",True,"IssueInstant",$oDt.GetAsTimestamp(True))

$oXml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",True,"Offset","0")
$oXml.UpdateAttrAt("soapenv:Body|add:SearchProfessionalsRequest",True,"MaxElements","100")
$oXml.UpdateChildContent "soapenv:Body|add:SearchProfessionalsRequest|urn:SSIN","74062423769"

ConsoleWrite($oXml.GetXml() & @CRLF)

$oHttp = ObjCreate("Chilkat.Http")

$bSuccess = $oHttp.SetSslClientCert($oCert)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oHttp.SetRequestHeader "Content-Type","text/xml"
$oHttp.SetRequestHeader "SOAPAction","urn:be:fgov:ehealth:addressbook:protocol:v1:searchProfessionals"

Local $sXmlStr = $oXml.GetXml()
$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpStr("POST","https://services.ehealth.fgov.be/AddressBook/v1",$sXmlStr,"utf-8","application/xml",$oResp)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite($oResp.BodyStr & @CRLF)
ConsoleWrite("response status code = " & $oResp.StatusCode & @CRLF)