Active Directory Sync.

UID/Mitarbeiter/frmADsearch.Designer.vb

@@ -0,0 +1,166 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmADsearch
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmADsearch))
+        Me.btnUebernehmen = New System.Windows.Forms.Button()
+        Me.btnSearch = New System.Windows.Forms.Button()
+        Me.dgvAD = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.cboDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.lblDomain = New System.Windows.Forms.Label()
+        Me.txtUser = New System.Windows.Forms.TextBox()
+        Me.lblUser = New System.Windows.Forms.Label()
+        Me.lblHint = New System.Windows.Forms.Label()
+        CType(Me.dgvAD, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'btnUebernehmen
+        '
+        Me.btnUebernehmen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnUebernehmen.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnUebernehmen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnUebernehmen.Location = New System.Drawing.Point(655, 310)
+        Me.btnUebernehmen.Name = "btnUebernehmen"
+        Me.btnUebernehmen.Size = New System.Drawing.Size(136, 41)
+        Me.btnUebernehmen.TabIndex = 54
+        Me.btnUebernehmen.Text = "Übernehmen"
+        Me.btnUebernehmen.UseVisualStyleBackColor = True
+        '
+        'btnSearch
+        '
+        Me.btnSearch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSearch.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.btnSearch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSearch.Image = Global.ADMIN.My.Resources.Resources.search
+        Me.btnSearch.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSearch.Location = New System.Drawing.Point(703, 12)
+        Me.btnSearch.Name = "btnSearch"
+        Me.btnSearch.Size = New System.Drawing.Size(88, 44)
+        Me.btnSearch.TabIndex = 53
+        Me.btnSearch.Text = "Suche"
+        Me.btnSearch.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSearch.UseVisualStyleBackColor = True
+        '
+        'dgvAD
+        '
+        Me.dgvAD.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAD.AllowUserToAddRows = False
+        Me.dgvAD.AllowUserToDeleteRows = False
+        Me.dgvAD.AllowUserToResizeRows = False
+        Me.dgvAD.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.dgvAD.BackgroundColor = System.Drawing.Color.White
+        Me.dgvAD.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAD.Location = New System.Drawing.Point(12, 62)
+        Me.dgvAD.Name = "dgvAD"
+        Me.dgvAD.ReadOnly = True
+        Me.dgvAD.RowHeadersVisible = False
+        Me.dgvAD.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAD.Size = New System.Drawing.Size(779, 242)
+        Me.dgvAD.TabIndex = 55
+        '
+        'cboDomain
+        '
+        Me.cboDomain._allowedValuesFreiText = Nothing
+        Me.cboDomain._allowFreiText = False
+        Me.cboDomain._value = ""
+        Me.cboDomain.DropDownWidth = 300
+        Me.cboDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.cboDomain.FormattingEnabled = True
+        Me.cboDomain.Location = New System.Drawing.Point(13, 32)
+        Me.cboDomain.Name = "cboDomain"
+        Me.cboDomain.Size = New System.Drawing.Size(97, 24)
+        Me.cboDomain.TabIndex = 103
+        '
+        'lblDomain
+        '
+        Me.lblDomain.AutoSize = True
+        Me.lblDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.lblDomain.Location = New System.Drawing.Point(10, 16)
+        Me.lblDomain.Name = "lblDomain"
+        Me.lblDomain.Size = New System.Drawing.Size(43, 13)
+        Me.lblDomain.TabIndex = 102
+        Me.lblDomain.Text = "Domain"
+        '
+        'txtUser
+        '
+        Me.txtUser.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.txtUser.Location = New System.Drawing.Point(116, 33)
+        Me.txtUser.Name = "txtUser"
+        Me.txtUser.Size = New System.Drawing.Size(502, 23)
+        Me.txtUser.TabIndex = 100
+        '
+        'lblUser
+        '
+        Me.lblUser.AutoSize = True
+        Me.lblUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.lblUser.Location = New System.Drawing.Point(113, 16)
+        Me.lblUser.Name = "lblUser"
+        Me.lblUser.Size = New System.Drawing.Size(29, 13)
+        Me.lblUser.TabIndex = 101
+        Me.lblUser.Text = "User"
+        '
+        'lblHint
+        '
+        Me.lblHint.AutoSize = True
+        Me.lblHint.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.lblHint.ForeColor = System.Drawing.Color.Red
+        Me.lblHint.Location = New System.Drawing.Point(12, 310)
+        Me.lblHint.Name = "lblHint"
+        Me.lblHint.Size = New System.Drawing.Size(0, 13)
+        Me.lblHint.TabIndex = 104
+        '
+        'frmADsearch
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(803, 354)
+        Me.Controls.Add(Me.lblHint)
+        Me.Controls.Add(Me.cboDomain)
+        Me.Controls.Add(Me.lblDomain)
+        Me.Controls.Add(Me.txtUser)
+        Me.Controls.Add(Me.lblUser)
+        Me.Controls.Add(Me.dgvAD)
+        Me.Controls.Add(Me.btnUebernehmen)
+        Me.Controls.Add(Me.btnSearch)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmADsearch"
+        Me.Text = "Active Directory Suche"
+        CType(Me.dgvAD, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents btnUebernehmen As Button
+    Friend WithEvents btnSearch As Button
+    Friend WithEvents dgvAD As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents cboDomain As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents lblDomain As Label
+    Friend WithEvents txtUser As TextBox
+    Friend WithEvents lblUser As Label
+    Friend WithEvents lblHint As Label
+End Class

UID/Mitarbeiter/frmADsearch.vb

@@ -0,0 +1,202 @@
+Imports Org.BouncyCastle.Asn1
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmADsearch
+    Dim dt As New DataTable()
+    Public activeDirectoryObj = New ADObject()
+
+    Public Sub New()
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+    End Sub
+
+    Public Sub New(changelabel As String)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        lblUser.Text = changelabel
+
+    End Sub
+
+
+    Sub initDataTable()
+
+        dt.Columns.Add("sAMAccountName", GetType(String))
+        dt.Columns.Add("givenName", GetType(String))
+        dt.Columns.Add("sn", GetType(String))
+        dt.Columns.Add("DisplayName", GetType(String))
+        dt.Columns.Add("distinguishedName", GetType(String))
+        dt.Columns.Add("department", GetType(String))
+        dt.Columns.Add("company", GetType(String))
+        dt.Columns.Add("mail", GetType(String))
+        dt.Columns.Add("cn", GetType(String))
+        dt.Columns.Add("telephoneNumber", GetType(String))
+        dt.Columns.Add("extensionAttribute7", GetType(String))
+        dt.Columns.Add("adEntry", GetType(System.DirectoryServices.DirectoryEntry))
+
+    End Sub
+
+    Sub initDGV(dt As DataTable)
+
+        dgvAD.DataSource = dt
+
+
+        If dgvAD.Columns.Count > 0 Then
+            With dgvAD
+                .RowHeadersWidth = 10
+
+                .Columns("GivenName").HeaderText = "Firstname"
+                .Columns("GivenName").Width = 75
+                .Columns("sn").Width = 100
+                .Columns("sn").HeaderText = "Lastname"
+                .Columns("DisplayName").Visible = False
+                .Columns("sAMAccountName").Width = 75
+                .Columns("sAMAccountName").HeaderText = "Account"
+                .Columns("department").Width = 75
+                .Columns("distinguishedName").HeaderText = "DN-Name"
+                .Columns("distinguishedName").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .Columns("department").HeaderText = "Department"
+                .Columns("company").Width = 75
+                .Columns("company").HeaderText = "Company"
+                .Columns("telephoneNumber").Visible = False
+                .Columns("extensionAttribute7").Visible = False
+                .Columns("cn").Visible = False
+
+            End With
+
+        End If
+
+
+    End Sub
+
+
+    Private Sub GetActiveDirUserDetails(ByVal username As String, Optional LDAPString As String = "LDAP://DC=VERAG,DC=OST,DC=DMN")
+
+        dt.Clear()
+
+        Dim dirEntry As System.DirectoryServices.DirectoryEntry
+        Dim dirSearcher As System.DirectoryServices.DirectorySearcher
+        Try
+            dirEntry = New System.DirectoryServices.DirectoryEntry(LDAPString)
+            dirSearcher = New System.DirectoryServices.DirectorySearcher(dirEntry)
+            dirSearcher.Filter = "(samAccountName=" & username & ")"
+            dirSearcher.PropertiesToLoad.Add("GivenName")
+            dirSearcher.PropertiesToLoad.Add("sn")
+            Dim sr As DirectoryServices.SearchResultCollection = dirSearcher.FindAll()
+            If sr Is Nothing Then
+                lblHint.Text = "No Entries found"
+                Exit Sub
+            ElseIf sr.Count = 0 Then
+                lblHint.Text = sr.Count & " Entries found"
+            End If
+
+            For Each srEntry As DirectoryServices.SearchResult In sr
+                Dim de As System.DirectoryServices.DirectoryEntry
+                de = srEntry.GetDirectoryEntry()
+
+                'Dim ObjFirstName As String = ""
+                'Dim ObjLastName As String = String.Empty
+
+                Dim R As DataRow = dt.NewRow
+                R("givenName") = de.Properties("givenName").Value.ToString()
+                R("sAMAccountName") = de.Properties("sAMAccountName").Value.ToString()
+                R("department") = de.Properties("department").Value.ToString()
+                R("company") = de.Properties("company").Value.ToString()
+                R("sn") = de.Properties("sn").Value.ToString()
+                R("cn") = de.Properties("cn").Value.ToString()
+                R("telephoneNumber") = de.Properties("telephoneNumber").Value.ToString()
+                R("distinguishedName") = de.Properties("distinguishedName").Value.ToString()
+                R("extensionAttribute7") = de.Properties("extensionAttribute7").Value.ToString()
+                R("adEntry") = de
+                dt.Rows.Add(R)
+
+            Next
+
+        Catch ex As Exception
+            lblHint.Text = ex.Message
+        End Try
+    End Sub
+
+    Public Shared Function GetUsersInGroup(ByVal groupname As String, Optional ByVal LDAP As String = "LDAP://DC=VERAG,DC=OST,DC=DMN") As List(Of String)
+        Dim Userlist As New List(Of String)
+
+        Dim locDirectoryEntry As New DirectoryServices.DirectoryEntry(LDAP)
+        Dim Searcher As New DirectoryServices.DirectorySearcher(locDirectoryEntry, "sAMAccountName=" & groupname)
+        Dim Result As DirectoryServices.SearchResult = Searcher.FindOne
+
+        If Result IsNot Nothing Then
+            For Each User In Result.Properties("Member")
+                Userlist.Add(User)
+            Next
+        End If
+        Return Userlist
+    End Function
+
+    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
+
+        lblHint.Text = ""
+
+        If cboDomain._value = "" Then
+            lblHint.Text = "Domain auswählen"
+            Exit Sub
+        End If
+
+        If txtUser.Text = "" Then
+            lblHint.Text = "User eingeben!"
+            Exit Sub
+        End If
+        GetActiveDirUserDetails(txtUser.Text)
+
+
+    End Sub
+
+    Private Sub frmADsearch_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        cboDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGOST", "LDAP://DC=VERAG,DC=OST,DC=DMN"))
+        cboDomain.changeItem("verag.ost.dmn")
+        initDataTable()
+        initDGV(dt)
+    End Sub
+
+    Private Sub btnUebernehmen_Click(sender As Object, e As EventArgs) Handles btnUebernehmen.Click
+
+        For Each row As DataGridViewRow In dgvAD.SelectedRows
+            activeDirectoryObj = New ADObject With {
+                .sn = IIf(IsDBNull(row.Cells("sn").Value), "", row.Cells("sn").Value),
+                .sAMAccountName = IIf(IsDBNull(row.Cells("sAMAccountName").Value), "", row.Cells("sAMAccountName").Value),
+                .givenName = IIf(IsDBNull(row.Cells("givenName").Value), "", row.Cells("givenName").Value),
+                .cn = IIf(IsDBNull(row.Cells("cn").Value), "", row.Cells("cn").Value),
+                .department = IIf(IsDBNull(row.Cells("department").Value), "", row.Cells("department").Value),
+                .company = IIf(IsDBNull(row.Cells("company").Value), "", row.Cells("company").Value),
+                .telephoneNumber = IIf(IsDBNull(row.Cells("telephoneNumber").Value), "", row.Cells("telephoneNumber").Value),
+                .distinguishedName = IIf(IsDBNull(row.Cells("distinguishedName").Value), "", row.Cells("distinguishedName").Value),
+                .mail = IIf(IsDBNull(row.Cells("mail").Value), "", row.Cells("mail").Value),
+                .domain = cboDomain.Text,
+                .emailExtension = IIf(IsDBNull(row.Cells("extensionAttribute7").Value), "", row.Cells("extensionAttribute7").Value),
+                .ADEntry = IIf(IsDBNull(row.Cells("adEntry").Value), "", row.Cells("adEntry").Value)
+            }
+
+        Next
+
+    End Sub
+End Class
+
+Public Class ADObject
+
+    Public Sub New()
+    End Sub
+
+    Public Property sn As String
+    Public Property givenName As String
+    Public Property cn As String
+    Public Property department As String
+    Public Property company As String
+    Public Property telephoneNumber As String
+    Public Property distinguishedName As String
+    Public Property mail As String
+    Public Property sAMAccountName As String
+    Public Property domain As String
+    Public Property emailExtension As String
+    Public Property ADEntry As System.DirectoryServices.DirectoryEntry
+
+End Class

UID/Mitarbeiter/frmMitarbDetails.Designer.vb

@@ -26,6 +26,7 @@ Partial Class frmMitarbDetails
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.btnADladen = New System.Windows.Forms.Button()
         Me.Label48 = New System.Windows.Forms.Label()
         Me.Label47 = New System.Windows.Forms.Label()
         Me.btnCancel = New System.Windows.Forms.Button()
@@ -34,13 +35,21 @@ Partial Class frmMitarbDetails
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.tbcntr = New System.Windows.Forms.TabControl()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.cboDPFirma2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboDPFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label50 = New System.Windows.Forms.Label()
         Me.Label38 = New System.Windows.Forms.Label()
+        Me.cboPersonal = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label37 = New System.Windows.Forms.Label()
+        Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboDP = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboKasse = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label42 = New System.Windows.Forms.Label()
         Me.Label40 = New System.Windows.Forms.Label()
         Me.cbxSpedBuch = New System.Windows.Forms.CheckBox()
         Me.Label41 = New System.Windows.Forms.Label()
+        Me.cboSpedbuch = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.TabPage4 = New System.Windows.Forms.TabPage()
         Me.txtTelotecSB = New System.Windows.Forms.TextBox()
         Me.Label51 = New System.Windows.Forms.Label()
@@ -50,7 +59,10 @@ Partial Class frmMitarbDetails
         Me.Label46 = New System.Windows.Forms.Label()
         Me.Label44 = New System.Windows.Forms.Label()
         Me.Label43 = New System.Windows.Forms.Label()
+        Me.cboEZOLL_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.TabPage5 = New System.Windows.Forms.TabPage()
+        Me.cbxShowPW = New System.Windows.Forms.CheckBox()
         Me.lblCheckconnection = New System.Windows.Forms.Label()
         Me.Button6 = New System.Windows.Forms.Button()
         Me.txtCSPW = New System.Windows.Forms.TextBox()
@@ -61,15 +73,21 @@ Partial Class frmMitarbDetails
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
         Me.txtAbweichenderAnzeigename = New System.Windows.Forms.TextBox()
         Me.Label57 = New System.Windows.Forms.Label()
+        Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label56 = New System.Windows.Forms.Label()
+        Me.cboALIASDomain2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.txtALIASUser2 = New System.Windows.Forms.TextBox()
         Me.Label54 = New System.Windows.Forms.Label()
         Me.cboFirmaHaupt = New System.Windows.Forms.ComboBox()
+        Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label53 = New System.Windows.Forms.Label()
+        Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.txtALIASUser = New System.Windows.Forms.TextBox()
         Me.Label52 = New System.Windows.Forms.Label()
         Me.lkl = New System.Windows.Forms.LinkLabel()
         Me.Label45 = New System.Windows.Forms.Label()
+        Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
+        Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label39 = New System.Windows.Forms.Label()
         Me.cboFirma = New System.Windows.Forms.ComboBox()
         Me.Label36 = New System.Windows.Forms.Label()
@@ -85,11 +103,13 @@ Partial Class frmMitarbDetails
         Me.txtDurchwahl = New System.Windows.Forms.TextBox()
         Me.Label19 = New System.Windows.Forms.Label()
         Me.Label8 = New System.Windows.Forms.Label()
+        Me.cboAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.txtPwd = New System.Windows.Forms.TextBox()
         Me.Label11 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.txtUsername = New System.Windows.Forms.TextBox()
         Me.Label3 = New System.Windows.Forms.Label()
+        Me.cboNiederlassung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label9 = New System.Windows.Forms.Label()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.cbxChatBenutzer = New System.Windows.Forms.CheckBox()
@@ -121,6 +141,7 @@ Partial Class frmMitarbDetails
         Me.Label2 = New System.Windows.Forms.Label()
         Me.txtInfo = New System.Windows.Forms.RichTextBox()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.cboProgSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label55 = New System.Windows.Forms.Label()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.Button4 = New System.Windows.Forms.Button()
@@ -163,26 +184,9 @@ Partial Class frmMitarbDetails
         Me.PictureBox6 = New System.Windows.Forms.PictureBox()
         Me.cboAdminBer = New System.Windows.Forms.ComboBox()
         Me.Label7 = New System.Windows.Forms.Label()
-        Me.cboDPFirma2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboDPFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboPersonal = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboDP = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboKasse = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboSpedbuch = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboEZOLL_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboALIASDomain2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
-        Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboNiederlassung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboProgSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cbxShowPW = New System.Windows.Forms.CheckBox()
+        Me.txtEmailExtension = New System.Windows.Forms.TextBox()
+        Me.lblEmailExtension = New System.Windows.Forms.Label()
+        Me.btnUpdateAD = New System.Windows.Forms.Button()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.TabControl2.SuspendLayout()
@@ -227,6 +231,7 @@ Partial Class frmMitarbDetails
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.btnADladen)
         Me.Panel1.Controls.Add(Me.Label48)
         Me.Panel1.Controls.Add(Me.Label47)
         Me.Panel1.Controls.Add(Me.Label1)
@@ -237,6 +242,19 @@ Partial Class frmMitarbDetails
         Me.Panel1.Size = New System.Drawing.Size(747, 57)
         Me.Panel1.TabIndex = 23
         '
+        'btnADladen
+        '
+        Me.btnADladen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnADladen.BackColor = System.Drawing.Color.White
+        Me.btnADladen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnADladen.Location = New System.Drawing.Point(541, 12)
+        Me.btnADladen.Name = "btnADladen"
+        Me.btnADladen.Size = New System.Drawing.Size(81, 36)
+        Me.btnADladen.TabIndex = 53
+        Me.btnADladen.Text = "Active Directory"
+        Me.btnADladen.UseVisualStyleBackColor = False
+        Me.btnADladen.Visible = False
+        '
         'Label48
         '
         Me.Label48.Cursor = System.Windows.Forms.Cursors.Default
@@ -343,6 +361,30 @@ Partial Class frmMitarbDetails
         Me.TabPage2.Text = "Zuordnung Intern"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
+        'cboDPFirma2
+        '
+        Me.cboDPFirma2._allowedValuesFreiText = Nothing
+        Me.cboDPFirma2._allowFreiText = False
+        Me.cboDPFirma2._value = ""
+        Me.cboDPFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboDPFirma2.FormattingEnabled = True
+        Me.cboDPFirma2.Location = New System.Drawing.Point(106, 151)
+        Me.cboDPFirma2.Name = "cboDPFirma2"
+        Me.cboDPFirma2.Size = New System.Drawing.Size(101, 21)
+        Me.cboDPFirma2.TabIndex = 108
+        '
+        'cboDPFirma
+        '
+        Me.cboDPFirma._allowedValuesFreiText = Nothing
+        Me.cboDPFirma._allowFreiText = False
+        Me.cboDPFirma._value = ""
+        Me.cboDPFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboDPFirma.FormattingEnabled = True
+        Me.cboDPFirma.Location = New System.Drawing.Point(7, 151)
+        Me.cboDPFirma.Name = "cboDPFirma"
+        Me.cboDPFirma.Size = New System.Drawing.Size(101, 21)
+        Me.cboDPFirma.TabIndex = 107
+        '
         'Label50
         '
         Me.Label50.AutoSize = True
@@ -363,6 +405,18 @@ Partial Class frmMitarbDetails
         Me.Label38.TabIndex = 96
         Me.Label38.Text = "Standard-Filiale (SpedBuch)"
         '
+        'cboPersonal
+        '
+        Me.cboPersonal._allowedValuesFreiText = Nothing
+        Me.cboPersonal._allowFreiText = False
+        Me.cboPersonal._value = ""
+        Me.cboPersonal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboPersonal.FormattingEnabled = True
+        Me.cboPersonal.Location = New System.Drawing.Point(7, 65)
+        Me.cboPersonal.Name = "cboPersonal"
+        Me.cboPersonal.Size = New System.Drawing.Size(200, 21)
+        Me.cboPersonal.TabIndex = 95
+        '
         'Label37
         '
         Me.Label37.AutoSize = True
@@ -373,6 +427,42 @@ Partial Class frmMitarbDetails
         Me.Label37.TabIndex = 94
         Me.Label37.Text = "Zuordnung / FM-ZOLL Personal - Tabelle:"
         '
+        'MyComboBox2
+        '
+        Me.MyComboBox2._allowedValuesFreiText = Nothing
+        Me.MyComboBox2._allowFreiText = False
+        Me.MyComboBox2._value = ""
+        Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MyComboBox2.FormattingEnabled = True
+        Me.MyComboBox2.Location = New System.Drawing.Point(9, 24)
+        Me.MyComboBox2.Name = "MyComboBox2"
+        Me.MyComboBox2.Size = New System.Drawing.Size(198, 21)
+        Me.MyComboBox2.TabIndex = 97
+        '
+        'cboDP
+        '
+        Me.cboDP._allowedValuesFreiText = Nothing
+        Me.cboDP._allowFreiText = False
+        Me.cboDP._value = ""
+        Me.cboDP.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboDP.FormattingEnabled = True
+        Me.cboDP.Location = New System.Drawing.Point(217, 151)
+        Me.cboDP.Name = "cboDP"
+        Me.cboDP.Size = New System.Drawing.Size(198, 21)
+        Me.cboDP.TabIndex = 105
+        '
+        'cboKasse
+        '
+        Me.cboKasse._allowedValuesFreiText = Nothing
+        Me.cboKasse._allowFreiText = False
+        Me.cboKasse._value = ""
+        Me.cboKasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboKasse.FormattingEnabled = True
+        Me.cboKasse.Location = New System.Drawing.Point(7, 106)
+        Me.cboKasse.Name = "cboKasse"
+        Me.cboKasse.Size = New System.Drawing.Size(200, 21)
+        Me.cboKasse.TabIndex = 99
+        '
         'Label42
         '
         Me.Label42.AutoSize = True
@@ -414,6 +504,31 @@ Partial Class frmMitarbDetails
         Me.Label41.TabIndex = 100
         Me.Label41.Text = "Standard-Preisliste:"
         '
+        'cboSpedbuch
+        '
+        Me.cboSpedbuch._allowedValuesFreiText = Nothing
+        Me.cboSpedbuch._allowFreiText = False
+        Me.cboSpedbuch._value = ""
+        Me.cboSpedbuch.Enabled = False
+        Me.cboSpedbuch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboSpedbuch.FormattingEnabled = True
+        Me.cboSpedbuch.Location = New System.Drawing.Point(217, 66)
+        Me.cboSpedbuch.Name = "cboSpedbuch"
+        Me.cboSpedbuch.Size = New System.Drawing.Size(200, 21)
+        Me.cboSpedbuch.TabIndex = 103
+        '
+        'MyComboBox3
+        '
+        Me.MyComboBox3._allowedValuesFreiText = Nothing
+        Me.MyComboBox3._allowFreiText = False
+        Me.MyComboBox3._value = ""
+        Me.MyComboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MyComboBox3.FormattingEnabled = True
+        Me.MyComboBox3.Location = New System.Drawing.Point(217, 106)
+        Me.MyComboBox3.Name = "MyComboBox3"
+        Me.MyComboBox3.Size = New System.Drawing.Size(198, 21)
+        Me.MyComboBox3.TabIndex = 101
+        '
         'TabPage4
         '
         Me.TabPage4.Controls.Add(Me.txtTelotecSB)
@@ -508,6 +623,34 @@ Partial Class frmMitarbDetails
         Me.Label43.TabIndex = 108
         Me.Label43.Text = "EZOLL Sachbearbeiter:"
         '
+        'cboEZOLL_SB
+        '
+        Me.cboEZOLL_SB._allowedValuesFreiText = Nothing
+        Me.cboEZOLL_SB._allowFreiText = False
+        Me.cboEZOLL_SB._value = ""
+        Me.cboEZOLL_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboEZOLL_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboEZOLL_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboEZOLL_SB.FormattingEnabled = True
+        Me.cboEZOLL_SB.Location = New System.Drawing.Point(217, 29)
+        Me.cboEZOLL_SB.Name = "cboEZOLL_SB"
+        Me.cboEZOLL_SB.Size = New System.Drawing.Size(198, 21)
+        Me.cboEZOLL_SB.TabIndex = 109
+        '
+        'cboATLAS_SB
+        '
+        Me.cboATLAS_SB._allowedValuesFreiText = Nothing
+        Me.cboATLAS_SB._allowFreiText = False
+        Me.cboATLAS_SB._value = ""
+        Me.cboATLAS_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cboATLAS_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboATLAS_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboATLAS_SB.FormattingEnabled = True
+        Me.cboATLAS_SB.Location = New System.Drawing.Point(9, 29)
+        Me.cboATLAS_SB.Name = "cboATLAS_SB"
+        Me.cboATLAS_SB.Size = New System.Drawing.Size(200, 21)
+        Me.cboATLAS_SB.TabIndex = 107
+        '
         'TabPage5
         '
         Me.TabPage5.Controls.Add(Me.cbxShowPW)
@@ -524,6 +667,17 @@ Partial Class frmMitarbDetails
         Me.TabPage5.Text = "Zuordnung Creditsafe"
         Me.TabPage5.UseVisualStyleBackColor = True
         '
+        'cbxShowPW
+        '
+        Me.cbxShowPW.AutoSize = True
+        Me.cbxShowPW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxShowPW.Location = New System.Drawing.Point(206, 74)
+        Me.cbxShowPW.Name = "cbxShowPW"
+        Me.cbxShowPW.Size = New System.Drawing.Size(69, 17)
+        Me.cbxShowPW.TabIndex = 94
+        Me.cbxShowPW.Text = "anzeigen"
+        Me.cbxShowPW.UseVisualStyleBackColor = True
+        '
         'lblCheckconnection
         '
         Me.lblCheckconnection.AutoSize = True
@@ -593,6 +747,9 @@ Partial Class frmMitarbDetails
         '
         'GroupBox2
         '
+        Me.GroupBox2.Controls.Add(Me.btnUpdateAD)
+        Me.GroupBox2.Controls.Add(Me.txtEmailExtension)
+        Me.GroupBox2.Controls.Add(Me.lblEmailExtension)
         Me.GroupBox2.Controls.Add(Me.txtAbweichenderAnzeigename)
         Me.GroupBox2.Controls.Add(Me.Label57)
         Me.GroupBox2.Controls.Add(Me.cboFaktGrp)
@@ -659,6 +816,20 @@ Partial Class frmMitarbDetails
         Me.Label57.TabIndex = 110
         Me.Label57.Text = "And. Anzeigename (Aviso,TV):"
         '
+        'cboFaktGrp
+        '
+        Me.cboFaktGrp._allowedValuesFreiText = Nothing
+        Me.cboFaktGrp._allowFreiText = False
+        Me.cboFaktGrp._value = ""
+        Me.cboFaktGrp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboFaktGrp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboFaktGrp.FormattingEnabled = True
+        Me.cboFaktGrp.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
+        Me.cboFaktGrp.Location = New System.Drawing.Point(211, 155)
+        Me.cboFaktGrp.Name = "cboFaktGrp"
+        Me.cboFaktGrp.Size = New System.Drawing.Size(177, 21)
+        Me.cboFaktGrp.TabIndex = 107
+        '
         'Label56
         '
         Me.Label56.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -668,6 +839,19 @@ Partial Class frmMitarbDetails
         Me.Label56.TabIndex = 108
         Me.Label56.Text = "Fakturierungs-Gruppe:"
         '
+        'cboALIASDomain2
+        '
+        Me.cboALIASDomain2._allowedValuesFreiText = Nothing
+        Me.cboALIASDomain2._allowFreiText = False
+        Me.cboALIASDomain2._value = ""
+        Me.cboALIASDomain2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboALIASDomain2.FormattingEnabled = True
+        Me.cboALIASDomain2.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
+        Me.cboALIASDomain2.Location = New System.Drawing.Point(402, 60)
+        Me.cboALIASDomain2.Name = "cboALIASDomain2"
+        Me.cboALIASDomain2.Size = New System.Drawing.Size(116, 21)
+        Me.cboALIASDomain2.TabIndex = 106
+        '
         'txtALIASUser2
         '
         Me.txtALIASUser2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -697,6 +881,20 @@ Partial Class frmMitarbDetails
         Me.cboFirmaHaupt.Size = New System.Drawing.Size(57, 21)
         Me.cboFirmaHaupt.TabIndex = 103
         '
+        'cboTeam
+        '
+        Me.cboTeam._allowedValuesFreiText = Nothing
+        Me.cboTeam._allowFreiText = False
+        Me.cboTeam._value = ""
+        Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboTeam.FormattingEnabled = True
+        Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
+        Me.cboTeam.Location = New System.Drawing.Point(399, 116)
+        Me.cboTeam.Name = "cboTeam"
+        Me.cboTeam.Size = New System.Drawing.Size(148, 21)
+        Me.cboTeam.TabIndex = 101
+        '
         'Label53
         '
         Me.Label53.AutoSize = True
@@ -707,12 +905,25 @@ Partial Class frmMitarbDetails
         Me.Label53.TabIndex = 102
         Me.Label53.Text = "Team:"
         '
+        'cboALIASDomain
+        '
+        Me.cboALIASDomain._allowedValuesFreiText = Nothing
+        Me.cboALIASDomain._allowFreiText = False
+        Me.cboALIASDomain._value = ""
+        Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboALIASDomain.FormattingEnabled = True
+        Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
+        Me.cboALIASDomain.Location = New System.Drawing.Point(402, 37)
+        Me.cboALIASDomain.Name = "cboALIASDomain"
+        Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21)
+        Me.cboALIASDomain.TabIndex = 100
+        '
         'txtALIASUser
         '
         Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtALIASUser.Location = New System.Drawing.Point(517, 37)
         Me.txtALIASUser.Name = "txtALIASUser"
