61 lines
1.7 KiB
Plaintext
61 lines
1.7 KiB
Plaintext
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
|
|
|