如何从 Jenkins 运行 Qtp

Question

我是 QTP 新手。我想从 Jenkins.I 触发 QTP 使用 QTP 自动化了一个网站，然后通过以下文件获得了 vbscript->settings.Now 我希望 jenkins 触发 vbscripts 这样我就可以查看自动化 process.I 知道我需要从 windows 批处理文件中调用 vbscript，该批处理文件存在于 Jenkins.I 的构建选项中，在我的 [=28] 中编写了一个命令 cscript "\path to my vbscript" =] 批处理 file.But 我无法运行 vbscript。

我发现了一个类似的问题（QTP to Jenkins integration help need CI），但由于我对 QTP 和 Jenkins 的无知，我无法得到结果。

这是我的 vbscript

`Dim App 'As Application
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.Test.Settings.Launchers("Flex").Active = False
App.Test.Settings.Launchers("Flex").Applications.RemoveAll
App.Test.Settings.Launchers("Java").Active = False
App.Test.Settings.Launchers("Java").CommandLine = ""
App.Test.Settings.Launchers("Java").WorkingDirectory = ""
App.Test.Settings.Launchers("Siebel").Active = False
App.Test.Settings.Launchers("Siebel").Version = "77"
App.Test.Settings.Launchers("Siebel").Address = ""
App.Test.Settings.Launchers("Siebel").AutoLogin = True
App.Test.Settings.Launchers("Siebel").User = ""
App.Test.Settings.Launchers("Siebel").Password = ""
App.Test.Settings.Launchers("Siebel").LogoutOnExit = True
App.Test.Settings.Launchers("Siebel").CloseOnExit = True
App.Test.Settings.Launchers("Siebel").SiebAutomationRequestTimeout = 120
App.Test.Settings.Launchers("Siebel").SiebAutomationAccessCode = ""
App.Test.Settings.Launchers("Web").Active = True
App.Test.Settings.Launchers("Web").Browser = "IE"
App.Test.Settings.Launchers("Web").Address = "https://orbit.sonata-software.com"
App.Test.Settings.Launchers("Web").CloseOnExit = True
App.Test.Settings.Launchers("Windows Applications").Active = True
App.Test.Settings.Launchers("Windows Applications").Applications.RemoveAll
App.Test.Settings.Launchers("Windows Applications").RecordOnQTDescendants = True
App.Test.Settings.Launchers("Windows Applications").RecordOnExplorerDescendants = False
App.Test.Settings.Launchers("Windows Applications").RecordOnSpecifiedApplications = True
App.Test.Settings.Run.IterationMode = "rngAll"
App.Test.Settings.Run.StartIteration = 1
App.Test.Settings.Run.EndIteration = 1
App.Test.Settings.Run.ObjectSyncTimeOut = 20000
App.Test.Settings.Run.DisableSmartIdentification = False
App.Test.Settings.Run.OnError = "Dialog"
App.Test.Settings.Resources.DataTablePath = "<Default>"
App.Test.Settings.Resources.Libraries.RemoveAll
App.Test.Settings.Web.BrowserNavigationTimeout = 60000
App.Test.Settings.Web.ActiveScreenAccess.UserName = ""
App.Test.Settings.Web.ActiveScreenAccess.Password = ""
App.Test.Settings.Java.EditSet.KeyPressed = True
App.Test.Settings.Java.EditSet.KeyTyped = True
App.Test.Settings.Java.EditSet.KeyReleased = True
App.Test.Settings.Java.EditSet.InputMethod = False
App.Test.Settings.Java.EditSet.FocusLost = False
App.Test.Settings.Java.EditSet.JavaAPI = False
App.Test.Settings.Java.EditSet.JavaAPICharactersToExclude = "\t\n\r"
App.Test.Settings.Java.DeviceReplay.Click = False
App.Test.Settings.Java.DeviceReplay.DoubleClick = False
App.Test.Settings.Java.DeviceReplay.Type = False
App.Test.Settings.Java.DeviceReplay.DragDrop = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' System Local Monitoring settings
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
App.Test.Settings.LocalSystemMonitor.Enable = false
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Log Tracking settings
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With App.Test.Settings.LogTracking 
    .IncludeInResults = False 
    .Port = 18081 
    .IP = "127.0.0.1" 
    .MinTriggerLevel = "ERROR" 
    .EnableAutoConfig = False 
    .RecoverConfigAfterRun = False 
    .ConfigFile = "" 
    .MinConfigLevel = "WARN" 
End With`

我无法执行我的 vbscript.Please 提出一些关于如何执行它的想法

Answer 1

详细解答，

http://www.testautomationguru.com/executing-qtpuft-scripts-using-jenkins/

首先您需要一个有效的 QTP/UFT 脚本。我假设你已经有了。
然后您需要一个 VBScript 文件，它使用 QTP/UFT 自动化对象模型以编程方式调用 QTP/UFT（类似于此处的这个）。确保您的 vbscript 工作正常。
```
Set QTP = CreateObject("QuickTest.Application")
QTP.Launch
QTP.Visible = TRUE
QTP.Open "path of the qtp test", TRUE
QTP.Test.Run NOTHING, TRUE
QTP.Test.Close
QTP.Quit
```
在 Jenkins 中，创建一个作业。 Select 'Execute Windows Batch Command' 在构建步骤中。输入以下命令。您不需要 BAT 文件。

  CScript "path of the vbscript file"

单击 Jenkins 构建 - 现在应该运行进行测试。

如何从 Jenkins 运行 Qtp

how to run Qtp from Jenkins

vbscript

jenkins

automation

jenkins-plugins

qtp