-        Me.txtALIASUser.Size = New System.Drawing.Size(179, 20)
+        Me.txtALIASUser.Size = New System.Drawing.Size(148, 20)
         Me.txtALIASUser.TabIndex = 99
         '
         'Label52
@@ -746,6 +957,31 @@ Partial Class frmMitarbDetails
         Me.Label45.TabIndex = 97
         Me.Label45.Text = "Einsicht Firmen-Daten:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Offene Posten, Umsätze, ... )"
         '
+        'MyListBox1
+        '
+        Me.MyListBox1._value = ""
+        Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MyListBox1.FormattingEnabled = True
+        Me.MyListBox1.Location = New System.Drawing.Point(551, 133)
+        Me.MyListBox1.MultiColumn = True
+        Me.MyListBox1.Name = "MyListBox1"
+        Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
+        Me.MyListBox1.Size = New System.Drawing.Size(152, 95)
+        Me.MyListBox1.TabIndex = 96
+        '
+        'cboFirmaFMZOLL
+        '
+        Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing
+        Me.cboFirmaFMZOLL._allowFreiText = False
+        Me.cboFirmaFMZOLL._value = ""
+        Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboFirmaFMZOLL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboFirmaFMZOLL.FormattingEnabled = True
+        Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(210, 76)
+        Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
+        Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(178, 21)
+        Me.cboFirmaFMZOLL.TabIndex = 95
+        '
         'Label39
         '
         Me.Label39.AutoSize = True
