David, thanks for the direction. If anyone needs the .NET solution for this, I wrote the following class to handle it:
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="WebDialerSoapBinding", _
:="urn:WD70")> _
Public Class WebDialerSoapService
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
Public Sub New(ByVal Url As String)
MyBase.New()
Me.Url = Url
Net.ServicePointManager.ServerCertificateValidationCallback = New Net.Security.RemoteCertificateValidationCallback(AddressOf CustomCertificateValidation)
End Sub
Public Function getProfileSoap(ByVal in0 As WebDialer71.Credential, ByVal in1 As String) As WebDialer71.GetConfigResponse
Dim webc As New Net.WebClient
Dim resp As String
Dim oCfgResp As New WebDialer71.GetConfigResponse
webc.BaseAddress = Me.Url
webc.Headers.Add(Net.HttpRequestHeader.ContentType, "text/xml")
webc.Headers.Add(Net.HttpRequestHeader.AcceptCharset, "utf-8")
webc.Headers.Add(Net.HttpRequestHeader.Accept, "*/*")
webc.Headers.Add(Net.HttpRequestHeader.UserAgent, "Mozilla/4.0 (compatible; MSIE 6.0; MS Web Services Client Protocol 2.0.50727.3082)")
webc.Headers.Add("SOAPACTION", "")
resp = webc.UploadString(Me.Url, getProfileSoap_BuildRequest(in0, in1))
Dim XMLDoc As New Xml.XmlDocument
XMLDoc.LoadXml(resp)
'Description
oCfgResp.description = XMLDoc.GetElementsByTagName("description")(0).InnerText
'Response Code
Dim RcHref As String = Replace(XMLDoc.GetElementsByTagName("responseCode")(0).Attributes("href").Value, "#", "")
For Each xNode As Xml.XmlNode In XMLDoc.GetElementsByTagName("multiRef")
If xNode.Attributes("id").Value = RcHref Then
oCfgResp.responseCode = xNode.InnerText
End If
Next
'Devices
Dim oDeviceArray As New ArrayList
For Each xNode As Xml.XmlNode In XMLDoc.GetElementsByTagName("deviceInfoList")(0).ChildNodes
Dim DiHref As String = Replace(xNode.Attributes("href").Value, "#", "")
For Each dNode As Xml.XmlNode In XMLDoc.GetElementsByTagName("multiRef")
If dNode.Attributes("id").Value = DiHref Then
Dim dInfo As New WebDialer71.WDDeviceInfo
'Device Name
dInfo.deviceName = dNode.ChildNodes(0).InnerText
'Lines
Dim lNode As Xml.XmlNode = dNode.ChildNodes(1)
Dim sLineArray As String = ""
For Each item As Xml.XmlNode In lNode.ChildNodes
sLineArray &= (item.InnerText) & ","
Next
If Right(sLineArray, 1) = "," Then sLineArray = Mid(sLineArray, 1, Len(sLineArray) - 1)
dInfo.lines = sLineArray
oDeviceArray.Add(dInfo)
End If
Next
Next
oCfgResp.deviceInfoList = oDeviceArray.ToArray(GetType(WebDialer71.WDDeviceInfo))
Return oCfgResp
End Function
Private Function CustomCertificateValidation(ByVal sender As Object, ByVal cert As Security.Cryptography.X509Certificates.X509Certificate, ByVal chain As Security.Cryptography.X509Certificates.X509Chain, ByVal Errors As Net.Security.SslPolicyErrors) As Boolean
Return True
End Function
Private Function getProfileSoap_BuildRequest(ByVal in0 As WebDialer71.Credential, ByVal in1 As String) As String
getProfileSoap_BuildRequest = ""
getProfileSoap_BuildRequest &= "<?xml version=""1.0"" encoding=""utf-8""?>"
getProfileSoap_BuildRequest &= "<soap:Envelope xmlns:soap=""<a>http://schemas.xmlsoap.org/soap/envelope/</a>]"""
getProfileSoap_BuildRequest &= " xmlns:soapenc=""<a>http://schemas.xmlsoap.org/soap/encoding/</a>]"""
getProfileSoap_BuildRequest &= " xmlns:tns=""urn:WD70"""
getProfileSoap_BuildRequest &= " xmlns:types=""urn:WD70/encodedTypes"""
getProfileSoap_BuildRequest &= " xmlns:xsi=""<a>http://www.w3.org/2001/XMLSchema-instance</a>]"""
getProfileSoap_BuildRequest &= " xmlns:xsd=""<a>http://www.w3.org/2001/XMLSchema</a>]"">"
getProfileSoap_BuildRequest &= "<soap:Body soap:encodingStyle=""<a>http://schemas.xmlsoap.org/soap/encoding/</a>]"">"
getProfileSoap_BuildRequest &= "<tns:getProfileSoap>"
getProfileSoap_BuildRequest &= "<in0 href=""#id1"" />"
getProfileSoap_BuildRequest &= "<in1 xsi:type=""xsd:string"">" & in1 & "</in1>"
getProfileSoap_BuildRequest &= "</tns:getProfileSoap>"
getProfileSoap_BuildRequest &= "<tns:Credential id=""id1"" xsi:type=""tns:Credential"">"
getProfileSoap_BuildRequest &= "<userID xsi:type=""xsd:string"">" & in0.userID & "</userID>"
getProfileSoap_BuildRequest &= "<password xsi:type=""xsd:string"">" & in0.password & "</password>"
getProfileSoap_BuildRequest &= "</tns:Credential>"
getProfileSoap_BuildRequest &= "</soap:Body>"
getProfileSoap_BuildRequest &= "</soap:Envelope>"
End Function
End Class
