Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

Get a list of members of a WinNT group

Tags:

There are a couple of questions similar to this on stack overflow but not quite the same.

I want to open, or create, a local group on a win xp computer and add members to it, domain, local and well known accounts. I also want to check whether a user is already a member so that I don't add the same account twice, and presumably get an exception.

So far I started using the DirectoryEntry object with the WinNT:// provider. This is going ok but I'm stuck on how to get a list of members of a group?

Anyone know how to do this? Or provide a better solution than using DirectoryEntry?

like image 761
Kepboy Avatar asked Oct 31 '08 08:10

Kepboy


People also ask

How do I find the users group in Windows?

Hit Windows+R, type “lusrmgr. msc” into the Run box, and then hit Enter. In the “Local Users and Groups” window, select the “Users” folder, and then double-click the user account you want to look at.


1 Answers

Okay, it's taken a while, messing around with different solutions but the one that fits best with my original question is given below. I can't get the DirectoryEntry object to access the members of a local group using the 'standard' methods, the only way I could get it to enumerate the members was by using the Invoke method to call the native objects Members method.

 using(DirectoryEntry groupEntry = new DirectoryEntry("WinNT://./Administrators,group")) {     foreach(object member in (IEnumerable) groupEntry.Invoke("Members"))     {         using(DirectoryEntry memberEntry = new DirectoryEntry(member))         {             Console.WriteLine(memberEntry.Path);         }     } } 

I also used a similar technique to add and remove members from the local group.

Hopefully this helps someone else as well. Keith.

EDIT by Tim: added VB.Net version

Public Function MembersOfGroup(ByVal GroupName As String) As List(Of DirectoryEntry)     Dim members As New List(Of DirectoryEntry)     Try         Using search As New DirectoryEntry("WinNT://./" & GroupName & ",group")             For Each member As Object In DirectCast(search.Invoke("Members"), IEnumerable)                 Dim memberEntry As New DirectoryEntry(member)                 members.Add(memberEntry)             Next         End Using     Catch ex As Exception         MessageBox.Show(ex.ToString)     End Try     Return members End Function 
like image 115
Kepboy Avatar answered Sep 28 '22 11:09

Kepboy