QTP Tips 3 - Run QTP via VBScript

Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
' Maximize the QuickTest window
App.WindowState = "Maximized" 
' Display the Expert View
App.ActivateView "ExpertView" 

'Open a new or existing test in editable mode
App.open "C:/Program Files/HP/QuickTest Professional/Tests/Test1", False
App.open "C:/Program Files/HP/QuickTest Professional/Tests/ExistingTest", False