58 lines
2.2 KiB
VB.net
58 lines
2.2 KiB
VB.net
Imports DevExpress.XtraGrid.Views.Grid
|
|
|
|
Public Class frmADImport_Groups
|
|
Private Sub frmADImport_Groups_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
Try
|
|
'TBDD_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
|
|
'TBDD_GROUPSTableAdapter.Fill(DS_ChangeS.TBDD_GROUPS)
|
|
|
|
Dim groups = ClassActiveDirectory.GetActiveDirectoryGroups()
|
|
|
|
UserDataSet.TBLOCAL_ADGROUPS.Clear()
|
|
|
|
For Each group In groups
|
|
UserDataSet.TBLOCAL_ADGROUPS.AddTBLOCAL_ADGROUPSRow(group)
|
|
Next
|
|
|
|
gridAD_Groups.DataSource = UserDataSet.TBLOCAL_ADGROUPS
|
|
Catch ex As Exception
|
|
MsgBox($"Error while loading initial groups")
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
|
|
Dim selectedGroupHandles As List(Of Integer) = viewAD_Groups.GetSelectedRows().ToList()
|
|
Dim importedGroups As Integer = 0
|
|
|
|
For Each rowHandle As Integer In selectedGroupHandles
|
|
Dim rowView As DataRowView = viewAD_Groups.GetRow(rowHandle)
|
|
Dim groupRow As UserDataSet.TBLOCAL_ADGROUPSRow = rowView.Row
|
|
|
|
Dim name As String = groupRow.GROUPNAME
|
|
Dim internal As Boolean = False
|
|
Dim sync As Boolean = True
|
|
|
|
If Not ClassData.GroupExists(groupRow.GROUPNAME) Then
|
|
ClassData.InsertGroup(groupRow.GROUPNAME)
|
|
importedGroups = importedGroups + 1
|
|
End If
|
|
Next
|
|
|
|
If importedGroups = 0 Then
|
|
MsgBox($"Es wurden keine neuen Gruppen importiert, da alle ausgewählten Gruppen bereits in der Gruppenverwaltung vorhanden sind.", MsgBoxStyle.Exclamation, "UserManager")
|
|
Else
|
|
MsgBox($"{importedGroups} Gruppen wurden erfolgreich importiert!", MsgBoxStyle.Information, "UserManager")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub viewAD_Groups_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles viewAD_Groups.SelectionChanged
|
|
Dim view As GridView = sender
|
|
|
|
If view.SelectedRowsCount > 0 Then
|
|
btnImport.Enabled = True
|
|
Else
|
|
btnImport.Enabled = False
|
|
End If
|
|
End Sub
|
|
End Class |