@@ -849,16 +1085,16 @@ Partial Class frmMitarbDetails
         'txtEmail
         '
         Me.txtEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtEmail.Location = New System.Drawing.Point(304, 204)
+        Me.txtEmail.Location = New System.Drawing.Point(210, 204)
         Me.txtEmail.Name = "txtEmail"
-        Me.txtEmail.Size = New System.Drawing.Size(243, 20)
+        Me.txtEmail.Size = New System.Drawing.Size(178, 20)
         Me.txtEmail.TabIndex = 7
         '
         'Label20
         '
         Me.Label20.AutoSize = True
         Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label20.Location = New System.Drawing.Point(301, 188)
+        Me.Label20.Location = New System.Drawing.Point(207, 188)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(39, 13)
         Me.Label20.TabIndex = 83
@@ -869,7 +1105,7 @@ Partial Class frmMitarbDetails
         Me.txtDurchwahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtDurchwahl.Location = New System.Drawing.Point(18, 204)
         Me.txtDurchwahl.Name = "txtDurchwahl"
-        Me.txtDurchwahl.Size = New System.Drawing.Size(272, 20)
+        Me.txtDurchwahl.Size = New System.Drawing.Size(174, 20)
         Me.txtDurchwahl.TabIndex = 6
         '
         'Label19
