|
|
 |
|
|
 |
|
|
|
|
|
Sep
1
Written by:
slhilbert
9/1/2005 11:08 PM
What we have is two functions.
The first function pulls out all the users from the group. The second function is given the unformatted user name and returns just the sam account name for the user.
Public Function fncDisplayGroupMembers(ByVal groupName As String)
Try
Dim sPath As String = LDAP://SERVER/DC=DomainName"
Dim filter As String = String.Format("(&(objectCategory=group)(cn={0}))", groupName)
Dim entry As New DirectoryEntry(sPath, "USERNAME", "PASSWORD")
Dim searcher As New DirectorySearcher(entry, filter)
Dim users As New ArrayList
Try
Dim result As SearchResult = searcher.FindOne()
Dim member As Object = result.Properties("member")
If Not IsNothing(member) Then
For Each dn As String In CType(member, IEnumerable)
Dim sAMAccountName As String = GetAccountName(dn)
If Len(sAMAccountName) > 0 Then
Response.Write(sAMAccountName & "<BR>")
users.Add(sAMAccountName)
End If
Next
' returns string array of users
Return CType(users.ToArray(GetType(String)), String())
End If
Catch e As Exception
Return e.ToString
End Try
entry.Dispose()
searcher.Dispose()
Catch ex As System.Exception
lblInformation.Text = ex.ToString
End Try
End Function
Public Function GetAccountName(ByVal DN As String)
Dim strOutput As String
Dim DE As New DirectoryEntry("LDAP://SERVERNAME/" & DN, "USERNAME", "PASSWORD")
Try
DE.RefreshCache()
If DE.SchemaClassName = "user" Then
strOutput = DE.Properties("sAMAccountName").Value
End If
If Not Len(strOutput) > 0 Then
Exit Function
End If
Catch ex As Exception
'TODO: Raise an error
strOutput = "There was an exception and I died. It was: " & ex.ToString
End Try
Return strOutput
DE.Dispose()
End Function
Tags:
2 comment(s) so far...
designer handbags
I never see so wonderful article. designer handbags uk, many leather designer handbags wholesale, include fashion louis vuitton handbags, louis vuitton leather designer handbags, chanel leather handbags, coach leather handbags, fashion gucci designer handbags, prada leather designer handbags, Balenciaga leather designer handbags, luxury Miu Miu designer handbags, fashion Fendi designer handbags. buy designer handbags - fashionezhone.com. louis vuitton designer handbags uk, buy chanel handbags, coach designer handbags wholesale, gucci handbags sale, prada handbags online, Balenciaga designer handbags uk, Miu Miu designer handbags wholesale, buy Fendi handbags in FashioneZone.com. branded designer handbags wholesale and all of our designer handbags sale, fashion louis vuitton designer handbags, fashion chanel designer handbags, fashion Fendi handbags, coach leather designer handbags, louis vuitton leather handbags, gucci leather designer handbags, prada leather handbags, fashion Balenciaga designer handbags, Miu Miu handbags, luxury Fendi designer handbags. designer handbags uk. buy louis vuitton designer handbags, chanel handbags uk, coach designer handbags online, buy gucci designer handbags, prada handbags wholesale, Balenciaga handbags uk, Miu Miu designer handbags online, Fendi handbags uk, louis vuitton designer handbags sale, chanel designer handbags wholesale, coach designer handbags uk, buy gucci handbags in FashioneZone.com.
By designerbag on
10/16/2010 2:45 AM
|
Re: Getting Members of an Active Directory Group in VB.NET
You just came Chanel Replicas across this really cool bumper sticker printing website that offers colorful, custom stickers at great prices. Unfortunately, Chanel Handbags you're just not sure that you want to put Chanel Bags a sticker of any kind on your Prada Handbags car. What reason would you have to do UGG so?
Trust us;Discount UGGs there are plenty of reasons to Prada Replicas smack one of these great stickers on your ride. The Prada Bags first of which is for a cause. UGGs Is there something that you feel particularly strong about? Are you completely against illegal Gucci Replicas immigration? Do you support organ and tissue donation? Are you a gun control advocate? Are you all about owning a firearm? Gucci Handbags These days there are plenty of things to be passionate UGG Boots on Sale about, from wars in foreign countries, to animal adoption. Gucci Bags People from your hometown to places on the opposite side of the country are promoting their causes with bumper sticker printing.UGG Boots
You don't want to let everyone know Louis Vuitton Replicas how you feel about the death penalty. That's okay! People are putting bumper stickers on their Christian Louboutin Shoes on Sale cars for other reasons too. Discount UGG Boots How about advertising? Do you own a business? Louis Vuitton Handbags Do you have a friend who owns a business? What about UGG Boots Outlet your parents? Individuals who own businesses are beginning to realize that it doesn't really make sense to pay for elaborate Louis Vuitton Bags and expensive advertising when you could just advertise on your own vehicle for essentially free. Bumper sticker advertising is not Discount UGG Boots only inexpensive, it's portable. If you're promoting your business from the back window of your car, then people from your house, to the mall, to the Coach Bags Outlet beach where you're planning to go this weekend will see your advertisement.UGG Boots on Sale Talk about Christian Louboutin Outlet reaching a mass market!
What about politics? Are you a Democrat who is against the new Republican congress and you're already dreaming Coach Handbags about campaigning for the future? Come up with a slogan and make it happen! Or, you can Cheap UGG Boots just promote the candidate with whom you most relate. If you're passionate about politics and you want to help your favorite candidate get the word out, a Coach Bags bumper sticker is definitely the way to go. Political stickers are almost as The North Face Outlet prevalent on the roadway as....cars! Christian Louboutin Shoes
Another type of sticker that's seen on Coach Outlet Online the roadways quite frequently is the sports team sticker. Show off your UGG Boots Volunteer Pride or your love for the Baltimore Orioles with a big, orange "T" or an "O" Discount Christian Louboutin Shoes that takes up half of the back window on your SUV. There are sports team stickers available everywhere online. If Cheap Christian Louboutin Shoes you aren't seeing one you love, a custom bumper sticker printing company can certainly produce one for you and it'll Coach Outlet be a bumper sticker you're proud to have on your car. The North Face Jackets
People also put stickers on North Face Jackets their cars for religious and spiritual reasons. From the Jesus fish, to the cross, people Coach Handbags Outlet are praising the Lord in the pew and on their bumper!
On a more somber note, people also use Coach Handbags bumper stickers to remember relatives and friends who have passed away.
If you're UGGs interested in ordering your Coach Bags Outlet own custom bumper sticker, you're making a great decision! Have a seat in front of your computer and visit a bumper sticker printing company's website. You can customize your own sticker Coach Bags or choose one from the thousands they have to offer. Don't just stop at one though! You can order stickers in bulk, which is especially handy if you're using your bumper stickers to promote your small business. Your Coach Outlet sticker order should ship The North Face Jacket within a couple of days and you'll be well on your way to showing off your cause, political affiliation, or favorite sports team! North Face Jacket
By swei on
9/20/2011 12:27 AM
|
|
|
For years of ramblings check out the "Blogchive" on the upper right.
|
|
|