01-19-2010, 07:37 PM
I found the following script....and it works fine.
Regards:
TurtleRock
Code:
Dim QTPObj,QTPTest
Set QTPObj=CreateObject("QuickTest.Application")
'Check if the application is not already Launched
If Not QTPObj.Launched then
QTPObj.Launch
end if
QTPObj.Visible=True
QTPObj.Open "D:\resolve_automation\Resolve_Regr_CPE_TC 002" 'name of the start up script
Set QTPTest=QTPObj.Test
QTPTest.Run 'Run the Test
QTPTest.Close 'Close the Test
QTPObj.Quit 'Quit the QTP Application
Regards:
TurtleRock