@@ -892,6 +1128,20 @@ Partial Class frmMitarbDetails
         Me.Label8.TabIndex = 1
         Me.Label8.Text = "(erst bei Doppelklick sichtbar)"
         '
+        'cboAbteilung
+        '
+        Me.cboAbteilung._allowedValuesFreiText = Nothing
+        Me.cboAbteilung._allowFreiText = False
+        Me.cboAbteilung._value = ""
+        Me.cboAbteilung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboAbteilung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboAbteilung.FormattingEnabled = True
+        Me.cboAbteilung.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
+        Me.cboAbteilung.Location = New System.Drawing.Point(211, 116)
+        Me.cboAbteilung.Name = "cboAbteilung"
+        Me.cboAbteilung.Size = New System.Drawing.Size(177, 21)
+        Me.cboAbteilung.TabIndex = 4
+        '
         'txtPwd
         '
         Me.txtPwd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -938,6 +1188,20 @@ Partial Class frmMitarbDetails
         Me.Label3.TabIndex = 56
         Me.Label3.Text = "Username:"
         '
+        'cboNiederlassung
+        '
+        Me.cboNiederlassung._allowedValuesFreiText = Nothing
+        Me.cboNiederlassung._allowFreiText = False
+        Me.cboNiederlassung._value = ""
+        Me.cboNiederlassung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboNiederlassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboNiederlassung.FormattingEnabled = True
+        Me.cboNiederlassung.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
+        Me.cboNiederlassung.Location = New System.Drawing.Point(18, 116)
+        Me.cboNiederlassung.Name = "cboNiederlassung"
+        Me.cboNiederlassung.Size = New System.Drawing.Size(177, 21)
+        Me.cboNiederlassung.TabIndex = 3
+        '
         'Label9
         '
         Me.Label9.AutoSize = True
