COMPILE function AD_Test()
#pragma precomp SRP_PreCompiler

Declare function SRPLogonAPI_ValidateUser, RTI_LDAP_Groups_for_user, Datetime, Time, GetTickCount
Declare Subroutine Set_Property

Username = 'Ouellette'
Password = 'IndianSc0ut2019*'
/*Domain = 'INFINEON.COM'
*Domain = 'infineon.com'
start = Datetime()

test = SRPLogonAPI_ValidateUser(Username, Password, Domain)
ADGroups    = RTI_LDAP_Groups_for_User(Username, Domain)

stop = Datetime()

timeToComplete = stop - start
*/

AccessLevel = -1    ; // Assume no access for now.

// Step 1 - Validate the username and password against one of the approved non-EC domains.
ValidUser   = 0    ; // Assume not valid for now.

*        Domains     = 'na.infineon.com,na,infineon.com'
debug
* List =''
*i = 1
* Domains     = 'MESSR001.infineon.com,MESSR002.infineon.com,MESSC001.NA.INFINEON.COM,MESSC002.NA.INFINEON.COM,LEOSR001.INFINEON.COM'
Username     = 'Ouellette'
Domain       = 'MESSR001.infineon.com'
Groups = RTI_LDAP_Groups_for_User(Username, Domain)

return 
* ValidUser   = SRPLogonAPI_ValidateUser(Username, Password, Domain)
* For Each Domain in Domains using ','
*    Start = GetTickCount()
*    ValidUser   = SRPLogonAPI_ValidateUser(Username, Password, Domain)
*    Stop = GetTickCount()
*    Difference = Stop - Start
*    List<i, 1> = Domain
*    List<i, 2> = Difference
*    i=i+1
* 
* Next Domain

i = 1
For Each Domain in Domains using ','
    Start = GetTickCount()
    Groups = RTI_LDAP_Groups_for_User(Username, Domain)
    Stop = GetTickCount()
    Difference = Stop - Start
    List<i, 3> = Difference
    i=i+1

Next Domain
Set_Property(@Window : '.TABLE_1', 'LIST', List)
return 0
