You have chosen to sponsor your bid up to a maximum amount of .
I have to integrate JENKINS to QTP due to Continious integration.
So due to company network architecute JENKINS has installed in one workstation(DV00123) and QTP has installed in other workstation(DV00456).
So all test scripts are stored in SVN.
So for integration purpose I am writing VB Script. So whenever I build a job in JENKINS, VBScript will trigger and run the test scripts and results will update in JENKINS. So in VB Script I have mentioned remote workstation details.Please find below code... I collected from google.. Can any one help me workable solution for this VBScript ... Or else do you have any other solution with your..
-1 down vote favorite
strUser = "K003277"
strDomain = "PNKUKDEV"
strPassword = "Pork2013"
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, _
"NTLMDomain:" + strDomain)
Tilll here I tried to connect to remote machine after that QTP related script .. this one I got from google... the reason to paste this code here is you willl get some idea what I am trying to do....
Dim qtApp 'As QuickTest.Application
Dim qtTest 'As QuickTest.Test
Set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch ' Start QuickTest
qtApp.Visible = True
qtApp.Open "C:\Temp\simple_test", True ' Open the test in read-only mode
' set run settings for the test
Set qtTest = qtApp.Test
qtTest.Run ' Run the test
WScript.StdOut.Write "Status is:" & qtTest.LastRunResults.Status
qtTest.Close ' Close the test
Set qtResultsOpt = Nothing
Set qtTest = Nothing
Set qtApp = Nothing