Executing Soap ui from VBS file

The below code illustrate to execute the the Soap UI project to execute.

It executes all the test suites in the Soap UI Project

‘Calls to the function

ExecuteSoapUI “127.0.0.1”

‘Function to execute the soap UI  Project

Public Function ExecuteSoapUI(IPaddress)

‘creating an object of type shell

Set obj=CreateObject(“Wscript.Shell”)

‘invoke the command prompt.

abc = obj.Run(“cmd”)

‘waiting toi make sure the command prompt opens

WScript.Sleep “1000”

‘String used to execute SoapUI Project

xyz=”testrunner.bat -h”&IPaddress&”:8080 -r -f D:\SoapUI\Results  D:\soapui-project.xml”

‘Log

WScript.Echo(abc)

‘Activate the command prompt

obj.AppActivate(“cmd.exe”)

‘Navigation to Soap UI bin folder in cmd prompt.

obj.SendKeys “cd C:\Program Files\eviware\soapUI-Pro-2.5.1\bin”,3

obj.SendKeys “~”

‘Executing the command  to run the soap Project

obj.SendKeys xyz,3

obj.SendKeys “~”

End Function