@@ -1309,6 +1573,19 @@ Partial Class frmMitarbDetails
         Me.TabPage3.Text = "Programme"
         Me.TabPage3.UseVisualStyleBackColor = True
         '
+        'cboProgSprache
+        '
+        Me.cboProgSprache._allowedValuesFreiText = Nothing
+        Me.cboProgSprache._allowFreiText = False
+        Me.cboProgSprache._value = ""
+        Me.cboProgSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboProgSprache.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboProgSprache.FormattingEnabled = True
+        Me.cboProgSprache.Location = New System.Drawing.Point(16, 526)
+        Me.cboProgSprache.Name = "cboProgSprache"
+        Me.cboProgSprache.Size = New System.Drawing.Size(178, 21)
+        Me.cboProgSprache.TabIndex = 120
+        '
         'Label55
         '
         Me.Label55.AutoSize = True
@@ -1750,261 +2027,35 @@ Partial Class frmMitarbDetails
         Me.Label7.TabIndex = 78
         Me.Label7.Text = "Berechtigung:"
         '
-        'cboDPFirma2
+        'txtEmailExtension
         '
-        Me.cboDPFirma2._allowedValuesFreiText = Nothing
-        Me.cboDPFirma2._allowFreiText = False
-        Me.cboDPFirma2._value = ""
-        Me.cboDPFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboDPFirma2.FormattingEnabled = True
-        Me.cboDPFirma2.Location = New System.Drawing.Point(106, 151)
-        Me.cboDPFirma2.Name = "cboDPFirma2"
-        Me.cboDPFirma2.Size = New System.Drawing.Size(101, 21)
-        Me.cboDPFirma2.TabIndex = 108
+        Me.txtEmailExtension.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtEmailExtension.Location = New System.Drawing.Point(402, 204)
+        Me.txtEmailExtension.Name = "txtEmailExtension"
+        Me.txtEmailExtension.Size = New System.Drawing.Size(143, 20)
+        Me.txtEmailExtension.TabIndex = 111
         '
