added LSL2 stored procedures

LSL2/STPROC/AD_TEST.txt

@@ -0,0 +1,59 @@
+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