Please find the Version1.2 to run Multiple Scripts Via Automation Object Model (AOM).
This code has been tested on QTP 9.0 and it works FINE.

All files and folders paths are just for the illustration purpose. You can create any path you desire. This code assumes that you have assigned the Object Repositry manually to each script that you want to run.

<u>STEPS to run following scripts:</u>
1)Create TWO scripts called Script1 and Script2

2)Save these scripts into C:\Temp\Automation\

3)Open notepad and copy Entire below CODE into File called "RunMultipleTestVia_AOM.vbs" and save it under "C:\Program Files\Mercury Interactive\QuickTest Professional\Tests"

4)Now close if any QTP session is OPEN

5) Double click on file called "RunMultipleTestVia_AOM.vbs"

6) Input box will be displayed. Enter the path where all your scripts are located. In this case: C:\Temp\Automation\

7) Click OK

8) Once execution is done, open ResultFile with format "sResultFile_MM_DD_YYYY_HH_MM_SS_PMorAM.txt"
from "C:\Program Files\Mercury Interactive\QuickTest Professional\Tests\

<font class="small">Code:</font><hr /><pre>
' Global Variables
sResultFilePath="C:\Program Files\Mercury Interactive\QuickTest Professional\Tests\"
sResultFileName="sResultFile" &amp; "_" &amp; Replace(Replace(Replace(Date &amp; "_" &amp; Time,"/","_"),":","_")," ","_") &amp; ".txt"
sResultFileLocation=sResultFilePath &amp; sResultFileName

'sObjectRepositoryPath="C:\Automation\QTP\DriverFi le.vbs"

' ******* PLEASE DO NOT MODIFY BELOW THIS LINE **************

Function u_GetFolderName(sFolderName)
Dim fso, f, f1, fc, s
dim arrFolderNames
ReDim arrFolderNames(0)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(sFolderName)
Set fc = f.SubFolders
For Each f1 in fc
ReDim Preserve arrFolderNames(i)
arrFolderNames(i) =
i = i + 1
End Function

Function ReportFolderStatus(fldr)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(fldr)) = "False" Then
msg = fldr &amp; " exists."
msg = fldr &amp; " doesn't exist."
End If
ReportFolderStatus = msg
End Function

sFolderPath = InputBox("Enter the Folder Path where Scripts are Located","Script Folder Path")

If Right(sFolderPath,1) &lt;&gt; "\" then
sFolderPath=sFolderPath &amp; "\"
End If

If IsEmpty(sFolderPath) = "True" then
' User clicked on Cancel button. Exit the test
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
While fso.FolderExists(sFolderPath) = "False"
If IsEmpty(sFolderPath) = "True" then
' User clicked on Cancel button. Exit the test
end if
msgbox sFolderPath &amp; " NOT found"
sFolderPath = InputBox("Enter the Folder Path where Scripts are Located","Script Folder Path")
End If

Call ReportFolderStatus(sFolderPath)

arrScripts= u_GetFolderName(sFolderPath)

Dim App
' Launch QuickTest Professional and make it visible.
Set App = CreateObject("QuickTest.Application")
App.Visible = True

'A collection of properties that indicate preferences for the run results.
Set qtResultsObj = CreateObject("QuickTest.RunResultsOptions")

' This code is to create "sResultFile.txt" file
Dim fso1, tf
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set tf = fso1.CreateTextFile(sResultFileLocation, True)

' Loop through all the tests in the arrScripts.
For i = 0 to UBound (arrScripts)
' Open the test in QuickTest Professional.
App.Open sFolderPath &amp; arrScripts(i), True

' Add a Dynamic Object Repository
'App.Test.Settings.Resources.Libraries.Add sObjectRepositoryPath

' Get the test object.
Set qtTest = App.Test
' Set the results location
qtResultsObj.ResultsLocation = sFolderPath &amp; arrScripts(i) &amp; "\Res1"

' This statement specifies a test results location.
qtTest.Run qtResultsObj, True

' Run the script using the default test results options.
' qtTest.Run
tf.Write (sFolderPath &amp; arrScripts(i) &amp; " ==&gt; " &amp; qtTest.LastRunResults.Status) &amp; vbcrlf

' Close the test.
qtTest.Close 'Close the test
' Close QuickTest Professional.

' Release the created objects.
set qtResultsObj = nothing
set qtTest = nothing
set App = nothing

</pre><hr />