How to run the WebServices test

Hi Alexei ,





Yes your b point: there is no method required to be called initially and authentication data must be provided as a parameters for any method.

is there my project.



http://support.smartbear.com/viewarticle/29074/ help article. and got below from smartbear QA




Function LandmarkVO

  Set ServiceInfo = WebServices.CreateWebServiceInfoFromItem("DeviceManagementService")

 

   Set HomeGprsIpVO = ServiceInfo.TypeFactory.HomeGprsIpVO

  

  HomeGprsIpVO.gprsId=null

  HomeGprsIpVO.ipAddress="192.168.1.5"

  HomeGprsIpVO.lastUpdated=""

  HomeGprsIpVO.name="Praveenhjlllllk"

  HomeGprsIpVO.port="5006"

  HomeGprsIpVO.status=1

  HomeGprsIpVO.updatedBy=null

  

   

  

  Set RequestObj = ServiceInfo.PrepareRequestObject("createHomeGPRSIP")

  Set RequestObj.args0 = HomeGprsIpVO 

  

  Set RequestXml = ServiceInfo.PrepareRequest("createHomeGPRSIP", RequestObj)

  Set Root = RequestXml.documentElement





  Set HeaderElement = RequestXml.createElement("s:Header")

  Set HeaderNode = Root.insertBefore(HeaderElement, Root.childNodes.item(0))  





  Set usernameElement = RequestXml.createNode(1, "userName", "")

  Set usernameNode = HeaderNode.appendChild(usernameElement)

  Set usernameValueElement = RequestXml.createTextNode("Admin")

  usernameNode.appendChild(usernameValueElement)

  

  Set pwdElement = RequestXml.createNode(1, "password", "")

  Set pwdNode = HeaderNode.appendChild(pwdElement)

  Set pwdValueElement = RequestXml.createTextNode("password")

  pwdNode.appendChild(pwdValueElement)





'  Set ipaElement = RequestXml.createNode(1, "ipaddress", "")

'  Set ipaNode = HeaderNode.appendChild(ipaElement)

'  Set ipaValueElement = RequestXml.createTextNode("10.10.10.10")

'  ipaNode.appendChild(ipaValueElement)

'

'  Set pidElement = RequestXml.createNode(1, "portalId", "")

'  Set pidNode = HeaderNode.appendChild(pidElement)

'  Set pidValueElement = RequestXml.createTextNode(1)

'  pidNode.appendChild(pidValueElement)

    

  Log.Message "See XML in the Additional Information pane", RequestXml.xml

 

  ' Sending the request

  Set XmlHttpRequest = CreateObject("MSXML2.XMLHTTP.3.0")

  

  ' Insert the correct service URL

  Call XmlHttpRequest.open("POST", "https://devtest.idigi.com/mobile/services/DeviceManagementService.DeviceManagementServiceHttpSoap11Endpoint/", False)

  Call XmlHttpRequest.send(RequestXml)  

  

End Function



Above one works for me and inserted into DB.





I tried to get the result. so i passed the my object to that service in the above same function


a=WebServices.DeviceManagementService.createHomeGPRSIP(HomeGprsIpVO)

 Res=a.code

   MsgBox Res
Getting the error message as An Item with the same key has already added. 

Can you please provide the how i can get the Result values.