VB.NET Return Active Directory UserNames

You are not logged in. [Log In] CompatDB.org » Forums » Other » Slack Space » VB.NET Return Active Directory UserNames

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 ...

Topic Options

#132355 - 10/22/03 05:38 AM VB.NET Return Active Directory UserNames
Atreyu enthusiast Registered: 07/04/01 Posts: 297	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.
Top

#132359 - 10/22/03 07:04 AM Re: VB.NET Return Active Directory UserNames
sapiens74 Pooh-Bah Registered: 03/30/00 Posts: 1915	Are you using Server 2003?
Top

#132392 - 10/22/03 09:01 PM Re: VB.NET Return Active Directory UserNames
Atreyu enthusiast Registered: 07/04/01 Posts: 297	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.
Top

#132398 - 10/22/03 11:25 PM Re: VB.NET Return Active Directory UserNames
sapiens74 Pooh-Bah Registered: 03/30/00 Posts: 1915	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 :P
Top

#132399 - 10/22/03 11:37 PM

Re: VB.NET Return Active Directory UserNames

Atreyu Offline

enthusiast

Registered: 07/04/01
Posts: 297

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&#40;"LDAP&#58;//mydomain"&#41;
        ''Console.Write&#40;enTry.Username&#41;
        Dim mySearcher As DirectorySearcher = New DirectorySearcher&#40;enTry&#41;
        mySearcher.Filter = "&#40;objectClass=User&#41;"
        Dim resEnt As SearchResult
        For Each resEnt In mySearcher.FindAll&#40;&#41;
            Console.WriteLine&#40;resEnt.GetDirectoryEntry&#40;&#41;.Name.ToString&#40;&#41;&#41;
            Console.WriteLine&#40;resEnt.GetDirectoryEntry&#40;&#41;.Properties&#40;"sAMAccountName"&#41;.Value.ToString&#40;&#41;&#41;
            Console.WriteLine&#40;resEnt.GetDirectoryEntry&#40;&#41;.Path.ToString&#40;&#41;&#41;
            Console.WriteLine&#40;resEnt.GetDirectoryEntry&#40;&#41;.NativeGuid.ToString&#40;&#41;&#41;
            Console.WriteLine&#40;"==========================================="&#41;
        Next

Top

New FREE FX sample package(wavs) or Reason refill version (o

Index

So where's iTunes for windows?

Forums

Windows Support Forums
Everything New Technology
Legacy OS
Hardware
Software
Games
Networking
Customization & Tweaking
Security

Linux Support Forums
Everything Linux
Linux Hardware
Linux Software
Linux Games
Linux Networking
Linux Customization & Tweaking
Linux Security

Apple Support Forums
Everything Apple