-        'cboDPFirma
+        'lblEmailExtension
         '
-        Me.cboDPFirma._allowedValuesFreiText = Nothing
-        Me.cboDPFirma._allowFreiText = False
-        Me.cboDPFirma._value = ""
-        Me.cboDPFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboDPFirma.FormattingEnabled = True
-        Me.cboDPFirma.Location = New System.Drawing.Point(7, 151)
-        Me.cboDPFirma.Name = "cboDPFirma"
-        Me.cboDPFirma.Size = New System.Drawing.Size(101, 21)
-        Me.cboDPFirma.TabIndex = 107
+        Me.lblEmailExtension.AutoSize = True
+        Me.lblEmailExtension.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblEmailExtension.Location = New System.Drawing.Point(399, 188)
+        Me.lblEmailExtension.Name = "lblEmailExtension"
+        Me.lblEmailExtension.Size = New System.Drawing.Size(88, 13)
+        Me.lblEmailExtension.TabIndex = 112
+        Me.lblEmailExtension.Text = "E-Mail-Extension:"
         '
-        'cboPersonal
+        'btnUpdateAD
         '
-        Me.cboPersonal._allowedValuesFreiText = Nothing
-        Me.cboPersonal._allowFreiText = False
-        Me.cboPersonal._value = ""
-        Me.cboPersonal.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboPersonal.FormattingEnabled = True
-        Me.cboPersonal.Location = New System.Drawing.Point(7, 65)
-        Me.cboPersonal.Name = "cboPersonal"
-        Me.cboPersonal.Size = New System.Drawing.Size(200, 21)
-        Me.cboPersonal.TabIndex = 95
-        '
-        'MyComboBox2
-        '
-        Me.MyComboBox2._allowedValuesFreiText = Nothing
-        Me.MyComboBox2._allowFreiText = False
-        Me.MyComboBox2._value = ""
-        Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.MyComboBox2.FormattingEnabled = True
-        Me.MyComboBox2.Location = New System.Drawing.Point(9, 24)
-        Me.MyComboBox2.Name = "MyComboBox2"
-        Me.MyComboBox2.Size = New System.Drawing.Size(198, 21)
-        Me.MyComboBox2.TabIndex = 97
-        '
-        'cboDP
-        '
-        Me.cboDP._allowedValuesFreiText = Nothing
-        Me.cboDP._allowFreiText = False
-        Me.cboDP._value = ""
-        Me.cboDP.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboDP.FormattingEnabled = True
-        Me.cboDP.Location = New System.Drawing.Point(217, 151)
-        Me.cboDP.Name = "cboDP"
-        Me.cboDP.Size = New System.Drawing.Size(198, 21)
-        Me.cboDP.TabIndex = 105
-        '
-        'cboKasse
-        '
-        Me.cboKasse._allowedValuesFreiText = Nothing
-        Me.cboKasse._allowFreiText = False
-        Me.cboKasse._value = ""
-        Me.cboKasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboKasse.FormattingEnabled = True
-        Me.cboKasse.Location = New System.Drawing.Point(7, 106)
-        Me.cboKasse.Name = "cboKasse"
-        Me.cboKasse.Size = New System.Drawing.Size(200, 21)
-        Me.cboKasse.TabIndex = 99
-        '
-        'cboSpedbuch
-        '
-        Me.cboSpedbuch._allowedValuesFreiText = Nothing
-        Me.cboSpedbuch._allowFreiText = False
-        Me.cboSpedbuch._value = ""
-        Me.cboSpedbuch.Enabled = False
-        Me.cboSpedbuch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboSpedbuch.FormattingEnabled = True
-        Me.cboSpedbuch.Location = New System.Drawing.Point(217, 66)
-        Me.cboSpedbuch.Name = "cboSpedbuch"
-        Me.cboSpedbuch.Size = New System.Drawing.Size(200, 21)
-        Me.cboSpedbuch.TabIndex = 103
-        '
-        'MyComboBox3
-        '
-        Me.MyComboBox3._allowedValuesFreiText = Nothing
-        Me.MyComboBox3._allowFreiText = False
-        Me.MyComboBox3._value = ""
-        Me.MyComboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.MyComboBox3.FormattingEnabled = True
-        Me.MyComboBox3.Location = New System.Drawing.Point(217, 106)
-        Me.MyComboBox3.Name = "MyComboBox3"
-        Me.MyComboBox3.Size = New System.Drawing.Size(198, 21)
-        Me.MyComboBox3.TabIndex = 101
-        '
-        'cboEZOLL_SB
-        '
-        Me.cboEZOLL_SB._allowedValuesFreiText = Nothing
-        Me.cboEZOLL_SB._allowFreiText = False
-        Me.cboEZOLL_SB._value = ""
-        Me.cboEZOLL_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.cboEZOLL_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboEZOLL_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboEZOLL_SB.FormattingEnabled = True
-        Me.cboEZOLL_SB.Location = New System.Drawing.Point(217, 29)
-        Me.cboEZOLL_SB.Name = "cboEZOLL_SB"
-        Me.cboEZOLL_SB.Size = New System.Drawing.Size(198, 21)
-        Me.cboEZOLL_SB.TabIndex = 109
-        '
-        'cboATLAS_SB
-        '
-        Me.cboATLAS_SB._allowedValuesFreiText = Nothing
-        Me.cboATLAS_SB._allowFreiText = False
-        Me.cboATLAS_SB._value = ""
-        Me.cboATLAS_SB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
-        Me.cboATLAS_SB.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
-        Me.cboATLAS_SB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboATLAS_SB.FormattingEnabled = True
-        Me.cboATLAS_SB.Location = New System.Drawing.Point(9, 29)
-        Me.cboATLAS_SB.Name = "cboATLAS_SB"
-        Me.cboATLAS_SB.Size = New System.Drawing.Size(200, 21)
-        Me.cboATLAS_SB.TabIndex = 107
-        '
-        'cboFaktGrp
-        '
-        Me.cboFaktGrp._allowedValuesFreiText = Nothing
-        Me.cboFaktGrp._allowFreiText = False
-        Me.cboFaktGrp._value = ""
-        Me.cboFaktGrp.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboFaktGrp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboFaktGrp.FormattingEnabled = True
-        Me.cboFaktGrp.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
-        Me.cboFaktGrp.Location = New System.Drawing.Point(211, 155)
-        Me.cboFaktGrp.Name = "cboFaktGrp"
-        Me.cboFaktGrp.Size = New System.Drawing.Size(177, 21)
-        Me.cboFaktGrp.TabIndex = 107
-        '
-        'cboALIASDomain2
-        '
-        Me.cboALIASDomain2._allowedValuesFreiText = Nothing
-        Me.cboALIASDomain2._allowFreiText = False
-        Me.cboALIASDomain2._value = ""
-        Me.cboALIASDomain2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboALIASDomain2.FormattingEnabled = True
-        Me.cboALIASDomain2.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
-        Me.cboALIASDomain2.Location = New System.Drawing.Point(402, 60)
-        Me.cboALIASDomain2.Name = "cboALIASDomain2"
-        Me.cboALIASDomain2.Size = New System.Drawing.Size(116, 21)
-        Me.cboALIASDomain2.TabIndex = 106
-        '
-        'cboTeam
-        '
-        Me.cboTeam._allowedValuesFreiText = Nothing
-        Me.cboTeam._allowFreiText = False
-        Me.cboTeam._value = ""
-        Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboTeam.FormattingEnabled = True
-        Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
-        Me.cboTeam.Location = New System.Drawing.Point(399, 116)
-        Me.cboTeam.Name = "cboTeam"
-        Me.cboTeam.Size = New System.Drawing.Size(148, 21)
-        Me.cboTeam.TabIndex = 101
-        '
-        'cboALIASDomain
-        '
-        Me.cboALIASDomain._allowedValuesFreiText = Nothing
-        Me.cboALIASDomain._allowFreiText = False
-        Me.cboALIASDomain._value = ""
-        Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboALIASDomain.FormattingEnabled = True
-        Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
-        Me.cboALIASDomain.Location = New System.Drawing.Point(402, 37)
-        Me.cboALIASDomain.Name = "cboALIASDomain"
-        Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21)
-        Me.cboALIASDomain.TabIndex = 100
-        '
-        'MyListBox1
-        '
-        Me.MyListBox1._value = ""
-        Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.MyListBox1.FormattingEnabled = True
-        Me.MyListBox1.Location = New System.Drawing.Point(551, 133)
-        Me.MyListBox1.MultiColumn = True
-        Me.MyListBox1.Name = "MyListBox1"
-        Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
-        Me.MyListBox1.Size = New System.Drawing.Size(152, 95)
-        Me.MyListBox1.TabIndex = 96
-        '
-        'cboFirmaFMZOLL
-        '
-        Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing
-        Me.cboFirmaFMZOLL._allowFreiText = False
-        Me.cboFirmaFMZOLL._value = ""
-        Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboFirmaFMZOLL.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboFirmaFMZOLL.FormattingEnabled = True
-        Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(210, 76)
-        Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL"
-        Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(178, 21)
-        Me.cboFirmaFMZOLL.TabIndex = 95
-        '
-        'cboAbteilung
-        '
-        Me.cboAbteilung._allowedValuesFreiText = Nothing
-        Me.cboAbteilung._allowFreiText = False
-        Me.cboAbteilung._value = ""
-        Me.cboAbteilung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboAbteilung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboAbteilung.FormattingEnabled = True
-        Me.cboAbteilung.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
-        Me.cboAbteilung.Location = New System.Drawing.Point(211, 116)
-        Me.cboAbteilung.Name = "cboAbteilung"
-        Me.cboAbteilung.Size = New System.Drawing.Size(177, 21)
-        Me.cboAbteilung.TabIndex = 4
-        '
-        'cboNiederlassung
-        '
-        Me.cboNiederlassung._allowedValuesFreiText = Nothing
-        Me.cboNiederlassung._allowFreiText = False
-        Me.cboNiederlassung._value = ""
-        Me.cboNiederlassung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboNiederlassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboNiederlassung.FormattingEnabled = True
-        Me.cboNiederlassung.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
-        Me.cboNiederlassung.Location = New System.Drawing.Point(18, 116)
-        Me.cboNiederlassung.Name = "cboNiederlassung"
-        Me.cboNiederlassung.Size = New System.Drawing.Size(177, 21)
-        Me.cboNiederlassung.TabIndex = 3
-        '
-        'cboProgSprache
-        '
-        Me.cboProgSprache._allowedValuesFreiText = Nothing
-        Me.cboProgSprache._allowFreiText = False
-        Me.cboProgSprache._value = ""
-        Me.cboProgSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboProgSprache.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboProgSprache.FormattingEnabled = True
-        Me.cboProgSprache.Location = New System.Drawing.Point(16, 526)
-        Me.cboProgSprache.Name = "cboProgSprache"
-        Me.cboProgSprache.Size = New System.Drawing.Size(178, 21)
-        Me.cboProgSprache.TabIndex = 120
-        '
-        'cbxShowPW
-        '
-        Me.cbxShowPW.AutoSize = True
-        Me.cbxShowPW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxShowPW.Location = New System.Drawing.Point(206, 74)
-        Me.cbxShowPW.Name = "cbxShowPW"
-        Me.cbxShowPW.Size = New System.Drawing.Size(69, 17)
-        Me.cbxShowPW.TabIndex = 94
-        Me.cbxShowPW.Text = "anzeigen"
-        Me.cbxShowPW.UseVisualStyleBackColor = True
+        Me.btnUpdateAD.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnUpdateAD.BackColor = System.Drawing.Color.White
+        Me.btnUpdateAD.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnUpdateAD.Image = Global.ADMIN.My.Resources.Resources.refresh
+        Me.btnUpdateAD.Location = New System.Drawing.Point(669, 37)
+        Me.btnUpdateAD.Name = "btnUpdateAD"
+        Me.btnUpdateAD.Size = New System.Drawing.Size(27, 20)
+        Me.btnUpdateAD.TabIndex = 94
+        Me.btnUpdateAD.UseVisualStyleBackColor = False
         '
         'frmMitarbDetails
         '
