Created by: CHRISTIAN END on 16-09-2009 10:03:34 AM Hello, has someone done AXL Requests with VB.NET. I thought that it was not so difficult... But it is "for me"... I have a Perl script running, doing some things for me. But i want a little graphical interface. Thanks for the help... Christian
Subject: RE: VB.NET Example for AXL Requests Replied by: Dale Eichbauer on 08-10-2009 07:23:39 PM Here's a VB.Net function I've created that seems to work reasonably well. I've only run this on V 7. I have a totally different one for V 4.3. I'm looking for analog devices in case you are wondering about some of the select parameters. I pass the IP address, ID, and password. I've pulled out some proprietary info, but I think it should still work as is. Hope this helps. Public Function Poll_CM(ByVal sServer As String, ByVal sID As String, ByVal sPwd As String) As Integer Dim sPost As String Dim crlf As String Dim iReturnCode As CURLcode Dim sOptions As Slist Dim easy As Easy Dim wf As Easy.WriteFunction Dim sf As Easy.SSLContextFunction Dim df As Easy.DebugFunction Dim sbReturned As System.Text.StringBuilder
sPost = "<?xml version=""1.0"" encoding=""UTF-8""?>" & crlf sPost = String.Concat(sPost, "<SOAP-ENV:Envelope xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"">" & crlf) sPost = String.Concat(sPost, "<SOAP-ENV:Body>" & crlf) sPost = String.Concat(sPost, "<axlapi:executeSQLQuery xmlns:axlapi=""http://www.cisco.com/AXL/API/1.0"" ") sPost = String.Concat(sPost, "xmlns:axl=""http://www.cisco.com/AXL/API/1.0"" ") sPost = String.Concat(sPost, "xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" ") sPost = String.Concat(sPost, "sequence=""1"" ") sPost = String.Concat(sPost, "xsi:schemaLocation=""http://www.cisco.com/AXL/API/1.0 axlsoap.xsd"">" & crlf) sPost = String.Concat(sPost, "<sql>SELECT NumPlan.DNOrPattern, NumPlan.AlertingName, Device.Name,Device.Description, (SELECT location.name FROM location WHERE Location.pkid = Device.fkLocation) as LocationName, TypeModel.Name as ModelName, Device.fkEnduser as OwnerKey FROM DeviceNumPlanMap, NumPlan, Device, TypeModel WHERE DeviceNumPlanMap.fkNumPlan=NumPlan.pkid AND DeviceNumPlanMap.fkDevice=Device.pkid AND Device.tkModel = TypeModel.Enum AND (Device.tkModel ='10' OR Device.tkModel = '12' OR Device.tkModel = '30027') ORDER BY Device.Name</sql>" & crlf) sPost = String.Concat(sPost, sPost & "</axlapi:executeSQLQuery>" & crlf) sPost = String.Concat(sPost, "</SOAP-ENV:Body>" & crlf) sPost = String.Concat(sPost, "</SOAP-ENV:Envelope>" & crlf)
Try Curl.GlobalInit(CURLinitFlag.CURL_GLOBAL_ALL)
Easy = New Easy
' Set up write delegate wf = New Easy.WriteFunction(AddressOf OnWriteData)
' and the SSL delegate sf = New Easy.SSLContextFunction(AddressOf OnSSLContext)
' and the rest of the cURL options easy.SetOpt(CURLoption.CURLOPT_URL, "https://" & sServer & ":8443/axl/") easy.SetOpt(CURLoption.CURLOPT_WRITEFUNCTION, wf) easy.SetOpt(CURLoption.CURLOPT_CAINFO, Environment.SystemDirectory & "\ca-bundle.crt") easy.SetOpt(CURLoption.CURLOPT_USERPWD, sID & ":" & sPwd) easy.SetOpt(CURLoption.CURLOPT_SSL_VERIFYPEER, False) ' don't check the server's certificate easy.SetOpt(CURLoption.CURLOPT_SSL_VERIFYHOST, 1) ' check for existence of certificate but not hostname match easy.SetOpt(CURLoption.CURLOPT_POSTFIELDS, sPost) sOptions = New Slist sOptions.Append("Content-type: text/xml;") ' one element list so far. repeat append to add any others easy.SetOpt(CURLoption.CURLOPT_HTTPHEADER, sOptions) df = New Easy.DebugFunction(AddressOf OnDebug) ' easy.SetOpt(CURLoption.CURLOPT_DEBUGFUNCTION, df) ' turn this and next one on for debugging ' easy.SetOpt(CURLoption.CURLOPT_VERBOSE, True) iReturnCode = easy.Perform() easy.Cleanup() Curl.GlobalCleanup() easy = Nothing wf = Nothing sf = Nothing sOptions = Nothing df = Nothing iValidStart = InStr(sReturned, "<return>") iValidEnd = InStr(sReturned, "</axl:executeSQLQueryResponse>") If (iValidStart > 0) And (iValidEnd > 0) Then sReturned = Mid(sReturned, iValidStart, iValidEnd - iValidStart) easy = Nothing wf = Nothing sf = Nothing sOptions = Nothing df = Nothing sbReturned = Nothing Return 0 Else sReturned = " " MsgBox("Invalid Data returned from server") easy = Nothing wf = Nothing sf = Nothing sOptions = Nothing df = Nothing sbReturned = Nothing Return 999 End If
Catch ex As Exception MsgBox(ex.ToString()) easy = Nothing wf = Nothing sf = Nothing sOptions = Nothing df = Nothing sbReturned = Nothing Return 999 End Try End Function
Subject: RE: VB.NET Example for AXL Requests Replied by: CHRISTIAN END on 21-10-2009 09:43:58 PM Hello Dale, thank you for the reply. I tried the function for me. But i didn't get it running... What did you use for the IMPORTS in vb.net? And there are some undeclared vars in the function... It is possible that i use it wrong... I created a new Form in Visual Studio and have pasted the code into the form. Or have functions to be used in other ways in vb.net? Sorry for this simple questions, but my knowledge in vb.net is not so much... Thanks a lot... Christian
Subject: RE: VB.NET Example for AXL Requests Replied by: Wai Ming Yap on 27-11-2009 02:09:03 AM Hi Dale, I'm new to this as well. I tried your program but it iValidStart=0 and iValidEnd=0. Seems as though it has returned nothing. Would it be possible for you to send me a copy of your program and I have a look at it to see what I have missed out? Thanks. Wai Ming
Find answers to your questions by entering keywords or phrases in the Search bar above. New here? Use these resources to familiarize yourself with the community:
