Hi Prasad
this sample get user info using logen name , it is with vb.net but the
logic and class calls would be the same with c#. There is also a listing
c# example
Public Class ADengine
Sub testProperties( ByVal strUserName As String, ByVal strLDAP As
String, ByVal strWinsAdminNam e As String, ByVal strAdminPass As String)
Dim entry As New System.Director yServices.Direc toryEntry(strLD AP,
strWinsAdminNam e, strAdminPass)
'Dim Flag As System.Director yServices.Direc toryEntries
Dim MyUser As System.Director yServices.Direc toryEntry
Dim searcher As New
System.Director yServices.Direc torySearcher(en try)
searcher.Filter = "(&(objectClass =User)(|(mailNi ckname=" &
strUserName & ")))"
Dim result As System.Director yServices.Searc hResultCollecti on
result = searcher.FindAl l
Dim result1 As System.Director yServices.Searc hResult
For Each result1 In result
Dim props As System.Director yServices.Resul tPropertyCollec tion
props = result1.Propert ies
Dim propNames As System.Collecti ons.ICollection
Dim propValues As System.Collecti ons.ICollection
propNames = props.PropertyN ames
Dim enumerator As IEnumerator
enumerator = propNames.GetEn umerator
'open file to write data to it
Dim fs As System.IO.FileS tream =
System.IO.File. Create("c:\User Data.txt")
Dim sw As New System.IO.Strea mWriter(fs)
For i As Integer = 0 To propNames.Count
If enumerator.Move Next() Then
sw.Write(enumer ator.Current.To String() &
ControlChars.Ta b)
Dim resultValuesCol l As
System.Director yServices.Resul tPropertyValueC ollection
resultValuesCol l =
props.Item(enum erator.Current. ToString)
For j As Integer = 0 To resultValuesCol l.Count - 1
sw.Write(result ValuesColl(j).T oString & ",")
Next
sw.Write(Contro lChars.CrLf)
End If
Next
sw.Flush()
sw.Close()
fs.Close()
Next
End Sub
Function GetActiveDirect oryUsers(ByVal strUserName As String, ByVal
strLDAP As String, ByVal strWinsAdminNam e As String, ByVal strAdminPass As
String) As String
Dim intCount As Integer
Dim strsAMAccountNa me As String = ""
Dim strmailname As String = ""
Dim strDept As String = ""
Dim strFullName As String = ""
Dim strUserData As String
Dim strUserStatus As String
Dim entry As New System.Director yServices.Direc toryEntry(strLD AP,
strWinsAdminNam e, strAdminPass)
'Dim Flag As System.Director yServices.Direc toryEntries
Dim MyUser As System.Director yServices.Direc toryEntry
Dim intAccountContr ol As Integer
Dim intResult As Integer
Dim searcher As New
System.Director yServices.Direc torySearcher(en try)
searcher.Filter = "(&(objectClass =User)(|(mailNi ckname=" &
strUserName & ")))"
Dim result As System.Director yServices.Searc hResultCollecti on
result = searcher.FindAl l
Dim result1 As System.Director yServices.Searc hResult
For Each result1 In result
Try
MyUser = New
System.Director yServices.Direc toryEntry(resul t1.Path)
Dim x, y As System.Collecti ons.ICollection
If
Microsoft.Visua lBasic.Strings. InStr(result1.P roperties("mail Nickname")(0),
"SystemMailbox" , Microsoft.Visua lBasic.CompareM ethod.Text) = 0 Then
'result1.GetDir ectoryEntry()
strsAMAccountNa me =
result1.Propert ies("sAMAccount Name")(0)
'The following is the Alias
Try
strmailname = result1.Propert ies("mail")(0)
Catch ex As Exception
'strmailname = "@" 'userPrincipalN ame
strmailname =
result1.Propert ies("userPrinci palName")(0)
End Try
Try
strDept = result1.Propert ies("department ")(0)
Catch ex As Exception
strDept = "@"
End Try
Try
strFullName = result1.Propert ies("displayNam e")(0)
Catch ex As Exception
strFullName = "@"
End Try
intAccountContr ol =
result1.Propert ies("userAccoun tControl")(0) 'take care
intResult = intAccountContr ol And 2
If intResult = 0 Then
strUserStatus = "Enabled"
ElseIf intResult = 2 Then
strUserStatus = "Disabled"
End If
End If
Catch ex As Exception
Return "Error"
End Try
Next
strUserData = strUserName & "/" & strmailname & "/" & strDept & "/"
& strFullName & "/" & strUserStatus
Return strUserData
End Function
Public Function GetStrWinsAdmin UserName(ByVal strDC As String) As String
Dim strWinsName, strAdminUserNam e As String
Dim arrstrDC() As String
arrstrDC = strDC.Split("." )
strWinsName = arrstrDC(0)
strAdminUserNam e =
System.Configur ation.Configura tionSettings.Ap pSettings("Admi nUserName")
Return strWinsName & "\" & strAdminUserNam e
End Function
Public Function FormatStrLDAP(B yVal strActiveDirect oryIP As String,
ByVal strDC As String) As String
Dim strconstDC, strLDAP As String
Dim arrstrDC() As String
Dim intCount As Integer
arrstrDC = strDC.Split("." )
strconstDC = "DC="
strDC = ""
For intCount = 0 To arrstrDC.Length - 1
strDC = strDC & strconstDC & arrstrDC(intCou nt) & ","
Next
strDC = strDC.Substring (0, strDC.Length - 1)
strLDAP = "LDAP://" & strActiveDirect oryIP & "/" & strDC
Return strLDAP
End Function
End Class
'The Above Function Gets All the details about specific user
'As I mentioned in my Previous statement,
'it seems that there is a problem in the UserAccountCont rol property value.
_______________ ______
c# sample
using System;
using System.Collecti ons;
using System.Drawing;
using System.Windows. Forms;
using System.Globaliz ation;
using System.Runtime. InteropServices ;
namespace PowerAD
{
public class ListViewTextSor t: IComparer
{
/// <summary>
/// Constructor
/// </summary>
/// <param name="sortColum n">Column to be sorted</param>
/// <param name="ascending ">true, if ascending order, false
otherwise</param>
public ListViewTextSor t(Int32 sortColumn, Boolean ascending)
{
m_column = sortColumn;
m_ascending = ascending;
}
/// <summary>
/// Implementation of IComparer.Compa re
/// </summary>
/// <param name="lhs">Firs t Object to compare</param>
/// <param name="rhs">Seco nd Object to compare</param>
/// <returns>Less that zero if lhs is less than rhs. Greater than
zero if lhs greater that rhs. Zero if they are equal</returns>
public Int32 Compare(Object lhs, Object rhs)
{
ListViewItem lhsLvi = lhs as ListViewItem;
ListViewItem rhsLvi = rhs as ListViewItem;
if(lhsLvi == null || rhsLvi == null) // We only know how to
sort ListViewItems, so return equal
return 0;
ListViewItem.Li stViewSubItemCo llection lhsItems =
lhsLvi.SubItems ;
ListViewItem.Li stViewSubItemCo llection rhsItems =
rhsLvi.SubItems ;
String lhsText = (lhsItems.Count > m_column) ?
lhsItems[m_column].Text : String.Empty;
String rhsText = (rhsItems.Count > m_column) ?
rhsItems[m_column].Text : String.Empty;
Int32 result = 0;
if(lhsText.Leng th == 0 || rhsText.Length == 0)
result = lhsText.Compare To(rhsText);
else
result = OnCompare(lhsTe xt, rhsText);
if(!m_ascending )
result = -result;
return result;
}
/// <summary>
/// Overridden to do type-specific comparision.
/// </summary>
/// <param name="lhs">Firs t Object to compare</param>
/// <param name="rhs">Seco nd Object to compare</param>
/// <returns>Less that zero if lhs is less than rhs. Greater than
zero if lhs greater that rhs. Zero if they are equal</returns>
protected virtual Int32 OnCompare(Strin g lhs, String rhs)
{
return String.Compare( lhs, rhs, false);
}
private Int32 m_column;
private Boolean m_ascending;
}
/// <summary>
/// Provides text sorting (case insensitive)
/// </summary>
public class ListViewTextCas eInsensitiveSor t: ListViewTextSor t
{
/// <summary>
/// Constructor
/// </summary>
/// <param name="sortColum n">Column to be sorted</param>
/// <param name="ascending ">true, if ascending order, false
otherwise</param>
public ListViewTextCas eInsensitiveSor t(Int32 sortColumn, Boolean
ascending):
base(sortColumn , ascending)
{
}
/// <summary>
/// Case-insensitive compare
/// </summary>
protected override Int32 OnCompare(Strin g lhs, String rhs)
{
return String.Compare( lhs, rhs, true);
}
}
/// <summary>
/// Provides date sorting
/// </summary>
public class ListViewDateSor t: ListViewTextSor t
{
/// <summary>
/// Constructor
/// </summary>
/// <param name="sortColum n">Column to be sorted</param>
/// <param name="ascending ">true, if ascending order, false
otherwise</param>
public ListViewDateSor t(Int32 sortColumn, Boolean ascending):
base(sortColumn , ascending)
{
}
/// <summary>
/// Date compare
/// </summary>
protected override Int32 OnCompare(Strin g lhs, String rhs)
{
return DateTime.Parse( lhs).CompareTo( DateTime.Parse( rhs));
}
}
/// <summary>
/// Provides integer (32 bits) sorting
/// </summary>
public class ListViewInt32So rt: ListViewTextSor t
{
/// <summary>
/// Constructor
/// </summary>
/// <param name="sortColum n">Column to be sorted</param>
/// <param name="ascending ">true, if ascending order, false
otherwise</param>
public ListViewInt32So rt(Int32 sortColumn, Boolean ascending):
base(sortColumn , ascending)
{
}
/// <summary>
/// Integer compare
/// </summary>
protected override Int32 OnCompare(Strin g lhs, String rhs)
{
return Int32.Parse(lhs , NumberStyles.Nu mber) - Int32.Parse(rhs ,
NumberStyles.Nu mber);
}
}
/// <summary>
/// Provides integer (64 bits) sorting
/// </summary>
public class ListViewInt64So rt: ListViewTextSor t
{
/// <summary>
/// Constructor
/// </summary>
/// <param name="sortColum n">Column to be sorted</param>
/// <param name="ascending ">true, if ascending order, false
otherwise</param>
public ListViewInt64So rt(Int32 sortColumn, Boolean ascending):
base(sortColumn , ascending)
{
}
/// <summary>
/// Integer compare
/// </summary>
protected override Int32 OnCompare(Strin g lhs, String rhs)
{
return (Int32)(Int64.P arse(lhs, NumberStyles.Nu mber) - Int64.Parse(rhs ,
NumberStyles.Nu mber));
}
}
/// <summary>
/// Provides floating-point sorting
/// </summary>
public class ListViewDoubleS ort: ListViewTextSor t
{
/// <summary>
/// Constructor
/// </summary>
/// <param name="sortColum n">Column to be sorted</param>
/// <param name="ascending ">true, if ascending order, false
otherwise</param>
public ListViewDoubleS ort(Int32 sortColumn, Boolean ascending):
base(sortColumn , ascending)
{
}
/// <summary>
/// Floating-point compare
/// </summary>
protected override Int32 OnCompare(Strin g lhs, String rhs)
{
Double result = Double.Parse(lh s) - Double.Parse(rh s);
if(result > 0)
return 1;
else if(result < 0)
return -1;
else
return 0;
}
}
/// <summary>
/// Provides sorting of ListView columns
/// </summary>
public class ListViewSortMan ager
{
/// <summary>
///
/// </summary>
/// <param name="list">Lis tView that this manager will provide
sorting to</param>
/// <param name="comparers ">Array of Types of comparers (One for
each column)</param>
public ListViewSortMan ager(ListView list, Type[] comparers)
{
m_column = -1;
m_sortOrder = SortOrder.None;
m_list = list;
m_comparers = comparers;
m_imgList = new ImageList();
m_imgList.Image Size = new Size(8, 8);
m_imgList.Trans parentColor = System.Drawing. Color.Magenta;
m_imgList.Image s.Add(GetArrowB itmap(ArrowType .Ascending)); // Add
ascending arrow
m_imgList.Image s.Add(GetArrowB itmap(ArrowType .Descending)); // Add
descending arrow
SetHeaderImageL ist(m_list, m_imgList);
list.ColumnClic k += new ColumnClickEven tHandler(Column Click);
}
/// <summary>
/// Returns the current sort column
/// </summary>
public Int32 Column
{
get { return m_column; }
}
/// <summary>
/// Returns the current sort order
/// </summary>
public SortOrder SortOrder
{
get { return m_sortOrder; }
}
/// <summary>
/// Returns the type of the comparer for the given column
/// </summary>
/// <param name="column">C olumn index</param>
/// <returns></returns>
public Type GetColumnCompar erType(Int32 column)
{
return m_comparers[column];
}
/// <summary>
/// Sets the type of the comparer for the given column
/// </summary>
/// <param name="column">C olumn index</param>
/// <param name="comparerT ype">Comparer type</param>
public void SetColumnCompar erType(Int32 column, Type comparerType)
{
m_comparers[column] = comparerType;
}
/// <summary>
/// Reassigns the comparer types for all the columns
/// </summary>
/// <param name="comparers ">Array of Types of comparers (One for each
column)</param>
public void SetComparerType s(Type[] comparers)
{
m_comparers = comparers;
}
/// <summary>
/// Sorts the rows based on the given column and the current sort
order
/// </summary>
/// <param name="sortColum n">Column to be sorted</param>
public void Sort(Int32 column)
{
SortOrder order = SortOrder.Ascen ding;
if(column == m_column)
order = (m_sortOrder == SortOrder.Ascen ding) ? SortOrder.Desce nding :
SortOrder.Ascen ding;
Sort(column, order);
}
/// <summary>
/// Sorts the rows based on the given column and sort order
/// </summary>
/// <param name="column">C olumn to be sorted</param>
/// <param name="order">So rt order</param>
public void Sort(Int32 column, SortOrder order)
{
if(column < 0 || column >= m_comparers.Len gth)
throw new IndexOutOfRange Exception();
if(column != m_column)
{
ShowHeaderIcon( m_list, m_column, SortOrder.None) ;
m_column = column;
}
ShowHeaderIcon( m_list, m_column, order);
m_sortOrder = order;
if(order != SortOrder.None)
{
ListViewTextSor t comp = (ListViewTextSo rt)
Activator.Creat eInstance(m_com parers[m_column], new Object[] { m_column,
order == SortOrder.Ascen ding } );
m_list.ListView ItemSorter = comp;
}
}
/// <summary>
/// ColumnClick event handler
/// </summary>
/// <param name="sender">E vent sender</param>
/// <param name="e">Event arguments</param>
private void ColumnClick(obj ect sender, ColumnClickEven tArgs e)
{
this.Sort(e.Col umn);
}
private Int32 m_column;
private SortOrder m_sortOrder;
private ListView m_list;
private Type[] m_comparers;
private ImageList m_imgList;
hope this helps
Mohamed Mahfouz
MEA Developer Support Center
ITworx on behalf of Microsoft EMEA GTSC
