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

AD FILTER STaTus

Browse Source
This commit is contained in:
SchreiberM
2023-11-16 17:44:27 +01:00
parent e8416c5d83
commit 8d8a758aa6
3 changed files with 28 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
DDUserManager/DDUserManager/frmADImport_Groups.Designer.vb generated
View File

@@ -32,11 +32,14 @@ Partial Class frmADImport_Groups
Me.btnImport = New System.Windows.Forms.Button()
Me.DS_ChangeS = New DDUserManager.DS_ChangeS()
Me.lbGroupsCount = New System.Windows.Forms.Label()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
CType(Me.gridAD_Groups, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBLOCAL_ADGROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.UserDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.viewAD_Groups, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS_ChangeS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'gridAD_Groups
@@ -84,7 +87,7 @@ Partial Class frmADImport_Groups
Me.btnImport.Enabled = False
Me.btnImport.Image = Global.DDUserManager.My.Resources.Resources.group_go
Me.btnImport.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnImport.Location = New System.Drawing.Point(963, 649)
Me.btnImport.Location = New System.Drawing.Point(963, 636)
Me.btnImport.Name = "btnImport"
Me.btnImport.Size = New System.Drawing.Size(179, 27)
Me.btnImport.TabIndex = 1
@@ -105,11 +108,27 @@ Partial Class frmADImport_Groups
Me.lbGroupsCount.TabIndex = 2
Me.lbGroupsCount.Text = "Anzahl Gruppen: {0}"
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 666)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1154, 22)
Me.StatusStrip1.TabIndex = 3
Me.StatusStrip1.Text = "StatusStrip1"
'
'ToolStripStatusLabel1
'
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(119, 17)
Me.ToolStripStatusLabel1.Text = "ToolStripStatusLabel1"
'
'frmADImport_Groups
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1154, 688)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.lbGroupsCount)
Me.Controls.Add(Me.btnImport)
Me.Controls.Add(Me.gridAD_Groups)
@@ -121,6 +140,8 @@ Partial Class frmADImport_Groups
CType(Me.UserDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.viewAD_Groups, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS_ChangeS, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -134,4 +155,6 @@ Partial Class frmADImport_Groups
Friend WithEvents btnImport As Button
Friend WithEvents DS_ChangeS As DS_ChangeS
Friend WithEvents lbGroupsCount As Label
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
End Class

3
DDUserManager/DDUserManager/frmADImport_Groups.resx
View File

@@ -126,6 +126,9 @@
<metadata name="DS_ChangeS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>626, 17</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>746, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

1
DDUserManager/DDUserManager/frmADImport_Groups.vb
View File

@@ -11,6 +11,7 @@ Public Class frmADImport_Groups
Try
logger = MyLogConfig.GetLogger()
data = New ClassData(MyLogConfig, MyDatabase)
ToolStripStatusLabel1.Text = $"ConfigADGroupFilter: {MyConfig.Config.AdGroupFilter}"
activeDirectory = New ActiveDirectoryInterface(MyLogConfig, MyConfig.Config.AdRootPath)
Dim oGroups = activeDirectory.ListGroups(MyConfig.Config.AdGroupFilter)