Hello please can any one help me
i wrote this code in vb to get all user in active directory
dsearch = New DirectorySearcher(objADObject)
Dim n, mn, ds(5), kj As String
n = My.User.Name
ds = n.Split("\")
n = ds(1).Replace("'", "")
dsearch.Filter = "(&(objectClass=user)(sAMAccountName=" + n + "))"
Dim srs As SearchResult
For Each srs In dsearch.FindAll()
emp_name = fun.ActiveDicect_details(srs, "name")
Next srs
but when run it give me this error (( A referral was returned from the server ))
zeana
i wrote this code in vb to get all user in active directory
dsearch = New DirectorySearcher(objADObject)
Dim n, mn, ds(5), kj As String
n = My.User.Name
ds = n.Split("\")
n = ds(1).Replace("'", "")
dsearch.Filter = "(&(objectClass=user)(sAMAccountName=" + n + "))"
Dim srs As SearchResult
For Each srs In dsearch.FindAll()
emp_name = fun.ActiveDicect_details(srs, "name")
Next srs
but when run it give me this error (( A referral was returned from the server ))
zeana