B4X

SOAP WS-Security Username Authentication

See more XML Examples

Demonstrates creating SOAP XML for WS-Security Username Authentication. The client user name and password are encapsulated in a WS-Security <wsse:UsernameToken>. B4X

'  Generate this XML with the code that follows:

'  	<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
'  	 <soap:Header>	     
'  	  <wsse:Security xmlns:wsse="http://schemas.xmlsoap.org/ws/2003/06/secext">
'  	   <wsse:UsernameToken wsu:Id="sample" 
'  	       xmlns:wsu="http://schemas.xmlsoap.org/ws/2003/06/utility">
'  	    <wsse:Username>sample</wsse:Username>
'  	    <wsse:Password Type="wsse:PasswordText">oracle</wsse:Password>
'  	    <wsu:Created>2004-05-19T08:44:51Z</wsu:Created>
'  	   </wsse:UsernameToken>
'  	  </wsse:Security>
'  	  <wsse:Security soap:actor="oracle" 
'  	      xmlns:wsse="http://schemas.xmlsoap.org/ws/2003/06/secext">
'  	   <wsse:UsernameToken wsu:Id="oracle" 
'  	       xmlns:wsu="http://schemas.xmlsoap.org/ws/2003/06/utility">
'  	    <wsse:Username>myUsername</wsse:Username>
'  	    <wsse:Password Type="wsse:PasswordText">myPassword</wsse:Password>
'  	    <wsu:Created>2004-05-19T08:46:04Z</wsu:Created>
'  	   </wsse:UsernameToken>
'  	  </wsse:Security>
'  	 </soap:Header>
'  	  <soap:Body>
'  	   <getHello xmlns="http://www.oracle.com"/>
'  	  </soap:Body>
'  	</soap:Envelope>
'  

'  First build the outer housing:
Dim xml As ChilkatXml
xml.Initialize
xml.Tag = "soap:Envelope"
xml.AddAttribute("xmlns:soap", "http://schemas.xmlsoap.org/soap/envelope/")
xml.UpdateChildContent("soap:Header", "")
xml.UpdateAttrAt("soap:Body|getHello", True, "xmlns", "http://www.oracle.com")


'  Get the current date/time in a string with this format: 2004-05-19T08:46:04Z
Dim dt As ChilkatDateTime
dt.Initialize
dt.SetFromCurrentSystemTime
Dim bLocal As Boolean = False
Dim created As String = dt.GetAsTimestamp(bLocal)

'  Now build each UsernameToken block:
Dim wsse1 As ChilkatXml
wsse1.Initialize
wsse1.Tag = "wsse:Security"
wsse1.AddAttribute("xmlns:wsse", "http://schemas.xmlsoap.org/ws/2003/06/secext")
wsse1.UpdateAttrAt("wsse:UsernameToken", True, "wsu:Id", "sample")
wsse1.UpdateAttrAt("wsse:UsernameToken", True, "xmlns:wsu", "http://schemas.xmlsoap.org/ws/2003/06/utility")
wsse1.UpdateChildContent("wsse:UsernameToken|wsse:Username", "sample")
wsse1.UpdateAttrAt("wsse:UsernameToken|wsse:Password", True, "Type", "wsse:PasswordText")
wsse1.UpdateChildContent("wsse:UsernameToken|wsse:Password", "oracle")
wsse1.UpdateChildContent("wsse:UsernameToken|wsu:Created", created)

Dim wsse2 As ChilkatXml
wsse2.Initialize
wsse2.Tag = "wsse:Security"
wsse2.AddAttribute("soap:actor", "oracle")
wsse2.AddAttribute("xmlns:wsse", "http://schemas.xmlsoap.org/ws/2003/06/secext")
wsse2.UpdateAttrAt("wsse:UsernameToken", True, "wsu:Id", "oracle")
wsse2.UpdateAttrAt("wsse:UsernameToken", True, "xmlns:wsu", "http://schemas.xmlsoap.org/ws/2003/06/utility")
wsse2.UpdateChildContent("wsse:UsernameToken|wsse:Username", "oracle")
wsse2.UpdateAttrAt("wsse:UsernameToken|wsse:Password", True, "Type", "wsse:PasswordText")
wsse2.UpdateChildContent("wsse:UsernameToken|wsse:Password", "oracle")
wsse2.UpdateChildContent("wsse:UsernameToken|wsu:Created", created)


'  Insert the UsernameToken blocks:
Dim xHeader As ChilkatXml = xml.GetChildWithTag("soap:Header")
xHeader.AddChildTree(wsse1)
xHeader.AddChildTree(wsse2)



'  Show the XML:
Log(xml.GetXml)