MS
This commit is contained in:
Digital Data - Marlon Schreiber
@@ -4,7 +4,8 @@ Imports System.DirectoryServices.AccountManagement
|
||||
Imports System.IO
|
||||
|
||||
Public Class frmUserKonfig_AddUsers
|
||||
Private DT_GROUPS_EXCLUSIVE As DataTable
|
||||
'Private DT_GROUPS_EXCLUSIVE As DataTable
|
||||
Private DT_ADD_USER As DataTable
|
||||
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)
|
||||
@@ -19,8 +20,10 @@ Public Class frmUserKonfig_AddUsers
|
||||
Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
Cursor = Cursors.WaitCursor
|
||||
Dim sql = "SELECT * FROM TBPMO_AD_GROUP_EXCLUSIVE"
|
||||
DT_GROUPS_EXCLUSIVE = ClassDatabase.Return_Datatable(sql)
|
||||
|
||||
|
||||
'Dim sql = "SELECT * FROM TBPMO_AD_GROUP_EXCLUSIVE"
|
||||
'DT_GROUPS_EXCLUSIVE = ClassDatabase.Return_Datatable(sql)
|
||||
GetGroups(USER_USERNAME)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -225,9 +228,9 @@ Public Class frmUserKonfig_AddUsers
|
||||
End Sub
|
||||
Public Sub GetGroups(ByVal samAccountName As String)
|
||||
Try
|
||||
If IsNothing(DT_GROUPS_EXCLUSIVE) Then
|
||||
Exit Sub
|
||||
End If
|
||||
'If IsNothing(DT_GROUPS_EXCLUSIVE) Then
|
||||
' Exit Sub
|
||||
'End If
|
||||
Cursor = Cursors.WaitCursor
|
||||
lbGroups.Items.Clear()
|
||||
Dim domainConnection = New DirectoryEntry()
|
||||
@@ -249,15 +252,15 @@ Public Class frmUserKonfig_AddUsers
|
||||
Dim sidResult = sidSearcher.FindOne()
|
||||
If sidResult IsNot Nothing Then
|
||||
Dim groupname = CStr(sidResult.Properties("name")(0))
|
||||
If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then
|
||||
If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then
|
||||
For Each GROUP_EXCL As DataRow In DT_GROUPS_EXCLUSIVE.Rows
|
||||
If GROUP_EXCL.Item("GROUP_NAME").ToString.ToUpper = groupname.ToUpper Then
|
||||
lbGroups.Items.Add(groupname)
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
If Not groupname.StartsWith("WinRMR") And Not groupname.StartsWith("Gäst") And Not groupname.StartsWith("Druck") And Not groupname.StartsWith("Sicherungs") And Not groupname.StartsWith("Replikations") And Not groupname.StartsWith("Netzwerkskon") _
|
||||
'If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then
|
||||
' If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then
|
||||
' For Each GROUP_EXCL As DataRow In DT_GROUPS_EXCLUSIVE.Rows
|
||||
' If GROUP_EXCL.Item("GROUP_NAME").ToString.ToUpper = groupname.ToUpper Then
|
||||
' lbGroups.Items.Add(groupname)
|
||||
' End If
|
||||
' Next
|
||||
' Else
|
||||
If Not groupname.StartsWith("WinRMR") And Not groupname.StartsWith("Gäst") And Not groupname.StartsWith("Druck") And Not groupname.StartsWith("Sicherungs") And Not groupname.StartsWith("Replikations") And Not groupname.StartsWith("Netzwerkskon") _
|
||||
And Not groupname.StartsWith("Leistungs") And Not groupname.StartsWith("Distributed COM") And Not groupname.StartsWith("IIS_") And Not groupname.StartsWith("Kryptografie") And Not groupname.StartsWith("Ereignis") And Not groupname.StartsWith("Zertifikat") _
|
||||
And Not groupname.StartsWith("RDS-") And Not groupname.StartsWith("Hyper-V") And Not groupname.StartsWith("Zugriffssteuerungs") And Not groupname.StartsWith("Remoteverwaltungs") And Not groupname.StartsWith("Domänencomput") And Not groupname.StartsWith("Domänen-Gäste") _
|
||||
And Not groupname.StartsWith("Richtlinien-Ersteller") And Not groupname.StartsWith("SQLAccess") And Not groupname.StartsWith("RAS- und IAS-Server") And Not groupname.StartsWith("Server-Operatore") And Not groupname.StartsWith("Konten-Oper") And Not groupname.StartsWith("Prä-Windows") _
|
||||
@@ -267,10 +270,10 @@ Public Class frmUserKonfig_AddUsers
|
||||
' Console.WriteLine(CStr(sidResult.Properties("name")(0)))
|
||||
lbGroups.Items.Add(groupname)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
' End If
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
Next resultBytes
|
||||
@@ -290,17 +293,17 @@ Public Class frmUserKonfig_AddUsers
|
||||
lbGroups.Items.Clear()
|
||||
If Not IsNothing(groups) Then
|
||||
For Each group In groups
|
||||
If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then
|
||||
If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then
|
||||
For Each GROUP_EXCL As DataRow In DT_GROUPS_EXCLUSIVE.Rows
|
||||
If GROUP_EXCL.Item("GROUP_NAME").ToString.ToUpper = group.ToUpper Then
|
||||
lbGroups.Items.Add(group)
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
lbGroups.Items.Add(group)
|
||||
End If
|
||||
End If
|
||||
'If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then
|
||||
' If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then
|
||||
' For Each GROUP_EXCL As DataRow In DT_GROUPS_EXCLUSIVE.Rows
|
||||
' If GROUP_EXCL.Item("GROUP_NAME").ToString.ToUpper = group.ToUpper Then
|
||||
' lbGroups.Items.Add(group)
|
||||
' End If
|
||||
' Next
|
||||
' Else
|
||||
lbGroups.Items.Add(group)
|
||||
' End If
|
||||
'End If
|
||||
Next
|
||||
lblgroup_refresh()
|
||||
End If
|
||||
@@ -311,16 +314,16 @@ Public Class frmUserKonfig_AddUsers
|
||||
End If
|
||||
End Sub
|
||||
Sub lblgroup_refresh()
|
||||
If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then
|
||||
If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then
|
||||
lbllimited.Text = String.Format("AD-Groups are limited through configuration to '{0}' group(s)!", DT_GROUPS_EXCLUSIVE.Rows.Count)
|
||||
lbllimited.Visible = True
|
||||
Else
|
||||
lbllimited.Visible = False
|
||||
End If
|
||||
Else
|
||||
lbllimited.Visible = False
|
||||
End If
|
||||
'If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then
|
||||
' If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then
|
||||
' lbllimited.Text = String.Format("AD-Groups are limited through configuration to '{0}' group(s)!", DT_GROUPS_EXCLUSIVE.Rows.Count)
|
||||
' lbllimited.Visible = True
|
||||
' Else
|
||||
' lbllimited.Visible = False
|
||||
' End If
|
||||
'Else
|
||||
lbllimited.Visible = False
|
||||
' End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user