@@ -2210,4 +2261,8 @@ Partial Class frmMitarbDetails
     Friend WithEvents txtCSUser As TextBox
     Friend WithEvents Label59 As Label
     Friend WithEvents cbxShowPW As CheckBox
+    Friend WithEvents btnADladen As Button
+    Friend WithEvents txtEmailExtension As TextBox
+    Friend WithEvents lblEmailExtension As Label
+    Friend WithEvents btnUpdateAD As Button
 End Class

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -1,4 +1,5 @@
 
+Imports System.DirectoryServices
 Imports System.IO
 Imports System.Net
 Imports System.Net.Http
@@ -6,6 +7,8 @@ Imports System.Net.WebRequestMethods
 Imports System.Security.Policy
 Imports System.Text
 Imports System.Windows
+Imports DAKOSY_Worker.DEERRE
+Imports GrapeCity.Enterprise.Data.Expressions.Evaluation
 Imports Newtonsoft.Json
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -36,6 +39,7 @@ Public Class frmMitarbDetails
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
         Me.FirmaTmp = Firma
+        btnADladen.Visible = True
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
     End Sub
@@ -879,5 +883,106 @@ Public Class frmMitarbDetails
     Private Sub cbxShowPW_CheckedChanged(sender As Object, e As EventArgs) Handles cbxShowPW.CheckedChanged
         txtCSPW.UseSystemPasswordChar = Not cbxShowPW.Checked
     End Sub
