MS2501

Global_Indexer/frmUserKonfig_AddUsers.vb

@@ -278,12 +278,20 @@ Public Class frmUserKonfig_AddUsers
                 Dim PRENAME As String = userldap.GivenName
                 Dim NAME As String = userldap.Surname
                 Dim USERNAME As String = userldap.SamAccountName
+                Dim _name = userldap.DisplayName
+                Dim _name1 = userldap.Name
+                Dim _name3 = userldap.Name
                 Try
                     newUserRow.Username = userldap.SamAccountName
                 Catch ex As Exception
                     newUserRow.Username = user.ToString
                 End Try
-                Dim email As String = userldap.EmailAddress
+                Dim email As String
+                Try
+                    email = userldap.EmailAddress
+                Catch ex As Exception
+                    email = ""
+                End Try
                 newUserRow.Prename = PRENAME
                 newUserRow.Surname = NAME
                 newUserRow.Email = email
@@ -301,7 +309,7 @@ Public Class frmUserKonfig_AddUsers
             Dim usersAdded As Integer = 0
 
             For Each row As DataRow In MyDataset.TBAD_Users.Rows
-                If row.Item(0) = CBool(True) Then
+                If CBool(row.Item(0)) = CBool(True) Then
                     Dim USERNAME As String = row.Item(1)
 
                     Dim PRENAME As String = row.Item(2)