ActiveDirectory

Hola, tengo el siguiente código para listar los usuarios
de un dominio, me carga un listview con el user y el

name, pero tambien necesito saber si esta habilitado o

y si su cuenta está unlocked o locked. Mil gracias por

ayuda.

Dim src As DirectorySearcher
Dim result As SearchResult
Dim lviUsuario As ListViewItem
src = New DirectorySearcher
("(&objectCategory=user))") 'user
For Each result In src.FindAll()
lviUsuario = ListView1.Items.Add(Convert.ToString
(result.Properties("samaccountname")

lviUsuario.SubItems.Add(Convert.ToString
(result.Properties("name")(0)))
Next


..


.