Assuming that you are running multiple scripts say script1, script2, script3 you may try the following code by launching it from a .vbs file.
Code:
testSet = Array( "script1", "script2", "script3" )
Set app = CreateObject("QuickTest.Application")
If Not app .Launched Then ' If QuickTest is not yet open
app.Launch ' Start QuickTest (with the correct add-ins loaded)
End If
app.Visible = True ' Make the QuickTest application visible
For i = LBound( testSet ) To UBound( testSet )
testPath = PathFinder.Locate( testSet( i ) )
if testPath = "" Then
Reporter.ReportEvent micFail, "Executing Set", "Test " & testSet( i ) & " not found"
Exit For
End If
app.Open testSet( i ) ' Open the test
app.Test.Settings.Run.IterationMode = "oneIteration" ' Run only one iteration
app.Test.Settings.Run.OnError = "Stop"
Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object
qtResultsOpt.ResultsLocation = "C:\Tests\Results" ' Set the results location
app.Test.Run qtResultsOpt, True ' Run the test and wait for return
if StrComp( app.Test.LastRunResults.Status, "Passed" ) <> 0 Then
Reporter.ReportEvent micFail, testSet( i ), app.Test.LastRunResults.LastError
End If
Next
Set qtApp = Nothing ' Release the Application object