Hi Greg,
Dim searcher As DirectorySearcher = New DirectorySearcher("(mailNickname=" + userName + ")")Dim result As SearchResult = searcher.FindOne()
Dim employee As DirectoryEntry = result.GetDirectoryEntry()Dim Empno As String = employee.Properties("employeenumber").Value.ToString()
I am using this code to ...