Visual Basic

<br />
<br />
DirectoryEntry entry = new<br />
          DirectoryEntry("LDAP://dev.codeguru.com");<br />
try<br />
{<br />
  DirectorySearcher search = new DirectorySearcher(entry);<br />
  search.Filter = "(SAMAccountName=administrator)";<br />
  search.PropertiesToLoad.Add("Name");<br />
  search.PropertiesToLoad.Add("displayName");<br />
  SearchResult result = search.FindOne();<br />
  if( result != null )<br />
  {<br />
    Console.WriteLine("User found");<br />
    foreach( string key in result.Properties.PropertyNames )<br />
    {<br />
      // Each property contains a collection of its own<br />
      // that may contain multiple values<br />
      foreach( Object propValue in  result.Properties[key] )<br />
      {<br />
        Console.WriteLine(key + " = " + propValue);<br />
      }<br />
    }<br />
  }<br />
  else<br />
  {<br />
    Console.WriteLine("User not found");<br />
  }<br />
}<br />
catch( Exception ex )<br />
{<br />
  throw new Exception("User not authenticated: " + ex.Message);<br />
}<br />
Console.ReadLine();<br />

<br />
try<br />
{<br />
  string path = "LDAP://CN=Users,DC=dev,DC=codeguru,DC=com";<br />
  DirectoryEntry entry = new DirectoryEntry(path, <br />
  "dev.codeguru.com\\administrator", "password");<br />
  DirectorySearcher search = new DirectorySearcher(entry);<br />
  search.Filter = "(SAMAccountName=testuser)";<br />
  SearchResult result = search.FindOne();<br />
  DirectoryEntry user = result.GetDirectoryEntry();<br />
  user.Properties["description"].Value = "New description for user";<br />
  user.CommitChanges();<br />
}<br />
catch( Exception exception )<br />
{<br />
  Console.WriteLine( exception.Message );<br />
}<br />
<br />