VBS to launch QTP 9.2 and invoke script automatically

[lucky.qa]

************************************************************************************************************************

'Description:

'

'This example configures QuickTest views and panes for running QuickTest in visible mode.

'************************************************************************************************************************

Code:

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object

qtApp.Launch ' Start QuickTest





qtApp.ActivateView "ExpertView" ' Display the Expert View

qtApp.ShowPaneScreen "ActiveScreen", True ' Display the Active Screen pane

qtApp.ShowPaneScreen "DataTable", False ' Hide the Data Table pane

qtApp.ShowPaneScreen "DebugViewer", True ' Display the Debug Viewer pane

qtApp.WindowState = "Maximized" ' Maximize the QuickTest window

qtApp.Visible = True ' Make the QuickTest window visible



Set qtApp = Nothing ' Release the Application object

--------------------------------------------------------------------------------