vbscript - HP QC Script Editor でユーザーの電子メール アドレスを読み取るには?

Question

HP Quality Center Scripting Editor 内では、「user」オブジェクトを使用して現在のユーザー情報 (ユーザー名や氏名など) にアクセスできます。

現在のユーザーの電子メール アドレス プロパティにアクセスするにはどうすればよいですか?

Answer 1

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