4

コマンドプロンプトからQTPテストを起動して実行する必要がある状況がいくつかあります。たとえば、Windowsタスクスケジューラを使用して夜間のさまざまな時間にQTPテストを実行したいのですが、QTP.exeを開いてテストを実行するために使用できるフラグが（一見）ありません。どうすればこれを達成できますか？

4

2 に答える 2

8

確かに、QuickTest Proでは、Allhopeを呼び出して直接C:\Program Files (x86)\HP\QuickTest Professional\bin\QTPro.exe "C:\Some Test\"
テストを実行することはできません 。ただし、すべての希望が失われることはありません。そのVBSファイルが呼び出されたときに任意のQTPテストを実行できる小さなVBSファイルを作成する方法があります。これは、テストごとに1つのバッチファイルを作成するよりもはるかに優れています。

'*******************************************************************
'RunThisTest
'by Michael Innes
'November 2012

testResourcePath = "C:\Test Logs and Results\"

'Getting the test path
Dim objArgs
Set objArgs = wscript.Arguments
testPath = objArgs(0)

'Determining that the test does exist
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
DoesFolderExist = objFSO.FolderExists(testPath)
Set objFSO = Nothing

If DoesFolderExist Then
    Dim qtApp 'Declare the Application object variable
    Dim qtTest '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 testPath, False 'Open the test in read-only mode
    Set qtTest = qtApp.Test

    'Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object
    'qtResultsOpt.ResultsLocation = testResourcePath ' Specify the location to save the test results.
    'qtTest.Run qtResultsOpt,True 'Run the test and wait until end of the test run

    qtTest.Run 'Run the test
    qtTest.Close 'Close the test
    qtApp.Quit
Else
    'Couldn't find the test folder. That's bad. Guess we'll have to report on how we couldn't find the test.
    'Insert reporting mechanism here.
End If

上記のコードを使用するには、次のようなコマンドを実行します。cscript.exe "C:\RunThisTest.vbs" "L:\Test Path\The Test Itself\"

于 2012-12-17T02:35:11.457 に答える
2

マルチスレッドドライバーツールは、スクリプトを実行できます。

> mdrv.exe -usr "c:\test\foo.usr"
于 2013-08-28T08:44:00.300 に答える