Moved Citrix handler to separate class

This commit is contained in:
Jakob A. Dam 2015-04-09 09:07:00 +02:00 committed by Jakob Aarøe Dam
parent 9d50d9ca7c
commit fd9c8db357
3 changed files with 282 additions and 274 deletions

View file

@ -209,9 +209,11 @@ Public Class RDSHandler
tokenTimestamps(mUsername) = Now
If mUseSMSFactor Then
Console.WriteLine("SMS: ")
ElseIf mUseEmailFactor Then
Console.WriteLine("Email: ")
Console.WriteLine("TODO: Send SMS")
End If
If mUseEmailFactor Then
Console.WriteLine("TODO: Send Email")
End If
Dim attributes As New RADIUSAttributes
@ -230,7 +232,6 @@ Public Class RDSHandler
Dim ldapDomain As String = CICRadarR.LDAPDomain
Console.WriteLine("Authenticating: LDAPPAth: " & "LDAP://" & ldapDomain & ", Username: " & mUsername)
Console.WriteLine("Passowrd: " & password)
Dim dirEntry As New DirectoryEntry("LDAP://" & ldapDomain, mUsername, password)
Dim obj As Object = dirEntry.NativeObject