windows Active Directory

[sthmpsn1]

I want to connect to my servers Active Directory folder and store it in a dataset. Can anyone help me with this? I have never done this before.

Scott

 

[Alcar]

I haven't found much but the right direction is to look for LDAP instructions. Check this out:

thread855-400189

hth

Daren J. Lahey
Just another computer guy...
FAQ183-874 contains "Suggestions for Getting Quick and Appropriate Answers" to your questions.
Support your forums TODAY!

http://www.tek-tips.com/supportus.cfm

 

[sthmpsn1]

well and here is how I am trying to do it, but nothing is displaying on the screen

Try
txtUserID.Text = "sthompson"
txtPassword.Text =
'Authenticates user name and password with the AD
Dim Entry As New DirectoryEntry("LDAP://AM1ST.COM", txtUserID.Text, txtPassword.Text)
Dim Search As New DirectorySearcher(Entry)
Search.PropertiesToLoad.Add("Name&quot
Dim searchstrg As String
searchstrg = "(&(CN=Thompson)(objectCategory=users))"
Search.Filter = searchstrg
Dim results As SearchResultCollection
results = Search.FindAll()
Response.Write("Good Authentication&quot

Dim result As SearchResult
For Each result In results
Response.Write(result.Properties("Name&quot(0))
Response.Write("hello&quot
Next
'clears text box and resets focus
txtUserID.Text = ""
txtPassword.Text = ""

Catch Err As Exception
Response.Write(Err.Message)
txtUserID.Text = "Missed"
txtPassword.Text = ""
End Try

 

[Alcar]

take the objectcategory off from:

searchstrg = "(&(CN=Thompson)(objectCategory=users))"


hth Daren J. Lahey
Just another computer guy...
FAQ183-874 contains "Suggestions for Getting Quick and Appropriate Answers" to your questions.
Support your forums TODAY!

http://www.tek-tips.com/supportus.cfm

 

[sthmpsn1]

I put it like this searchstrg = "(&(anr=sthompson))"
and now I get this error displayed

Object reference not set to an instance of an object.

 

[sthmpsn1]

putting it like this

searchstrg = "(&(cn=sthompson)(users))"

gives me

The (&(cn=sthompson)(users)) search filter is invalid.

 

[Alcar]

this is how it works for me:

searchstrg = "(&(CN=Daren J. Lahey))"

you need to use your full name if possible. It's not that nice but it's the only workaround (sofar) that I have found.
Daren J. Lahey
Just another computer guy...
FAQ183-874 contains "Suggestions for Getting Quick and Appropriate Answers" to your questions.
Support your forums TODAY!

http://www.tek-tips.com/supportus.cfm

 

[sthmpsn1]

Okay that works, but then why doesn't this part run. I never see Response.Write("hello&quot show up.

Dim result As SearchResult
For Each result In results
Response.Write(result.Properties("displayName&quot(0))
Response.Write("hello&quot
Next

and say display that property of the thing, or as I had above Name. ????

 

[Alcar]

use this loop:

mySearcher.Filter = "(CN=" + strFullName + ")";
SearchResult sr = mySearcher.FindOne();
string strUserGroup;
ResultPropertyCollection myResultPropColl = sr.Properties;
foreach(string sc in myResultPropColl.PropertyNames) 
{
  if(sc == "memberof") 
  {
    for (int w = 0; w < myResultPropColl[sc].Count; w++) 
    {
      strUserGroup = (myResultPropColl[sc])[w].ToString();
      strUserGroup = strUserGroup.Remove(0,3);
      strUserGroup = strUserGroup.Remove(strUserGroup.IndexOf(&quot;,&quot;,0,strUserGroup.Length-1),(strUserGroup.Length - strUserGroup.IndexOf(&quot;,&quot;,0,strUserGroup.Length-1)));
    }
  }
}

and instead of "memberof" put displayName Daren J. Lahey
Just another computer guy...
FAQ183-874 contains "Suggestions for Getting Quick and Appropriate Answers" to your questions.
Support your forums TODAY!

http://www.tek-tips.com/supportus.cfm

 

[sthmpsn1]

If I change the search string to searchstrg = "(&(cn=*))" it displays everything in my domain. All the computers, Names, Printers, everything. I want to grab all the users and display all of them, not just one.

 

[Alcar]

I'll look into this later today. I see what you need to do.
Like you I tried to use the "objectCategory=users" filter but I never got results.
I'll hit the books and get back to you soon.
Daren J. Lahey
Just another computer guy...
FAQ183-874 contains "Suggestions for Getting Quick and Appropriate Answers" to your questions.
Support your forums TODAY!

http://www.tek-tips.com/supportus.cfm

 

[sthmpsn1]

Thanks Daren!!!! I will owe you one.

 

[sthmpsn1]

This line changed grabbed just the users

LDAP://CN=Users,DC=am1st,DC=com"

 

[Alcar]

where am1st is the domain name, right? Daren J. Lahey
Just another computer guy...
FAQ183-874 contains "Suggestions for Getting Quick and Appropriate Answers" to your questions.
Support your forums TODAY!

http://www.tek-tips.com/supportus.cfm

 

[sthmpsn1]

yeap