Question

问题：在计算机上运行我的测试集之前，我需要在计算机上更改UFT的远程代理设置（附加图像）以编程方式。

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

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

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

Answer 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输出：

自动化UFT远程代理设置

1 个答案: