224 lines
8.9 KiB
VB.net
224 lines
8.9 KiB
VB.net
Imports System.Net.Dns
|
|
|
|
Public Class Login
|
|
Property userPrincipalName As String = ""
|
|
Property BenutzeranmeldeName As String = ""
|
|
|
|
Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim LDAP As String = ReturnLDAP(Environment.UserDomainName)
|
|
Class1.LoggedOnUser.FillWithLoggedOnUser(True, LDAP)
|
|
Class1.DebugText = LDAP
|
|
' Class1.DebugText &= Environment.UserDomainName & vbCrLf
|
|
'Class1.DebugText &= ReturnLDAP(Environment.UserDomainName) & vbCrLf
|
|
Class1.CheckDebug()
|
|
Try
|
|
userPrincipalName = System.DirectoryServices.AccountManagement.UserPrincipal.Current.UserPrincipalName
|
|
Catch ex As Exception
|
|
MsgBox("Login_Load: " & ex.Message)
|
|
End Try
|
|
|
|
BenutzeranmeldeName = Environment.UserDomainName & "\" & Environment.UserName
|
|
' MsgBox(userPrincipalName & vbCrLf & BenutzeranmeldeName)
|
|
End Sub
|
|
|
|
Private Function ReturnLDAP(ByVal DomainName As String) As String
|
|
Select Case DomainName
|
|
Case "IMEX"
|
|
Return "LDAP://DC=IMEX,DC=LOCAL"
|
|
Case "VERAGNEUHAUS"
|
|
Return "LDAP://DC=VERAGNEUHAUS,DC=LOCAL"
|
|
Case "VERAGOST"
|
|
Return "LDAP://DC=VERAG,DC=OST,DC=DMN"
|
|
End Select
|
|
End Function
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
lblInfo.Text = ""
|
|
Login()
|
|
' Timer1.Enabled = False
|
|
End Sub
|
|
|
|
Public Sub Login()
|
|
Timer1.Enabled = False
|
|
Try
|
|
Abfrage(userPrincipalName)
|
|
Catch
|
|
MsgBox("Fehler beim Anmelden!")
|
|
PasswortabfrageLogin.Show()
|
|
End Try
|
|
End Sub
|
|
|
|
Public Function Abfrage(user As String, Optional ByVal txt As Boolean = False)
|
|
Dim locGroups As List(Of String) = GetUserGroupMembership(user)
|
|
Dim gefunden As Boolean = False
|
|
' Dim debugtext As String = ""
|
|
Class1.LoggedOnUser.FillWithLoggedOnUser(True)
|
|
Class1.GroupUsers = uscntr_Benutzer.LoadAllGroupmembers()
|
|
'showusersinlist()
|
|
|
|
For Each usr As cBenutzer In Class1.GroupUsers
|
|
'MsgBox(usr.msDSPrincipalName & vbCrLf & cSharedClasses.LoggedOnUser.msDSPrincipalName)
|
|
If usr.msDSPrincipalName.ToString = Class1.LoggedOnUser.msDSPrincipalName.ToString Then
|
|
' MsgBox("Treffer!")
|
|
Class1.LoggedOnUserRights = cBerechtigungen.ReadAll(Class1.LoggedOnUser.BenutzeranmeldeName)
|
|
gefunden = True
|
|
ShowMain()
|
|
Me.Hide()
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
'For Each group As String In locGroups
|
|
' debugtext &= group & vbCrLf
|
|
' If group = "CN=SG_Doku_User_FULL" Then
|
|
' Class1.LoggedOnUser.FillWithLoggedOnUser(True)
|
|
' Class1.LoggedOnUserRights = cBerechtigungen.ReadAll(Class1.LoggedOnUser.BenutzeranmeldeName)
|
|
' gefunden = True
|
|
' 'Main.Show()
|
|
' 'Class1.GroupUsers = uscntr_Benutzer.LoadAllGroupmembers()
|
|
' 'showusersinlist()
|
|
' ShowMain()
|
|
' Me.Hide()
|
|
' End If
|
|
'Next
|
|
' MsgBox(debugtext)
|
|
If gefunden = True Then
|
|
|
|
Exit Function
|
|
Else
|
|
Me.WindowState = Me.WindowState.Normal
|
|
PanHilfe.Visible = True
|
|
If txt = True Then lblInfo.Text = "Benutzer ist nicht berechtigt!"
|
|
End If
|
|
|
|
End Function
|
|
|
|
Function showusersinlist()
|
|
Dim stringi As String = ""
|
|
For Each ben As cBenutzer In Class1.GroupUsers
|
|
stringi &= ben.BenutzeranmeldeName & ", " & ben.distinguishedName & vbCrLf
|
|
Next
|
|
MsgBox(stringi)
|
|
End Function
|
|
|
|
Public Function ValidateADUser(ByVal Username As String, ByVal Password As String, Optional ByVal Standort As String = "VeragSub") As Boolean
|
|
Dim LDAP As String = ""
|
|
Select Case Standort
|
|
Case "VeragSub"
|
|
LDAP = "LDAP://DC=VERAG,DC=OST,DC=DMN"
|
|
Case "IMEX"
|
|
LDAP = "LDAP://DC=IMEX,DC=LOCAL"
|
|
End Select
|
|
'Find valid user in Active Directory
|
|
Dim Success As Boolean = False
|
|
Dim Entry As New System.DirectoryServices.DirectoryEntry(LDAP, Username, Password, DirectoryServices.AuthenticationTypes.Secure)
|
|
Dim Searcher As New System.DirectoryServices.DirectorySearcher(Entry)
|
|
|
|
Searcher.SearchScope = DirectoryServices.SearchScope.OneLevel
|
|
Try
|
|
Dim Results As System.DirectoryServices.SearchResult = Searcher.FindOne
|
|
Success = Not (Results Is Nothing)
|
|
Catch ex As Exception
|
|
Success = False
|
|
End Try
|
|
Return Success
|
|
End Function
|
|
|
|
Friend Function GetUserGroupMembership(ByVal locUsername As String) As List(Of String)
|
|
Dim locResult As New List(Of String)
|
|
Try
|
|
Dim locDirectoryEntry As New DirectoryServices.DirectoryEntry("LDAP://DC=VERAG,DC=OST,DC=DMN") ' ActiveDirectory-Pfad anpassen
|
|
|
|
Dim locDirectorySearcher As New DirectoryServices.DirectorySearcher(locDirectoryEntry, "sAMAccountName=" & locUsername)
|
|
Dim locSearchResult As DirectoryServices.SearchResult = locDirectorySearcher.FindOne
|
|
If locSearchResult IsNot Nothing Then
|
|
Dim locUserEntry As New DirectoryServices.DirectoryEntry(locSearchResult.Path)
|
|
Dim locGroups As Object = locUserEntry.Invoke("Groups")
|
|
For Each locGroupObj As Object In DirectCast(locGroups, IEnumerable)
|
|
Dim locGroupEntry As New DirectoryServices.DirectoryEntry(locGroupObj)
|
|
locResult.Add(locGroupEntry.Name)
|
|
Next
|
|
Else
|
|
Debug.WriteLine("User nicht gefunden!")
|
|
End If
|
|
|
|
Dim locDirectorySearcher2 As New DirectoryServices.DirectorySearcher(locDirectoryEntry, "userPrincipalName=" & locUsername)
|
|
Dim locSearchResult2 As DirectoryServices.SearchResult = locDirectorySearcher2.FindOne
|
|
If locSearchResult2 IsNot Nothing Then
|
|
Dim locUserEntry As New DirectoryServices.DirectoryEntry(locSearchResult2.Path)
|
|
Dim locGroups As Object = locUserEntry.Invoke("Groups")
|
|
For Each locGroupObj As Object In DirectCast(locGroups, IEnumerable)
|
|
Dim locGroupEntry As New DirectoryServices.DirectoryEntry(locGroupObj)
|
|
locResult.Add(locGroupEntry.Name)
|
|
Next
|
|
Else
|
|
Debug.WriteLine("User nicht gefunden!")
|
|
End If
|
|
|
|
'Dim locDirectorySearcher3 As New DirectoryServices.DirectorySearcher(locDirectoryEntry, "msDS-PrincipalName=" & locUsername)
|
|
'Dim locSearchResult3 As DirectoryServices.SearchResult = locDirectorySearcher3.FindOne
|
|
'If locSearchResult3 IsNot Nothing Then
|
|
' Dim locUserEntry As New DirectoryServices.DirectoryEntry(locSearchResult3.Path)
|
|
' Dim locGroups As Object = locUserEntry.Invoke("Groups")
|
|
' For Each locGroupObj As Object In DirectCast(locGroups, IEnumerable)
|
|
' Dim locGroupEntry As New DirectoryServices.DirectoryEntry(locGroupObj)
|
|
' locResult.Add(locGroupEntry.Name)
|
|
' Next
|
|
'Else
|
|
' Debug.WriteLine("User nicht gefunden!")
|
|
'End If
|
|
|
|
|
|
Catch ex As Exception
|
|
MessageBox.Show("GetUserGroupMembership: " & ex.Message, "GetUserGroupMembership", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
End Try
|
|
Return locResult
|
|
End Function
|
|
|
|
|
|
|
|
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
|
|
If ValidateADUser(txtUser.Text, txtPassword.Text) Then
|
|
Abfrage(txtUser.Text, True)
|
|
Else
|
|
lblInfo.Text = "Benutzername / Passwort falsch"
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtPassword_KeyDown(sender As Object, e As KeyEventArgs) Handles txtPassword.KeyDown
|
|
If e.KeyCode = Keys.KeyCode.Enter Then
|
|
btnLogin.PerformClick()
|
|
End If
|
|
End Sub
|
|
|
|
Function getLDAPPAth(ByVal DomainName As String) As String
|
|
Select Case DomainName
|
|
Case "VERAGOST"
|
|
Case "VERAG-NCTS"
|
|
Case ""
|
|
End Select
|
|
End Function
|
|
|
|
Function ShowMain()
|
|
Dim main As New Main
|
|
|
|
For Each right As cBerechtigungen In Class1.LoggedOnUserRights
|
|
If right.Standort = "DokuAdmin" And right.Zugriff = "Y" Then
|
|
Class1.LoggedOnUserisAdmin = True
|
|
main.BenutzerToolStripMenuItem.Enabled = True
|
|
main.NetzwerkeToolStripMenuItem.Enabled = True
|
|
Exit For
|
|
Else
|
|
main.BenutzerToolStripMenuItem.Enabled = False
|
|
main.NetzwerkeToolStripMenuItem.Enabled = False
|
|
End If
|
|
Next
|
|
|
|
main.Show()
|
|
|
|
End Function
|
|
|
|
|
|
End Class
|
|
|
|
'userPrincipalName |