如何从 Jenkins 运行 Qtp

Question

我是 QTP 的新手。我想从 Jenkins 触发 QTP。我已经使用 QTP 自动化了一个网站，然后通过以下 file->settings 获得了 vbscript。现在我希望 jenkins 触发 vbscript，以便我能够查看自动化过程。我来了知道我需要从 Jenkins 的 Build 选项中存在的 windows 批处理文件调用 vbscript。我在 windows 批处理文件中编写了一个命令 cscript "\\path to my vbscript"。但我无法运行 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。请提出一些关于如何执行它的想法

Answer 1

详细解答，

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

---

1. 首先，您需要一个有效的 QTP/UFT 脚本。我假设你已经有了。

2. 然后您需要一个使用 QTP/UFT 自动化对象模型以编程方式调用 QTP/UFT 的 VBScript 文件（类似于这里的这个）。确保您的 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
   

3. 在 Jenkins 中，创建作业。在构建步骤中选择“执行 Windows 批处理命令”。输入以下命令。您不需要 BAT 文件。

  CScript "path of the vbscript file"

4. 单击从 Jenkins 构建 - 它现在应该运行测试。