MS_05042016
This commit is contained in:
SchreiberM
@@ -1,19 +1,41 @@
|
||||
Imports System.DirectoryServices
|
||||
Imports System.DirectoryServices.ActiveDirectory
|
||||
Imports System.DirectoryServices.AccountManagement
|
||||
Imports System.IO
|
||||
|
||||
Public Class frmUserKonfig_AddUsers
|
||||
|
||||
Private Sub frmUserKonfig_AddUsers_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
Try
|
||||
Dim Filename As String = String.Format("{0}-UserLayout.xml", GridViewUsers.Name)
|
||||
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
|
||||
GridViewUsers.SaveLayoutToXml(XMLPath)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in SaveGrid_Layout:" & vbNewLine & ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
Cursor = Cursors.WaitCursor
|
||||
GetGroups(Environment.UserName)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
Try
|
||||
Dim Filename As String = String.Format("{0}-UserLayout.xml", GridViewUsers.Name)
|
||||
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
|
||||
If File.Exists(XMLPath) Then
|
||||
GridViewUsers.RestoreLayoutFromXml(XMLPath)
|
||||
'grvwGrid.ClearGrouping()
|
||||
GridViewUsers.ClearSelection()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load Grid_Layout:" & vbNewLine & ex.Message)
|
||||
End Try
|
||||
Cursor = Cursors.Default
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Function GetActiveDirectoryGroups() As List(Of String)
|
||||
@@ -60,41 +82,72 @@ Public Class frmUserKonfig_AddUsers
|
||||
Private Sub lbGroups_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbGroups.SelectedIndexChanged
|
||||
Dim group As String = lbGroups.SelectedItem
|
||||
Dim users As List(Of UserPrincipal) = GetUsersForGroup(group)
|
||||
|
||||
clbUsers.Items.Clear()
|
||||
DD_ECMAdmin.TBAD_Users.Clear()
|
||||
For Each user In users
|
||||
clbUsers.Items.Add(user)
|
||||
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
|
||||
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
|
||||
newUserRow.Username = user.ToString
|
||||
Try
|
||||
Dim userldap As UserPrincipal = user
|
||||
Dim PRENAME As String = userldap.GivenName
|
||||
Dim NAME As String = userldap.Surname
|
||||
Dim USERNAME As String = userldap.SamAccountName
|
||||
Dim email As String = userldap.EmailAddress
|
||||
newUserRow.Prename = PRENAME
|
||||
newUserRow.Surname = NAME
|
||||
newUserRow.Email = email
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub btnAddUsers_Click(sender As Object, e As EventArgs) Handles btnAddUsers.Click
|
||||
Dim items As CheckedListBox.CheckedItemCollection = clbUsers.CheckedItems
|
||||
'Dim items As CheckedListBox.CheckedItemCollection = clbUsers.CheckedItems
|
||||
Dim usersAdded As Integer = 0
|
||||
|
||||
If items.Count = 0 Then
|
||||
MsgBox("Keine Benutzer ausgewählt!", MsgBoxStyle.Information)
|
||||
Exit Sub
|
||||
End If
|
||||
'If items.Count = 0 Then
|
||||
' MsgBox("Keine Benutzer ausgewählt!", MsgBoxStyle.Information)
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
For Each item As UserPrincipal In items
|
||||
Dim user As UserPrincipal = item
|
||||
Dim PRENAME As String = user.GivenName
|
||||
Dim NAME As String = user.Surname
|
||||
Dim USERNAME As String = user.SamAccountName
|
||||
Dim email As String = user.EmailAddress
|
||||
Dim SQL
|
||||
If Not UserExists(USERNAME) Then
|
||||
SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_RECORD_ORG,LANGUAGE) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & USER_LANGUAGE & "')"
|
||||
If ClassDatabase.Execute_non_Query(SQL) = True Then
|
||||
usersAdded = usersAdded + 1
|
||||
End If
|
||||
Else
|
||||
SQL = "UPDATE TBDD_USER SET MODULE_RECORD_ORG = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')"
|
||||
If ClassDatabase.Execute_non_Query(SQL) = True Then
|
||||
usersAdded = usersAdded + 1
|
||||
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
|
||||
If row.Item(0) = CBool(True) Then
|
||||
Dim USERNAME As String = row.Item(1)
|
||||
|
||||
Dim PRENAME As String = row.Item(2)
|
||||
Dim NAME As String = row.Item(3)
|
||||
Dim email As String
|
||||
Try
|
||||
email = row.Item(4)
|
||||
Catch ex As Exception
|
||||
email = ""
|
||||
End Try
|
||||
Dim SQL
|
||||
If Not UserExists(USERNAME) Then
|
||||
SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_RECORD_ORG,LANGUAGE) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & USER_LANGUAGE & "')"
|
||||
If ClassDatabase.Execute_non_Query(SQL) = True Then
|
||||
usersAdded = usersAdded + 1
|
||||
End If
|
||||
Else
|
||||
SQL = "UPDATE TBDD_USER SET MODULE_RECORD_ORG = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')"
|
||||
If ClassDatabase.Execute_non_Query(SQL) = True Then
|
||||
usersAdded = usersAdded + 1
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
'For Each item As UserPrincipal In items
|
||||
' Dim user As UserPrincipal = item
|
||||
' Dim PRENAME As String = user.GivenName
|
||||
' Dim NAME As String = user.Surname
|
||||
' Dim USERNAME As String = user.SamAccountName
|
||||
' Dim email As String = user.EmailAddress
|
||||
' Dim SQL
|
||||
|
||||
'Next
|
||||
|
||||
If usersAdded = 1 Then
|
||||
MsgBox(usersAdded & " neuer Benutzer hinzugefügt", MsgBoxStyle.Information)
|
||||
@@ -123,27 +176,29 @@ Public Class frmUserKonfig_AddUsers
|
||||
End Sub
|
||||
|
||||
Private Sub tbSelectEverything_Click(sender As Object, e As EventArgs) Handles tbSelectEverything.Click
|
||||
For i = 0 To clbUsers.Items.Count - 1
|
||||
clbUsers.SetItemChecked(i, True)
|
||||
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
|
||||
row.Item(0) = CBool(True)
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub tbSelectNone_Click(sender As Object, e As EventArgs) Handles tbSelectNone.Click
|
||||
For i = 0 To clbUsers.Items.Count - 1
|
||||
clbUsers.SetItemChecked(i, False)
|
||||
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
|
||||
row.Item(0) = CBool(False)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub clbUsers_SelectedIndexChanged(sender As Object, e As EventArgs) Handles clbUsers.SelectedIndexChanged
|
||||
ToolTipController1.HideHint()
|
||||
Dim userstring As String = clbUsers.SelectedItem.ToString
|
||||
Dim userldap As UserPrincipal = clbUsers.SelectedItem
|
||||
Dim PRENAME As String = userldap.GivenName
|
||||
Dim NAME As String = userldap.Surname
|
||||
Dim USERNAME As String = userldap.SamAccountName
|
||||
Dim email As String = userldap.EmailAddress
|
||||
ToolTipController1.ShowHint("Used ldap paramters:", userstring & USERNAME & vbNewLine & email, DevExpress.Utils.ToolTipLocation.RightCenter)
|
||||
End Sub
|
||||
'Private Sub clbUsers_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
' ToolTipController1.HideHint()
|
||||
' Dim userstring As String = clbUsers.SelectedItem.ToString
|
||||
' Dim userldap As UserPrincipal = clbUsers.SelectedItem
|
||||
' Dim PRENAME As String = userldap.GivenName
|
||||
' Dim NAME As String = userldap.Surname
|
||||
' Dim USERNAME As String = userldap.SamAccountName
|
||||
' Dim email As String = userldap.EmailAddress
|
||||
' ToolTipController1.ShowHint("Used ldap paramters:", userstring & USERNAME & vbNewLine & email, DevExpress.Utils.ToolTipLocation.RightCenter)
|
||||
'End Sub
|
||||
|
||||
Private Sub RBCheck2_CheckedChanged(sender As Object, e As EventArgs) Handles RBCheck2.CheckedChanged
|
||||
If RBCheck2.Checked Then
|
||||
|
||||
Reference in New Issue
Block a user