(Xojo Plugin) SOAP WS-Security Username Authentication

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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 New Chilkat.Xml
xml.Tag = "soap:Envelope"
Dim success As Boolean
success = xml.AddAttribute("xmlns:soap","http://schemas.xmlsoap.org/soap/envelope/")
xml.UpdateChildContent "soap:Header",""
success = 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 New Chilkat.CkDateTime
success = dt.SetFromCurrentSystemTime()
Dim bLocal As Boolean
bLocal = False
Dim created As String
created = dt.GetAsTimestamp(bLocal)

// Now build each UsernameToken block:
Dim wsse1 As New Chilkat.Xml
wsse1.Tag = "wsse:Security"
success = wsse1.AddAttribute("xmlns:wsse","http://schemas.xmlsoap.org/ws/2003/06/secext")
success = wsse1.UpdateAttrAt("wsse:UsernameToken",True,"wsu:Id","sample")
success = wsse1.UpdateAttrAt("wsse:UsernameToken",True,"xmlns:wsu","http://schemas.xmlsoap.org/ws/2003/06/utility")
wsse1.UpdateChildContent "wsse:UsernameToken|wsse:Username","sample"
success = 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 New Chilkat.Xml
wsse2.Tag = "wsse:Security"
success = wsse2.AddAttribute("soap:actor","oracle")
success = wsse2.AddAttribute("xmlns:wsse","http://schemas.xmlsoap.org/ws/2003/06/secext")
success = wsse2.UpdateAttrAt("wsse:UsernameToken",True,"wsu:Id","oracle")
success = wsse2.UpdateAttrAt("wsse:UsernameToken",True,"xmlns:wsu","http://schemas.xmlsoap.org/ws/2003/06/utility")
wsse2.UpdateChildContent "wsse:UsernameToken|wsse:Username","oracle"
success = 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 Chilkat.Xml
xHeader = xml.GetChildWithTag("soap:Header")
success = xHeader.AddChildTree(wsse1)
success = xHeader.AddChildTree(wsse2)

// Show the XML:
System.DebugLog(xml.GetXml())