Opening QTP and Running a Script and then Closing it Using VBS File

Opening QTP and Running a Script and then Closing it Using VBS File

'*********Opens the QTP and Runs the specified Script******************
Dim App 'As Application
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.Folders.Add("C:\Documents and Settings\Ayaskant Jena\Desktop\Vinay.qfl")
App.Folders.Add("C:\Documents and Settings\Ayaskant Jena\Desktop\Repository1.tsr")
App.Open "C:\Documents and Settings\Ayaskant Jena\Desktop\Ayas",False
App.Test.Run
'*************************WORKING FINE********************************
'**********Discards the present test and Close QTP*********************
Dim App 'As Application
Set App = CreateObject("QuickTest.Application")
App.quit
Set App = nothing
'*************************WORKING FINE*********************************