Question

我有2个ALM（11和12.5），使用以下代码，我可以连接到ALM11，但它表示12.5 ALM的用户名和密码无效，（用户凭据正确）

Function ALM_Connection(ByRef TDConnection, server, user, pwd)

    On Error Resume Next
    Dim fileArray
    almLogin.connectionMessage.ForeColor = vbBlue
    Set TDConnection = CreateObject("tdconnection")
    sUserName = user
    sPassword = pwd
    If Trim(sUserName) = "" Or Trim(sPassword) = "" Then
        almLogin.connectionMessage.ForeColor = vbRed
        almLogin.connectionMessage.Caption = "Please Enter the data and click on 'Authenticate'"
        ALM_Connection = False
        Exit Function
    End If
    almLogin.connectionMessage.Caption = " Please Wait.. "
    Application.Wait (Now + TimeValue("0:00:02"))
    TDConnection.InitConnectionEx server
    TDConnection.Login sUserName, sPassword

    If (TDConnection.loggedin <> True) Then
        almLogin.connectionMessage.ForeColor = vbRed
        almLogin.connectionMessage.Caption = "Invalid UserName or Password"
        ALM_Connection = False
        Exit Function
    Else
        almLogin.connectionMessage.Caption = "Logged In Successfully"
        ALM_Connection = True
    End If

End Function

感谢任何帮助

Answer 1

我通常使用以下语法来创建OTA对象

设置TDconnection = CreateObject（“tdapiole80.tdconnection”）

但是，由于连接和身份验证包含在“On Error Resume Next”中，因此错误消息实际上可能无法反映真实原因。

所以，这就是我要做的调试。

删除On Error Resume Next并检查代码是否可以创建TDConnection对象
安装正确版本的HP ALM Addin。
控制台输出“err.description”以了解真正的原因

Answer 2

正如我从代码中看到的那样，当TDConnection.loggedin属性不为True时，它会抛出消息“无效的用户名或密码”，但可能是由于其他原因，例如错误的OTAClient.dll库（它们不向后兼容）。因此，在一般情况下，您应该在机器上注册您的ALM客户端（server_url / qcbin - ＆gt;工具 - ＆gt;注册客户端），然后再尝试一次。

如果没有帮助，您可以尝试使用官方文档中的示例重写代码http://alm-help.saas.hpe.com/en/12.50/api_refs/ota/topic96.html

Answer 3

此问题是由于项目不可用。另请检查您是否可以访问v12.5中的任何一个项目。

感谢。

无法使用vb宏建立与ALM 12.5的连接

3 个答案: