问题:在计算机上运行我的测试集之前,我需要在计算机上更改UFT的远程代理设置(附加图像)以编程方式。
到目前为止尝试的方法:
我在互联网上查找并发现所有Remote Agent的设置值都放在文件mic.ini
内,该文件放在UFT安装目录的bin文件夹中。我想过使用文件系统对象将文件作为文本流打开并进行必要的更改。但是,事实证明,我没有该bin文件夹的管理员权限,因此我无法保存在mic.ini文件中所做的更改(错误:访问被拒绝)。不幸的是,获得管理员权限对我来说不是一个选择。
除了这种方法,我找不到任何可以帮助我完成这项任务的东西。
还有其他方法可以通过编程方式更改这些设置吗?我可以使用Remote Agent的Dialog的对象模型吗?
答案 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输出: