VB.NET Return Active Directory UserNames

Using VB. NET. . . I created a program that randomly generates usernames. Now I need it to search the Active Directory to ensure the username does not already exist. How would I search my Active Directory to return a matching username? Also, how would I query Active Directory to return a listing of all usernames? T ...

Slack Space 1613 This topic was started by Atreyu, 2003-10-22 03:38

Discussion 4

Atreyu

295 Posts
Location -
Joined 2001-07-04

#116509

2003-10-22 05:38

Using VB.NET...

I created a program that randomly generates usernames. Now I need it to search the Active Directory to ensure the username does not already exist. How would I search my Active Directory to return a matching username? Also, how would I query Active Directory to return a listing of all usernames? This was easy in VB6... but doesn't seem to be as straight-forward now.

Thanks in advance.

Promise Ultra100 TX2 read/write LED

W32.Swen slamming my Exchange

Participate on our website and join the conversation

You have already an account on our website? Use the link below to login.

Create a new user account. Registration is free and takes only a few seconds.

This topic is archived. New comments cannot be posted and votes cannot be cast.

Responses to this topic

sapiens74

1915 Posts
Location -
Joined 2000-03-30

#116510

2003-10-22 07:04

Are you using Server 2003?

Atreyu

295 Posts
Location -
Joined 2001-07-04

#116511

2003-10-22 21:01

It shouldn't matter, but yes... it's on a couple servers (mixed with 2k).

Either way, I figured it out. I'll post the code when I get off of work.

sapiens74

1915 Posts
Location -
Joined 2000-03-30

#116512

2003-10-22 23:25

I misunderstood the questions.

I thought you were trying to query AD for specific users.

With Server 2003 you can use DSGET command

But since you are talking programming, thats not my thing

Atreyu

295 Posts
Location -
Joined 2001-07-04

#116513

2003-10-22 23:37

No problem. Here's what I found to work. It returns the user's name, their path, and also their alias (or username).

Code:

        Dim enTry As DirectoryEntry = New DirectoryEntry("LDAP://mydomain")        ''Console.Write(enTry.Username)        Dim mySearcher As DirectorySearcher = New DirectorySearcher(enTry)        mySearcher.Filter = "(objectClass=User)"        Dim resEnt As SearchResult        For Each resEnt In mySearcher.FindAll()            Console.WriteLine(resEnt.GetDirectoryEntry().Name.ToString())            Console.WriteLine(resEnt.GetDirectoryEntry().Properties("sAMAccountName").Value.ToString())            Console.WriteLine(resEnt.GetDirectoryEntry().Path.ToString())            Console.WriteLine(resEnt.GetDirectoryEntry().NativeGuid.ToString())            Console.WriteLine("===========================================")        Next