OTA - Reading Name and Address from QC thru vbscript

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

        qcLoginID = ""
        qcPassword = ""
        qcUrl = ""
        qcDomain = ""
        qcProject = ""

            Set tdc = CreateObject("TDApiOle80.TDConnection")
            tdc.InitConnectionEx qcUrl
            tdc.Login qcLoginID, qcPassword
            tdc.Connect qcDomain, qcProject

           Set custUsers = tdc.Customization.users
            Set UList = custUsers.users          

            For Each USR In UList
                 MsgBox USR.Name + " : " + USR.Address
            Next USR
End Function