pre cutover push
This commit is contained in:
@ -37,7 +37,7 @@ $insert EVENT_SETUP
|
||||
$insert MSG_EQUATES
|
||||
|
||||
Declare subroutine SRP_Show_Window
|
||||
Declare function Security_Services, SRP_Logon
|
||||
Declare function Security_Services, Active_Directory_Services
|
||||
|
||||
|
||||
// Update the arguments so that the OpenInsight OLE event will treate the ActiveX event as a native event handler.
|
||||
@ -121,7 +121,7 @@ Event PUB_OK.CLICK()
|
||||
EnteredUser = Security_Services('GetLSLUser', Username)
|
||||
If ValidUser EQ EnteredUser then
|
||||
// Correct User, move onto check password
|
||||
Result = SRP_Logon('ValidateUser', Username, Password, Domain)
|
||||
Result = Active_Directory_Services('AuthenticateUser', Username, Password, Domain)
|
||||
end else
|
||||
// Wrong User
|
||||
Msg(@Window, 'Invalid credentials.')
|
||||
|
Reference in New Issue
Block a user