MS_08.04

app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb

@@ -86,18 +86,22 @@ Public Class frmUserKonfig_AddUsers
         For Each user In users
             Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
             newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
-            newUserRow.Username = user.ToString
             Try
                 Dim userldap As UserPrincipal = user
                 Dim PRENAME As String = userldap.GivenName
                 Dim NAME As String = userldap.Surname
                 Dim USERNAME As String = userldap.SamAccountName
+                Try
+                    newUserRow.Username = userldap.SamAccountName
+                Catch ex As Exception
+                    newUserRow.Username = user.ToString
+                End Try
                 Dim email As String = userldap.EmailAddress
                 newUserRow.Prename = PRENAME
                 newUserRow.Surname = NAME
                 newUserRow.Email = email
             Catch ex As Exception
-
+                ClassLogger.Add("Unexpected Error in Read User LDAP-Configurations: " & vbNewLine)
             End Try
             DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
         Next