Re: How to retreive QC user's email using QC OTA API and Vbscript

Hi kasukur ,

I am able to get the user's mail id with the below code, I have removed "With" function.

I am not sure why the (With function ) is not working.

Set QCConnection = CreateObject("TDApiOle80.TDConnection")

QCConnection.InitConnectionEx "almserver" '<-- Change me.
QCConnection.Login "username", "password"
QCConnection.Connect "Domain", "ProjectName"

Dim custUsers
Dim usr
Dim UList

Set custUsers = QCConnection.Customization.Users

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

Dim maxU%, uCnt%

maxU = 5

For Each usr In UList
uCnt = uCnt + 1
MsgBox usr.Name
MsgBox usr.Email
If uCnt > maxU Then Exit For
Next usr

Exit Sub

End Sub