Reply to thread

Message

<blockquote data-quote="bjblackmore" data-source="post: 177142" data-attributes="member: 52956">Hi,I'm using the below code to pull a number of attributes from a users AD profile. I can get the user's manager's distinguishedName, but I want to display the displayName. How can i either pull the displayName for the manager from AD, using either another directory query, or by splitting the distinguishedName into just the name, and getting rid of the rest of the string?I get: manager=CN=Bloggs\, Joe,OU=IT,OU=Users,DC=domain,DC=netI want:manager=&quot;Joe Bloggs&quot; or &quot;Bloggs, Joe&quot; (either is fine).[CODE][/COLOR][/COLOR]Private Function GetUserProperties() As ADProperties&nbsp; &nbsp; Dim ADName As String = GetLogonName()&nbsp; &nbsp; Dim bSuccess As Boolean = False&nbsp; &nbsp; Dim dirEntry As DirectoryEntry = GetDirectoryEntry()&nbsp; &nbsp; Dim dirSearcher As DirectorySearcher = New DirectorySearcher(dirEntry)&nbsp; &nbsp; Dim waitTime As TimeSpan = New TimeSpan(0, 0, 0, 5, 0)&nbsp; &nbsp; dirSearcher.ClientTimeout = waitTime&nbsp; &nbsp; dirSearcher.Filter = (&quot;(samAccountName=&quot; &amp; ADName &amp; &quot;)&quot;)&nbsp; &nbsp; dirSearcher.PropertiesToLoad.Add(&quot;manager&quot;)&nbsp; &nbsp; dirSearcher.SearchScope = SearchScope.Subtree&nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; Dim dirResult As SearchResult = dirSearcher.FindOne()&nbsp; &nbsp; &nbsp; &nbsp; bSuccess = Not (dirResult Is Nothing)&nbsp; &nbsp; &nbsp; &nbsp; If dirResult.GetDirectoryEntry.Properties(&quot;manager&quot;).Value Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetUserProperties.manager = &quot;&lt;Not Set&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetUserProperties.manager = (dirResult.Properties(&quot;manager&quot;)(0).ToString())&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; bSuccess = True&nbsp; &nbsp; Catch ex As Exception&nbsp; &nbsp; &nbsp; &nbsp; bSuccess = False&nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;No Connection to the domain.&quot; &amp; Environment.NewLine &amp; &quot;Please connect to corporate network &amp; try again.&quot;, MsgBoxStyle.Critical, &quot;Network Error&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Application.Exit()&nbsp; &nbsp; End TryEnd FunctionPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load&nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; Dim currentADUser As System.DirectoryServices.AccountManagement.UserPrincipal&nbsp; &nbsp; &nbsp; &nbsp; currentADUser = System.DirectoryServices.AccountManagement.UserPrincipal.Current&nbsp; &nbsp; &nbsp; &nbsp; Dim DisplayName As String = currentADUser.GivenName &amp; &quot; &quot; &amp; currentADUser.Surname&nbsp; &nbsp; &nbsp; &nbsp; Username.Text = currentADUser.SamAccountName&nbsp; &nbsp; &nbsp; &nbsp; Dim ADProp As ADProperties = GetUserProperties()&nbsp; &nbsp; &nbsp; &nbsp; manager.Text = ADProp.manager&nbsp; &nbsp; Catch ex As Exception&nbsp; &nbsp; &nbsp; &nbsp; MsgBox(&quot;No Connection to domain.&quot; &amp; Environment.NewLine &amp; &quot;Please connect to corporate network &amp; try again.&quot;, MsgBoxStyle.Critical, &quot;Network Error&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Application.Exit()&nbsp; &nbsp; End TryEnd Sub[COLOR=#333333][COLOR=#333333][/CODE]</blockquote>

[QUOTE="bjblackmore, post: 177142, member: 52956"] [COLOR=#333333][COLOR=#333333]Hi,[/COLOR][/COLOR] [COLOR=#333333][COLOR=#333333]I'm using the below code to pull a number of attributes from a users AD profile. I can get the user's manager's distinguishedName, but I want to display the displayName. How can i either pull the displayName for the manager from AD, using either another directory query, or by splitting the distinguishedName into just the name, and getting rid of the rest of the string?[/COLOR][/COLOR] [COLOR=#333333][COLOR=#333333]I get: [/COLOR][/COLOR] [COLOR=#333333][COLOR=#333333]manager=CN=Bloggs\, Joe,OU=IT,OU=Users,DC=domain,DC=net[/COLOR][/COLOR] [COLOR=#333333][COLOR=#333333]I want:[/COLOR][/COLOR] [COLOR=#333333][COLOR=#333333]manager="Joe Bloggs" or "Bloggs, Joe" (either is fine). [CODE][/COLOR][/COLOR]Private Function GetUserProperties() As ADProperties Dim ADName As String = GetLogonName() Dim bSuccess As Boolean = False Dim dirEntry As DirectoryEntry = GetDirectoryEntry() Dim dirSearcher As DirectorySearcher = New DirectorySearcher(dirEntry) Dim waitTime As TimeSpan = New TimeSpan(0, 0, 0, 5, 0) dirSearcher.ClientTimeout = waitTime dirSearcher.Filter = ("(samAccountName=" & ADName & ")") dirSearcher.PropertiesToLoad.Add("manager") dirSearcher.SearchScope = SearchScope.Subtree Try Dim dirResult As SearchResult = dirSearcher.FindOne() bSuccess = Not (dirResult Is Nothing) If dirResult.GetDirectoryEntry.Properties("manager").Value Is Nothing Then GetUserProperties.manager = "<Not Set>" Else GetUserProperties.manager = (dirResult.Properties("manager")(0).ToString()) End If bSuccess = True Catch ex As Exception bSuccess = False MsgBox("No Connection to the domain." & Environment.NewLine & "Please connect to corporate network & try again.", MsgBoxStyle.Critical, "Network Error") Application.Exit() End Try End Function Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try Dim currentADUser As System.DirectoryServices.AccountManagement.UserPrincipal currentADUser = System.DirectoryServices.AccountManagement.UserPrincipal.Current Dim DisplayName As String = currentADUser.GivenName & " " & currentADUser.Surname Username.Text = currentADUser.SamAccountName Dim ADProp As ADProperties = GetUserProperties() manager.Text = ADProp.manager Catch ex As Exception MsgBox("No Connection to domain." & Environment.NewLine & "Please connect to corporate network & try again.", MsgBoxStyle.Critical, "Network Error") Application.Exit() End Try End Sub[COLOR=#333333][COLOR=#333333][/CODE] [/COLOR][/COLOR] [/QUOTE]

Verification