自动化UFT远程代理设置

时间:2017-06-06 07:32:48

标签: vbscript qtp hp-uft alm

问题:在计算机上运行我的测试集之前,我需要在计算机上更改UFT的远程代理设置(附加图像)以编程方式

到目前为止尝试的方法: 我在互联网上查找并发现所有Remote Agent的设置值都放在文件mic.ini内,该文件放在UFT安装目录的bin文件夹中。我想过使用文件系统对象将文件作为文本流打开并进行必要的更改。但是,事实证明,我没有该bin文件夹的管理员权限,因此我无法保存在mic.ini文件中所做的更改(错误:访问被拒绝)。不幸的是,获得管理员权限对我来说不是一个选择。

除了这种方法,我找不到任何可以帮助我完成这项任务的东西。

还有其他方法可以通过编程方式更改这些设置吗?我可以使用Remote Agent的Dialog的对象模型吗?

Remote Agent Settings

1 个答案:

答案 0 :(得分:1)

注意: 这可能不是您正在寻找的答案,但这是我找到并证明自己的理由。

要开始选择取消选中Keep UFT open...选项,请直接从UFT help file注释:

  

在测试实验室运行会话结束后保持UFT打开:

     

默认情况下,ALM在测试集期间在远程计算机上打开UFT   运行(或者从Test运行选定的测试或配置时)   实验室模块),它在测试实验室运行会话结束时关闭UFT。   这可确保在此时释放UFT许可证并进行制作   可供其他UFT用户使用。

     

选择此选项会使UFT在您的计算机上保持打开状态(以及   在测试实验室运行会话结束后继续使用UFT许可证。

     

注意:只有在打开UFT时,上述行为才有意义   从SUPPORT_TESTSET_END参数设置为的ALM服务器   是(Y是默认设置)。如果从早期开放UFT   ALM的版本(或上述参数设置为N),这个   选项被忽略,UFT始终在运行结束时保持打开状态   会话。

     

有关SUPPORT_TESTEND_END参数的详细信息,请参阅相关部分   在Application Lifecycle中设置ALM配置参数   管理员指南。

如上所述,如果SUPPORT_TESTSET_END参数设置为Y,ALM将默认关闭UFT。所以我会与ALM管理团队联系。

现在,如果要取消选中Run UFT in debug mode选项,可以将UFT应用程序对象的RunMode选项保留为Fast

注意:您确实不需要执行此更改,因为默认情况下ALM将以快速模式运行UFT脚本。

以下是用于理解的示例脚本:

On Error Resume Next
Dim qtApp '~~> Declare the Application object variable

'~~> Create the UFT Application object
Set qtApp = CreateObject("QuickTest.Application") 

'~~> If UFT is notopen then open it
If qtApp.launched <> True then 
    qtApp.Launch 
End If 

'~~> Make the QUFT visible
qtApp.Visible = FALSE
If Not qtApp.TDConnection.IsConnected Then
    '~~> Make changes in a test on Quality Center with version control
    qtApp.TDConnection.Connect "QC URL","DOMAIN Name","Project Name","User Name","Password",False
End If

'--------------------------------------------------------------------
Dim defaultRunMode, fastRunMode, normalRunMode
defaultRunMode = qtApp.Options.Run.RunMode

qtApp.Options.Run.RunMode = "Fast"
fastRunMode = qtApp.Options.Run.RunMode

qtApp.Options.Run.RunMode = "Normal"
normalRunMode = qtApp.Options.Run.RunMode

Msgbox "Different RunModes" & VbCrLf & _
    VbTab & "DEFAULT RunMode : " & defaultRunMode & VbCrLf & _
    VbTab & "After FAST RunMode : " & fastRunMode & VbCrLf & _
    VbTab & "After NORMAL RunMode : " & normalRunMode
'--------------------------------------------------------------------

'~~> Script path  and script name in ALM
qtApp.Open "[ALM] Subject\QCScriptPath\ScriptName", False
qtApp.Test.Run
qtApp.TDConnection.Disconnect

'~~> Close UFT
qtApp.quit

'~~> Release Object
Set qtApp = Nothing

'~~> Handle Error
If Err.Number <> 0 Then
    Msgbox Err.Number & " : " & Err.Description
    Err.Clear
End If

这是msgbox输出:

enter image description here