Enumerate local groups and their membership?

[ginolard]

I'm trying to find out how to enumerate all local groups on a machine
and list their membership. It's easy in Vbscript but it seems to be
considerably more tricky in VB.NET.

Am I missing something obvious?

 

[ginolard]

Phew, I figured it out....

For Each DeEntry In groupcoll.Children
If DeEntry.SchemaEntry.Name = "Group" Then
EnumGroupMembers(DeEntry.Name)
End If
Next


Public Sub EnumGroupMembers(ByVal group As String)
Console.WriteLine("Being enumerating members of " & group)
Dim MembersCollection As IADsMembers
Dim GroupToEnum As New DirectoryEntry("WinNT://" & strComputer & "/" &
group & ",group")
MembersCollection = GroupToEnum.Invoke("Members")
Dim filter As System.Object() = {"user"}
MembersCollection.Filter = filter
Dim user As IADsUser
Dim grp As IADsGroup

For Each user In MembersCollection
Console.WriteLine(user.ADsPath)
Next

Dim grpfilter As System.Object() = {"group"}
MembersCollection.Filter = grpfilter
For Each grp In MembersCollection
Console.WriteLine(grp.ADsPath)
Next
Console.WriteLine("Finished enumerating members of" & group)
End Sub