Read From Active Directory

موضوع رقم واحد

التانى

التالت بس vb.net

الرابع جوجل دوت كوم

السلام عليكم

استخدم هذا الكلاس

ولاي استفسار انا جاهز

Imports Microsoft.VisualBasic
Imports System.DirectoryServices
Imports System.DirectoryServices.ActiveDirectory


Public Class myRoles

  Dim Entry As DirectoryEntry = New DirectoryEntry("LDAP://DOMAIN.ly")
	Dim oSearsh As DirectorySearcher
	Dim Result As SearchResult

	Dim D As Domain = Domain.GetCurrentDomain()

	Dim Results As SearchResultCollection
	Dim sname As String, mail As String, txtResult As String

	Public ReadOnly Property GetFullName() As String
		Get
			Try

				oSearsh = New DirectorySearcher(D.GetDirectoryEntry)
				oSearsh.Filter = "(&(objectCategory=user)(objectClass=*)(mail=" & UserName & "@DOMAIN.ly))"
				oSearsh.PropertiesToLoad.Add("name")
				Result = oSearsh.FindOne
				Return Result.Properties("name")(0)

			Catch ex As Exception
				Return ex.Message
			End Try
		End Get
	End Property

	Public ReadOnly Property GetMail() As String
		Get

			oSearsh = New DirectorySearcher(D.GetDirectoryEntry)
			oSearsh.Filter = "(&(objectCategory=user)(objectClass=*)(mail=" & UserName & "@*))"
			oSearsh.PropertiesToLoad.Add("mail")
			Result = oSearsh.FindOne
			Return Result.Properties("mail")(0)

		End Get
	End Property

	Public ReadOnly Property UserName() As String
		Get
			Try

				Return My.User.CurrentPrincipal.Identity.Name.Substring(8)

			Catch ex As Exception
				Return ex.Message
			End Try
		End Get
	End Property
End Class