+
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnADladen.Click
+        Dim frmAD = New frmADsearch()
+        If frmAD.ShowDialog = DialogResult.OK Then
+            txtEmail.Text = ""
+            txtUsername.Text = ""
+            txtVname.Text = ""
+            txtNname.Text = ""
+            txtDurchwahl.Text = ""
+            txtALIASUser.Text = ""
+            txtEmailExtension.Text = ""
+            txtEmail.Text = frmAD.activeDirectoryObj.mail
+            txtUsername.Text = frmAD.activeDirectoryObj.sAMAccountName
+            txtVname.Text = frmAD.activeDirectoryObj.givenName
+            txtNname.Text = frmAD.activeDirectoryObj.sn
+            txtDurchwahl.Text = frmAD.activeDirectoryObj.telephoneNumber
+            txtALIASUser.Text = frmAD.activeDirectoryObj.sAMAccountName
+            txtEmailExtension.Text = frmAD.activeDirectoryObj.emailextension
+            cboALIASDomain.changeItem(frmAD.activeDirectoryObj.domain)
+            cboAbteilung.changeItem(frmAD.activeDirectoryObj.department)
+            cboNiederlassung.changeItem(frmAD.activeDirectoryObj.company)
+        End If
+
+    End Sub
+
+    Private Sub btnUpdateAD_Click(sender As Object, e As EventArgs) Handles btnUpdateAD.Click
+        If cboALIASDomain._value = "" Or txtALIASUser.Text = "" Then
+            Exit Sub
+        End If
+
+        Dim a As MsgBoxResult = MsgBox("Die Daten des Mitarbeiters mit dem AD synchronisieren?", vbYesNo)
+        If a = vbYes Then
+
+
+            Dim domainName As String = ""
+            Dim ldap As String = ""
+
+            Select Case cboALIASDomain._value
+                Case "imex.local"
+                    ldap = "LDAP://DC=IMEX,DC=LOCAL"
+                Case "VERAGNEUHAUS.local"
+                    ldap = "LDAP://DC=VERAGNEUHAUS,DC=LOCAL"
+                Case "VERAGOST"
+                    ldap = "LDAP://DC=VERAG,DC=OST,DC=DMN"
+            End Select
+
+
+            Dim dirEntry As System.DirectoryServices.DirectoryEntry
+            Dim dirSearcher As System.DirectoryServices.DirectorySearcher
+            Try
+                dirEntry = New System.DirectoryServices.DirectoryEntry(ldap)
+                dirSearcher = New System.DirectoryServices.DirectorySearcher(dirEntry)
+                dirSearcher.Filter = "(samAccountName=" & txtALIASUser.Text & ")"
+                dirSearcher.PropertiesToLoad.Add("GivenName")
+                dirSearcher.PropertiesToLoad.Add("sn")
+                Dim sr As DirectoryServices.SearchResult = dirSearcher.FindOne()
+                If sr Is Nothing Then
+                    Dim b As MsgBoxResult = MsgBox("Mitarbeiterdaten sind im AD nicht vorhanden?" & vbNewLine & "Solle der Mitarbeiter " & txtALIASUser.Text & " in der Domain " & cboALIASDomain.Text & " angelegt werden?", vbYesNo)
+                    If b = vbYes Then
+                        Dim frmAD = New frmADsearch("Referenzuser (Gruppen werden von diesem User übernommen)!")
+
+                        If frmAD.ShowDialog = DialogResult.OK Then
+
+                            'frmAD.activeDirectoryObj.ADEntry.CopyTo(New DirectoryEntry(frmAD.activeDirectoryObj.ADEntry.Parent.Path, txtALIASUser.Text, txtPwd.Text))
+
+                        End If
+                    Else
+                        Exit Sub
+                    End If
+
+                End If
+
+                Dim de As System.DirectoryServices.DirectoryEntry = sr.GetDirectoryEntry()
+
+                de.Properties("givenName").Value = txtVname.Text
+                'de.Properties("sAMAccountName").Value.ToString()
+                de.Properties("department").Value = cboAbteilung._value
+                de.Properties("company").Value = cboFirma.SelectedValue
+                de.Properties("sn").Value = txtNname.Text
+                'de.Properties("extensionAttribute7").Value = txtEmailExtension.Text
+                de.Properties("mail").Value = txtEmail.Text
+                de.CommitChanges()
+
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            End Try
+        End If
+
+    End Sub
+
+    Private Function setNoNullableValue(value As String) As String
+
+        If value IsNot Nothing Then
+            If value <> "" Then
+                Return value
+            End If
+        End If
+
+    End Function
+
+
 End Class