This function retrives the user and address from QC thru OTA.
Public Function GetProjectUsersList()
Dim td
Dim custUsers As CustomizationUsers
Dim USR As CustomizationUser
Dim UList As List
Dim td
Dim custUsers As CustomizationUsers
Dim USR As CustomizationUser
Dim UList As List
qcLoginID = ""
qcPassword = ""
qcUrl = ""
qcDomain = ""
qcProject = ""
qcPassword = "
qcUrl = "
qcDomain = "
qcProject = "
Set tdc = CreateObject("TDApiOle80.TDConnection")
tdc.InitConnectionEx qcUrl
tdc.Login qcLoginID, qcPassword
tdc.Connect qcDomain, qcProject
tdc.InitConnectionEx qcUrl
tdc.Login qcLoginID, qcPassword
tdc.Connect qcDomain, qcProject
Set custUsers = tdc.Customization.users
Set UList = custUsers.users
Set UList = custUsers.users
For Each USR In UList
MsgBox USR.Name + " : " + USR.Address
Next USR
End Function
MsgBox USR.Name + " : " + USR.Address
Next USR
End Function