#2. To run a QTP Test from a .vbs file

'#2. To run a QTP Test from a .vbs file
set qtApp = CreateObject("QuickTest.Application")
qtApp.Launch
qtApp.Visible =True
qtApp.Open <Test Path>
Set qtTest = qtApp.Test
qtTest.Run
qtTest.Save
qtTest.Close
qtApp.Quit
Set qtApp = Nothing
Set qtTest = Nothing