AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ms 13_01_16

Browse Source
This commit is contained in:
SchreiberM
2016-01-13 16:35:58 +01:00
parent c069274020
commit 2a36cc2a79
32 changed files with 1193 additions and 869 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
Global_Indexer/frmUserKonfig_AddUsers.vb
View File

@@ -216,7 +216,7 @@ Public Class frmUserKonfig_AddUsers
Dim d = dsResult.Properties("member").Count
For intCounter = 0 To dsResult.Properties("member").Count - 1
strUsers = dsResult.Properties("member")(intCounter).ToString
If LogErrorsOnly = False Then ClassLogger.Add(">> Usermember-String for Group: " & strUsers.ToString, False)
'Get index of equals and comma
intEqualsIndex = strUsers.IndexOf("=", 1)
intCommaIndex = strUsers.IndexOf(",", 1)
@@ -270,6 +270,10 @@ Public Class frmUserKonfig_AddUsers
End If
For Each user In users
If user.EndsWith("/") Or user.EndsWith("\") Then
user = user.Replace("/", "")
user = user.Replace("\", "")
End If
clbUsers.Items.Add(user)
Next
Me.Cursor = Cursors.Default
@@ -287,24 +291,36 @@ Public Class frmUserKonfig_AddUsers
End If
For Each item In items
Dim user As String = item.ToString
Dim PRENAME As String = GetProperty_LDAP(user, "givenName")
Dim NAME As String = GetProperty_LDAP(user, "sn")
Dim email As String = GetProperty_LDAP(user, "mail")
Dim USERNAME As String = GetProperty_LDAP(user, "samaccountname")
Dim SQL
If Not UserExists(USERNAME) Then
SQL = String.Format("INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_GI,ADDED_WHO) VALUES('{0}', '{1}', '{2}','{3}',1,'{4}')", PRENAME, NAME, USERNAME, email, Environment.UserName)
If ClassDatabase.Execute_non_Query(SQL) = True Then
usersAdded = usersAdded + 1
Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain)
Dim usr As UserPrincipal = UserPrincipal.FindByIdentity(ctx, IdentityType.Name, item.ToString)
If Not IsNothing(usr) Then
'Dim user As String = item.ToString
'Dim PRENAME As String = GetProperty_LDAP(user, "givenName")
'Dim NAME As String = GetProperty_LDAP(user, "sn")
'Dim email As String = GetProperty_LDAP(user, "mail")
'Dim USERNAME As String = GetProperty_LDAP(user, "samaccountname")
Dim PRENAME As String = usr.GivenName
Dim NAME As String = usr.Surname
Dim USERNAME As String = usr.SamAccountName
Dim email As String = usr.EmailAddress
Dim SQL
If Not UserExists(USERNAME) Then
SQL = String.Format("INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_GI,ADDED_WHO) VALUES('{0}', '{1}', '{2}','{3}',1,'{4}')", PRENAME, NAME, USERNAME, email, Environment.UserName)
If ClassDatabase.Execute_non_Query(SQL) = True Then
usersAdded = usersAdded + 1
End If
Else
SQL = "UPDATE TBDD_USER SET MODULE_GI = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')"
If ClassDatabase.Execute_non_Query(SQL) = True Then
usersAdded = usersAdded + 1
End If
End If
Else
SQL = "UPDATE TBDD_USER SET MODULE_GI = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')"
If ClassDatabase.Execute_non_Query(SQL) = True Then
usersAdded = usersAdded + 1
End If
MsgBox("Für den User '" & item.ToString & "' konnte kein Userprincipal aus der LDAP erstellt werden!", MsgBoxStyle.Information)
End If
Next
If usersAdded = 1 Then
@@ -362,4 +378,24 @@ Public Class frmUserKonfig_AddUsers
' MsgBox(email)
' End If
'End Sub
Private Sub clbUsers_MouseClick(sender As Object, e As MouseEventArgs) Handles clbUsers.MouseClick
Try
ToolTipController1.HideHint()
Dim userstring As String = clbUsers.SelectedItem.ToString
Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain)
Dim usr As UserPrincipal = UserPrincipal.FindByIdentity(ctx, IdentityType.Name, userstring)
If Not IsNothing(usr) Then
Dim PRENAME As String = usr.GivenName
Dim NAME As String = usr.Surname
Dim USERNAME As String = usr.SamAccountName
Dim email As String = usr.EmailAddress
ToolTipController1.ShowHint("SamAccountName: " & USERNAME & vbNewLine & "GivenName: " & PRENAME & vbNewLine & "Surname: " & NAME & vbNewLine & "EmailAddress: " & email, "Preview LDAP-Parameter:", DevExpress.Utils.ToolTipLocation.RightCenter)
End If
ctx.Dispose()
Catch ex As Exception
MsgBox("Error in getting Userinfo LDAP:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class