Micro Focus QTP (UFT) Forums
Issue with "Test run scheduler": Unable to clear the scheduler list - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Others (https://www.learnqtp.com/forums/Forum-UFT-QTP-Others)
+--- Thread: Issue with "Test run scheduler": Unable to clear the scheduler list (/Thread-Issue-with-Test-run-scheduler-Unable-to-clear-the-scheduler-list)

Issue with "Test run scheduler": Unable to clear the scheduler list - arunshashidhar.mk - 12-03-2013

Hi,

There is an issue with the "Test run scheduler" that we are currently facing.
Any help is really appreciated Smile

Details about the issue:

We are using a VBS file to initiate QTP scripts execution.
The issue we are facing is the scheduler lists junk script names in the list every time we start a fresh execution.
Since we are dealing with scripts count of more than 100 every time the list in the scheduler grows in number due to listing of junk scripts that we executed in previous execution. Due to this QTP eventually crashes.

We are trying to find a way we could clear the scheduler list before every fresh execution. But for the TSScheduler object there seems to be no methods available to do this. So please let me know if you are aware of any ways to clearing the scheduler list.

The script used is similar to the one mentioned below:

Code:
set tdc = createobject("TDApiOle80.TDConnection")
tdc.InitConnectionEx "http://qcURL/qcbin/"
tdc.login "yourUserName","yourPassword"
tdc.Connect "yourDomain","yourProject"

Set objShell = CreateObject("WScript.Shell")
Set TSetFact = tdc.TestSetFactory
Set tsTreeMgr = tdc.TestSetTreeManager
Set tsFolder = tsTreeMgr.NodeByPath("Root\Formal Tests\YourTestDirectory")
Set tsList = tsFolder.FindTestSets("Your TestSet name. This is case sensitive!")

Set theTestSet = tsList.Item(1)
Set Scheduler = theTestSet.StartExecution("")
Scheduler.RunAllLocally = True
Scheduler.run

Set execStatus = Scheduler.ExecutionStatus

Do While RunFinished = False
execStatus.RefreshExecStatusInfo "all", True
RunFinished = execStatus.Finished
Set EventsList = execStatus.EventsList

For Each ExecEventInfoObj in EventsList
  strNowEvent = ExecEventInfoObj.EventType
Next

For i= 1 to execstatus.count
  Set TestExecStatusobj =execstatus.Item(i)
  intTestid = TestExecStatusobj.TestInstance
Next
Loop


Thanks,
Arun S