<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:w="urn:schemas-microsoft-com:office:word"><head><META content="text/html; charset=us-ascii" http-equiv="Content-Type">
<meta content="text/html; charset=us-ascii" http-equiv=Content-Type>
<meta content="Microsoft Word 12 (filtered medium)" name=Generator>
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head><BODY>
<DIV>
<div class=Section1>
<p class=MsoNormal>Hello all,<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>I was wondering if anyone had any VB examples of AXL coding
they can send me. <o:p></o:p></p>
<p class=MsoNormal>I have seen that there has been talk on the site before, but
am struggling to get anything to work..<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>This is what I have so far but cannot get it to work at all.<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'>'Build
the SOAP payload<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlsoap
= "<SOAP-ENV:Envelope xmlns:SOAP-ENV=" & chr(34) &
"http://schemas.xmlsoap.org/soap/envelope/" & chr(34)<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlsoap
= xmlsoap & "xmlns:xsi=" & chr(34) &
"http://www.w3.org/2001/XMLSchema-instance" & chr(34) <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlsoap
= xmlsoap & "xmlns:xsd=" & chr(34) &
"http://www.w3.org/2001/XMLSchema" & chr(34) &
">" & vbcrlf<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlsoap
= xmlsoap & "<SOAP-ENV:Body>" & vbcrlf<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlsoap
= xmlsoap & "<axl:getPhone xmlns:axl=" & chr(34) &
"http://www.cisco.com/AXL/1.0" & chr(34) & " "<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlsoap
= xmlsoap & "xsi:schemaLocation=" & chr(34) &
"http://www.cisco.com/AXL/1.0 http://10.216.4.11/schema/axlsoap.xsd"
& chr(34) & "sequence=" & chr(34) & "1234"
& chr(34) & ">"<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'>
xmlsoap = xmlsoap &
"<phoneName>SEP222222222245</phoneName>"<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'>
xmlsoap = xmlsoap &
"</axl:getPhone>" & vbcrlf<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'>
xmlsoap = xmlsoap & "</SOAP-ENV:Body>"
& vbcrlf<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlsoap
= xmlsoap & "</SOAP-ENV:Envelope>"<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> msgbox
xmlsoap<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> dim
xmlhttp <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> set
xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> 'replace
localhost with the server you would like to post to<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> const
SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlhttp.setOption
2, SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlhttp.Open
"POST","http://10.216.4.11:8443/axl/",false<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlhttp.setRequestHeader
"Authorization", "Basic " &
Base64Encode("CCMAdmin:ca11manager")<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlhttp.setRequestHeader
"Content-type", "text/xml"<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'>
xmlhttp.setRequestHeader "POST",
"8443/axl"<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'>
xmlhttp.setRequestHeader "Content-length",
len(xmlsoap) //<-- length in characters<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlhttp.send
xmlsoap<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Courier New"'> xmlhttp.responsexml.xml<o:p></o:p></span></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>Thanks<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
</div>
</DIV>
<DIV> </DIV>
<DIV>
<P CLASS="MsoNormal" STYLE="MARGIN: 0in 0in 0pt"><SPAN LANG="EN-GB" STYLE="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial"><FONT COLOR="gray">Registered No. 755780 England</FONT></SPAN></P>
<P CLASS="MsoNormal" STYLE="MARGIN: 0in 0in 0pt"><SPAN LANG="EN-GB" STYLE="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial"><FONT COLOR="gray">Registered Office: FM Insurance Company Limited</FONT></SPAN></P>
<P CLASS="MsoNormal" STYLE="MARGIN: 0in 0in 0pt"><SPAN LANG="EN-GB" STYLE="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial"><FONT COLOR="gray">1 Windsor Dials, Windsor,</FONT></SPAN></P>
<P CLASS="MsoNormal" STYLE="MARGIN: 0in 0in 0pt"><SPAN LANG="EN-GB" STYLE="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial"></SPAN><SPAN LANG="EN-GB" STYLE="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial"><FONT COLOR="gray">Berkshire, UK, SL4 1RS</FONT></SPAN></P>
<P CLASS="MsoNormal" STYLE="MARGIN: 0in 0in 0pt"><SPAN LANG="EN-GB" STYLE="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial"><FONT COLOR="gray">Regulated by the Financial Services Authority.</FONT></SPAN></P>
<P CLASS="MsoNormal" STYLE="MARGIN: 0in 0in 0pt"><SPAN LANG="EN-GB" STYLE="FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: Arial"><FONT COLOR="gray">VAT No. G.B.: 792 4276 02</FONT></SPAN></P></DIV></BODY></HTML>