redaware » Windows 2003 Server http://www.redaware.net Wed, 16 Jun 2010 15:15:28 +0000 en hourly 1 http://wordpress.org/?v=3.0.1 VB.NET: Retrieving Active Directory account properties http://www.redaware.net/2009/08/vb-net-retrieving-active-directory-account-properties/ http://www.redaware.net/2009/08/vb-net-retrieving-active-directory-account-properties/#comments Wed, 05 Aug 2009 08:22:24 +0000 tsymonds http://www.redaware.net/?p=61 The .NET Framework includes an API called System.DirectoryServices. The sample VB.NET code below shows how to retrieve user account properties from the Active Directory.

In order to use System.DirectoryServices classes, you will need to first add a reference to System.DirectoryServices.

Imports System.DirectoryServices is required at the very top of your VB.NET code.

Function GetUserProperties(ByVal GetUser, ByVal Result)
        Dim objSearch As New DirectorySearcher
        objSearch.SearchRoot = New DirectoryEntry("LDAP://dc=domain,dc=co,dc=uk")
        objSearch.Filter = GetUser
        'cn = Full Name, givenName = First name, initials = Middle names, sn = Surname, mail = email address
        objSearch.PropertiesToLoad.AddRange(New String() {"cn", "giveName", "initials", "sn", "department", "mail", "Manager"})
        Dim objResult As SearchResult
        objResult = objSearch.FindOne()
        GetUserProperties = (objResult.Properties(Result)(0))
End Function

Replace dc=domain, dc=co, dc=uk with your AD settings.

]]> http://www.redaware.net/2009/08/vb-net-retrieving-active-directory-account-properties/feed/ 0