MS11.01(2)
This commit is contained in:
SchreiberM
@@ -4,7 +4,7 @@ Imports System.DirectoryServices.AccountManagement
|
||||
Imports System.IO
|
||||
|
||||
Public Class frmUserKonfig_AddUsers
|
||||
|
||||
Private DT_GROUPS_EXCLUSIVE 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,6 +19,8 @@ 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)
|
||||
GetGroups(USER_USERNAME)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -223,6 +225,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
|
||||
Cursor = Cursors.WaitCursor
|
||||
lbGroups.Items.Clear()
|
||||
Dim domainConnection = New DirectoryEntry()
|
||||
@@ -244,21 +249,32 @@ Public Class frmUserKonfig_AddUsers
|
||||
Dim sidResult = sidSearcher.FindOne()
|
||||
If sidResult IsNot Nothing Then
|
||||
Dim groupname = CStr(sidResult.Properties("name")(0))
|
||||
|
||||
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") _
|
||||
And Not groupname.StartsWith("Einstellungen eingehender") And Not groupname.StartsWith("Windows-Auth") And Not groupname.StartsWith("Terminalserver-Liz") And Not groupname.StartsWith("Zulässige") And Not groupname.StartsWith("Abgelehnte") And Not groupname.StartsWith("Schreibgeschützte Domänen") _
|
||||
And Not groupname.StartsWith("Klonbare") And Not groupname.StartsWith("PrivUser") And Not groupname.StartsWith("Protected User") And Not groupname.StartsWith("Dns") And Not groupname.StartsWith("DHCP") And Not groupname.StartsWith("IIS_IUSR") And Not groupname.StartsWith("Richtlinien-Ersteller") _
|
||||
And Not groupname.StartsWith("Abgelehnte RODC-Kenn") And Not groupname.StartsWith("Reporting") Then
|
||||
' Console.WriteLine(CStr(sidResult.Properties("name")(0)))
|
||||
lbGroups.Items.Add(groupname)
|
||||
|
||||
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") _
|
||||
And Not groupname.StartsWith("Einstellungen eingehender") And Not groupname.StartsWith("Windows-Auth") And Not groupname.StartsWith("Terminalserver-Liz") And Not groupname.StartsWith("Zulässige") And Not groupname.StartsWith("Abgelehnte") And Not groupname.StartsWith("Schreibgeschützte Domänen") _
|
||||
And Not groupname.StartsWith("Klonbare") And Not groupname.StartsWith("PrivUser") And Not groupname.StartsWith("Protected User") And Not groupname.StartsWith("Dns") And Not groupname.StartsWith("DHCP") And Not groupname.StartsWith("IIS_IUSR") And Not groupname.StartsWith("Richtlinien-Ersteller") _
|
||||
And Not groupname.StartsWith("Abgelehnte RODC-Kenn") And Not groupname.StartsWith("Reporting") Then
|
||||
' Console.WriteLine(CStr(sidResult.Properties("name")(0)))
|
||||
lbGroups.Items.Add(groupname)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
Next resultBytes
|
||||
lblgroup_refresh()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in GetGroups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -274,8 +290,19 @@ Public Class frmUserKonfig_AddUsers
|
||||
lbGroups.Items.Clear()
|
||||
If Not IsNothing(groups) Then
|
||||
For Each group In groups
|
||||
lbGroups.Items.Add(group)
|
||||
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
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
@@ -283,4 +310,17 @@ Public Class frmUserKonfig_AddUsers
|
||||
Cursor = Cursors.Default
|
||||
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
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user