Berechtigungen kopieren aus Referenzuser
This commit is contained in:
@@ -21,7 +21,7 @@ Public Class frmMitarbDetails
|
||||
Private berechtigungen As New List(Of cBerechtigungen)
|
||||
Public mid As Integer = -1
|
||||
Public isUpdate As Boolean = False
|
||||
Private mitarbeiter As New VERAG_PROG_ALLGEMEIN.cMitarbeiter
|
||||
Public mitarbeiter As New VERAG_PROG_ALLGEMEIN.cMitarbeiter
|
||||
Private usrBerechtigung As New List(Of cUserBerechtigungen)
|
||||
Private usrBerechtigungNEU As New List(Of cUserBerechtigungen)
|
||||
Dim ZOLLDATENBEARB = False
|
||||
@@ -926,11 +926,39 @@ Public Class frmMitarbDetails
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
|
||||
ContextMenuStrip1.Hide() 'Sometimes the menu items can remain open. May not be necessary for you.
|
||||
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
|
||||
|
||||
If item IsNot Nothing Then
|
||||
synchActiveDirectoryADMIN(item.Name)
|
||||
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
|
||||
|
||||
|
||||
ContextMenuStrip1.Items.Clear()
|
||||
|
||||
Dim ADToADMIN = New ToolStripMenuItem() With {.Text = "Active Directory -> ADMIN (nur leere Felder werden befüllt)", .Name = "ADtoADMIN", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
Dim ADMINToAD = New ToolStripMenuItem() With {.Text = "ADMIN -> Active Directory (nur leere Felder werden befüllt)", .Name = "ADMINtoAD", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
|
||||
AddHandler ADToADMIN.Click, AddressOf mnuItem_Clicked
|
||||
ContextMenuStrip1.Items.Add(ADToADMIN)
|
||||
AddHandler ADMINToAD.Click, AddressOf mnuItem_Clicked
|
||||
ContextMenuStrip1.Items.Add(ADMINToAD)
|
||||
|
||||
|
||||
ContextMenuStrip1.Show(Cursor.Position)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub synchActiveDirectoryADMIN(AdminTOAD As String)
|
||||
|
||||
Dim a As MsgBoxResult = MsgBox("Die Daten des Mitarbeiters mit dem AD synchronisieren?", vbYesNo)
|
||||
If a = vbYes Then
|
||||
|
||||
@@ -982,25 +1010,50 @@ Public Class frmMitarbDetails
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If (isFilled(de.Properties("givenName").Value)) Then de.Properties("givenName").Value = txtVname.Text
|
||||
If (isFilled(de.Properties("department").Value)) Then de.Properties("department").Value = cboAbteilung._value
|
||||
If (isFilled(de.Properties("company").Value)) Then de.Properties("company").Value = cboFirma.SelectedValue
|
||||
If (isFilled(de.Properties("sn").Value)) Then de.Properties("sn").Value = txtNname.Text
|
||||
If (isFilled(de.Properties("mail").Value)) Then de.Properties("mail").Value = txtEmail.Text
|
||||
If AdminTOAD = "ADMINtoAD" Then
|
||||
|
||||
|
||||
|
||||
If (isFilled(de.Properties("givenName").Value)) Then de.Properties("givenName").Value = txtVname.Text
|
||||
If (isFilled(de.Properties("department").Value)) Then de.Properties("department").Value = cboAbteilung._value
|
||||
If (isFilled(de.Properties("company").Value)) Then de.Properties("company").Value = cboFirma.SelectedValue
|
||||
If (isFilled(de.Properties("sn").Value)) Then de.Properties("sn").Value = txtNname.Text
|
||||
If (isFilled(de.Properties("mail").Value)) Then de.Properties("mail").Value = txtEmail.Text
|
||||
|
||||
If (isFilled(de.Properties("streetAdress").Value)) Then de.Properties("streetAdress").Value = txtStrasse.Text
|
||||
If (isFilled(de.Properties("postalCode").Value)) Then de.Properties("postalCode").Value = txtPlz.Text
|
||||
If (isFilled(de.Properties("I").Value)) Then de.Properties("I").Value = txtOrt.Text
|
||||
If (isFilled(de.Properties("Mobile").Value)) Then de.Properties("Mobile").Value = txtMobiltel.Text
|
||||
|
||||
If cbxGekuendigt.Checked Then
|
||||
Dim expire As DateTime = datGekuendigtAm.Value
|
||||
expire = expire.AddDays(1)
|
||||
de.Properties("accountExpires").Value = expire.ToFileTime.ToString
|
||||
|
||||
End If
|
||||
de.CommitChanges()
|
||||
Else
|
||||
|
||||
|
||||
|
||||
If txtEmail.Text = "" Then txtEmail.Text = de.Properties("mail").Value
|
||||
If txtUsername.Text = "" Then txtUsername.Text = de.Properties("sAMAccountName").Value
|
||||
If txtVname.Text = "" Then txtVname.Text = de.Properties("givenName").Value
|
||||
If txtNname.Text = "" Then txtNname.Text = de.Properties("sn").Value
|
||||
If txtStrasse.Text = "" Then txtStrasse.Text = de.Properties("streetAdress").Value
|
||||
If txtPlz.Text = "" Then txtPlz.Text = de.Properties("postalCode").Value
|
||||
If txtOrt.Text = "" Then txtOrt.Text = de.Properties("I").Value
|
||||
If txtMobiltel.Text = "" Then txtMobiltel.Text = de.Properties("Mobile").Value
|
||||
If txtDurchwahl.Text = "" Then txtDurchwahl.Text = de.Properties("telephoneNumber").Value
|
||||
If txtALIASUser.Text = "" Then txtALIASUser.Text = de.Properties("sAMAccountName").Value
|
||||
If txtEmailExtension.Text = "" Then txtEmailExtension.Text = de.Properties("extensionAttribute7").Value
|
||||
'cboALIASDomain.changeItem(frmAD.activeDirectoryObj.domain)
|
||||
'cboAbteilung.changeItem(frmAD.setNoNullableValue(frmAD.activeDirectoryObj.ADEntry.Properties("department").Value))
|
||||
'cboNiederlassung.changeItem(frmAD.setNoNullableValue(frmAD.activeDirectoryObj.ADEntry.Properties("company").Value))
|
||||
|
||||
If cbxGekuendigt.Checked Then
|
||||
Dim expire As DateTime = datGekuendigtAm.Value
|
||||
expire = expire.AddDays(1)
|
||||
de.Properties("accountExpires").Value = expire.ToFileTime.ToString
|
||||
|
||||
End If
|
||||
|
||||
'If (isFilled(de.Properties("streetAdress").Value)) Then de.Properties("streetAdress").Value = txtStrasse.Text
|
||||
'If (isFilled(de.Properties("postalCode").Value)) Then de.Properties("postalCode").Value = txtPlz.Text
|
||||
'If (isFilled(de.Properties("I").Value)) Then de.Properties("I").Value = txtOrt.Text
|
||||
'If (isFilled(de.Properties("Mobile").Value)) Then de.Properties("Mobile").Value = txtMobiltel.Text
|
||||
de.CommitChanges()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
Reference in New Issue
Block a user