Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
- Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
- Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
- qtApp.Launch ' Start QuickTest
- qtApp.Visible = True ' Make the QuickTest application visible
- qtApp.Open "C:Tempsimple_test", True ' Open the test in read-only mode
- ' set run settings for the test
- Set qtTest = qtApp.Test
- qtTest.Run ' Run the test
- WScript.StdOut.Write "Status is:" & qtTest.LastRunResults.Status ' Check the results of the test run
- qtTest.Close ' Close the test
- Set qtResultsOpt = Nothing ' Release the Run Results Options object
- Set qtTest = Nothing ' Release the Test object
- Set qtApp = Nothing ' Release the Application object
Add Comment
Please, Sign In to add comment