Ya he googleado pero tampoco se como plantear la pregunta.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
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