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")(0)))
lviUsuario.SubItems.Add(Convert.ToString
(result.Properties("name")(0)))
Next

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")

(0)))

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