Hi Joe,

Its Awesome.Its really helpful for some one learning OTA.

However , i have put this script in a note pad and saved it as .vbs file . After i double click on that , its through errors
“—————————
Windows Script Host
—————————
Script: C:\Documents and Settings\nap0587\Desktop\test.vbs
Line: 6
Char: 1
Error: ActiveX component can’t create object: ‘WSscript.Shell’
Code: 800A01AD
Source: Microsoft VBScript runtime error

—————————
OK
—————————
”

and

“—————————
WScript.exe – Application Error
—————————
The instruction at “0x100dfacf” referenced memory at “0x0195724c”. The memory could not be “read”.

Click on OK to terminate the program
—————————
OK
—————————
”
Set tdc = CreateObject(“TDAPIOLE.TDConnection”)
tdc.InitConnectionEx “http://qcurl/qcbin”
tdc.Login “username”, “password”
tdc.Connect “Domain”, “Project”

Set objShell = CreateObject(“WSscript.Shell”)
Set tsetfact = tdc.TestSetFactory
Set tstreeMgr = tdc.TestSetTreeManager
Set tsFolder = tstreeMgr.NodeByPath(“Root\Google”)
Set tsList = tsFolder.Findtestsets(“Phase1″)
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
WSscript.quit

I request you to please assist.

Thanks,
Rob

Reply

Hi Joe,

I am trying to run my QTP(v11) scripts using Windows Scheduler. I have created a vbs file to launch the application and open the QTP script and run it.

But when tasks gets executed, .vbs file is getting opened instead of launching an application and running the script.

Could you please let me know what might be the problem.

Thank you

Reply

Hi Joe,
I want to execute all the test sets in a given folder, so I modified above code as below. However it execute only first test set from test folder and wscript.exe get closed. Second test set does not execute.
My test folder contains 5 test sets.
below is the code
‘********************************************************************
TSFolderPath = “Root\Z.Delete\A TEST\”
Set TSetFact = tdc.TestSetFactory
Set tsTreeMgr = tdc.TestSetTreeManager
Set tsFolder = tsTreeMgr.NodeByPath(TSFolderPath)
Set tsList = tsFolder.FindTestSets(“”) ‘ Get all test sets
If tsList.count >= 1 Then
For tsIndex = 1 to tsList.count
Set theTestSet = tsList.Item(tsIndex) ‘ TestSet Object
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)
Next
WScript.Sleep 5000
Loop
Next ‘Go to next TestSet
else
Msgbox “Test Set not found under test folder : ‘” & TSFolderPath & “‘.”
End If

Please tell me where I have to modify the script.

Thanks,
Vikas

Reply

Hi Joe,

Very good job. It works here. One more concern, in the third line of your script:
“set tdc = createobject(“TDApiOle80.TDConnection”)
tdc.InitConnectionEx “http://qcURL/qcbin/”
tdc.login “yourUserName”,”yourPassword”
”
I need put my username&password here, so there is a security concern here. Can we encrypt password here like what QTP does?

Reply