+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : التأكد من أن اسم مستعمل موجود باستخدام ال ActiveDirectory (/showthread.php?tid=6225)
التأكد من أن اسم مستعمل موجود باستخدام ال ActiveDirectory - RaggiTech - 17-10-12
كاتب الموضوع : Boutemine Oualid
السلام عليكم و رحمة الله وبركاتهسي شارب
كود :
public static bool UserExists(string username)
{
DirectoryEntry de = GetDirectoryEntry();
DirectorySearcher searcher = new DirectorySearcher();
searcher.SearchRoot = de;
searcher.Filter = string.format(@"(&(objectClass=user) (cn={0}))", username);
SearchResultCollection results = searcher.FindAll();
return results.Count > 0;
}كود :
Public Shared Function UserExists(ByVal username As String) As Boolean
Dim de As DirectoryEntry = GetDirectoryEntry()
Dim searcher As New DirectorySearcher()
searcher.SearchRoot = de
searcher.Filter = String.format("(&(objectClass=user) (cn={0}))", username)
Dim results As SearchResultCollection = searcher.FindAll()
Return results.Count > 0
End Function