当前位置：文江博客话题详情

如何在 HP QC 脚本编辑器中读取用户电子邮件地址？

发布于 2024-08-21 23:50:08 字数 91 浏览 4 评论 0原文

在 HP Quality Center 脚本编辑器中，我可以使用“用户”对象访问当前用户信息（例如用户名或全名）。

如何访问当前用户的电子邮件地址属性？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

横笛休吹塞上声 2024-08-28 23:50:08

从我在 QC 工作流程文档中看到的内容，用户对象只有这些属性：FullName、IsInGorup 和 UserName。

在这种情况下，您需要访问完整的用户数据，您可以通过使用 OTA 公开的自定义元数据来获取这些数据。

要获取用户信息，您需要获取具有 Email 属性的 CustomizationUser 对象。
以下是有关迭代用户列表的文档中的示例：

Sub ListUsers()

  Dim custUsers As CustomizationUsers
  Dim USR As CustomizationUser
  Dim UList As List

  Set custUsers = tdc.Customization.Users

  Set UList = custUsers.Users
  Debug.Print UList.Count

  Dim maxU%, uCnt%

  maxU = 5

  For Each USR In UList
    uCnt = uCnt + 1
    With USR
        Debug.Print .name & ", " & .Email
    End With
    If uCnt > maxU Then Exit For
  Next USR

Exit Sub
ErrorHandler:
    ErrHandler err
End Sub

From what I can see in QC workflow documentation, the user object only had these properties: FullName, IsInGorup and UserName.

Since this is the case, you need access to the full user data, which you can get by using the customization metadata exposed by OTA.

To get user info, you need to get the CustomizationUser object which has an Email property.
Here is a sample from documentation on iterating over the users list:

Sub ListUsers()

  Dim custUsers As CustomizationUsers
  Dim USR As CustomizationUser
  Dim UList As List

  Set custUsers = tdc.Customization.Users

  Set UList = custUsers.Users
  Debug.Print UList.Count

  Dim maxU%, uCnt%

  maxU = 5

  For Each USR In UList
    uCnt = uCnt + 1
    With USR
        Debug.Print .name & ", " & .Email
    End With
    If uCnt > maxU Then Exit For
  Next USR

Exit Sub
ErrorHandler:
    ErrHandler err
End Sub

回复收藏 0 原文

~没有更多了~