Tengo el siguiente código para introducir datos en el directorio activo. Lo que quiero hacer es leer los clientes de la base de datos y crear un usuario por cada uno de ellos. Me vale con nombre y telefono.
Dim ls_nombre, ls_telefono
Dim DE As DirectoryEntry = New DirectoryEntry("LDAP://192.168.1.1/ou=Clientes,dc=dominio,dc=es")
For li_contador = 0 To DataGridView1.RowCount - 1
ls_nombre = DataGridView1(3, li_contador).Value
ls_telefono = DataGridView1(4, li_contador).Value
If String.IsNullOrEmpty(ls_nombre) Then Continue For
Try
Dim NewUser As DirectoryEntry = DE.Children.Add("CN=" + ls_nombre, "user")
NewUser.Properties("sAMAccountName").Value = ls_nombre
NewUser.Properties("sn").Add(ls_nombre)
NewUser.Properties("telephoneNumber").Add(ls_telefono)
NewUser.CommitChanges()
NewUser.Properties("userAccountControl").Value = &H220 'userACFlags &H220 o &H200 Xor &H2
NewUser.Properties("PwdLastSet").Value = 0
NewUser.CommitChanges()
DataGridView1(2, li_contador).Value = "OK"
DataGridView1.Refresh()
Catch ex As Exception
DataGridView1(2, li_contador).Value = ex.Message
End Try
Next
Basicamente tengo una datagridview cargada con tres campos. Nombre y telefono que son de la base de datos y otro campo donde meto la excepción o un OK si todo ha ido bien.
Mi duda son algunas excepciones que me saltan:
Uno de los dispositivos conetados al sistema no funcionan.
Se ha especificado una sintaxi DN no válida.
Que sifnifican estas dos excepciones?
Un saludo.