User listing in a domain (VB.NET 2005 - Windows XP)

[=?Utf-8?B?ZG1idXNv?=]

I would like a listing of all users in the current domain (or on my
computer). I'm running Windows XP Home Edition and I've set up four user, one
for each member of my family.

'My.User.Name' just lists me. How do I get the others? I looked at some code
posted here on 4/27/07 and it doesn't work, I've already tried it.

Thanks in advance.

--
Dave B.

[PlatinumBay]

dmbuso,

Here is some Console code to grab all the users in the Administrators group
and display their name and SID. You can change the group name in the code.

Code:

Imports System.Security .Principal
Imports System.Director yServices

Module Module1
Sub Main()
Dim localMachine As New DirectoryEntry( "WinNT://" &
Environment.Mac hineName)
Dim admGroup As DirectoryEntry =
localMachine.Ch ildren.Find("ad ministrators", "group")
Dim members As Object = admGroup.Invoke ("members", Nothing)
For Each groupMember As Object In CType(members, IEnumerable)
Dim member As New DirectoryEntry( groupMember)
Console.WriteLi ne(member.Name)

Dim si As New
SecurityIdentif ier(CType(membe r.Properties("o bjectSid")(0), Byte()), 0)
Dim sid As String = si.Value
Console.WriteLi ne(sid)
Next

Console.ReadLin e()
End Sub
End Module

Hope this helps,
Steve

"dmbuso" <dm*****@commun ity.nospamwrote in message
news:14******** *************** ***********@mic rosoft.com...

>I would like a listing of all users in the current domain (or on my
computer). I'm running Windows XP Home Edition and I've set up four user,
one
for each member of my family.

'My.User.Name' just lists me. How do I get the others? I looked at some
code
posted here on 4/27/07 and it doesn't work, I've already tried it.

Thanks in advance.

--
Dave B.

[=?Utf-8?B?ZG1idXNv?=]

Steve,

I wanted all user, not administrators. I will try your code and see if I can
modify it for all users.
--
Dave B.
"PlatinumBa y" wrote:

dmbuso,

Here is some Console code to grab all the users in the Administrators group
and display their name and SID. You can change the group name in the code.

Code:

Imports System.Security .Principal
Imports System.Director yServices

Module Module1
Sub Main()
Dim localMachine As New DirectoryEntry( "WinNT://" &
Environment.Mac hineName)
Dim admGroup As DirectoryEntry =
localMachine.Ch ildren.Find("ad ministrators", "group")
Dim members As Object = admGroup.Invoke ("members", Nothing)
For Each groupMember As Object In CType(members, IEnumerable)
Dim member As New DirectoryEntry( groupMember)
Console.WriteLi ne(member.Name)

Dim si As New
SecurityIdentif ier(CType(membe r.Properties("o bjectSid")(0), Byte()), 0)
Dim sid As String = si.Value
Console.WriteLi ne(sid)
Next

Console.ReadLin e()
End Sub
End Module

Hope this helps,
Steve

"dmbuso" <dm*****@commun ity.nospamwrote in message
news:14******** *************** ***********@mic rosoft.com...

I would like a listing of all users in the current domain (or on my
computer). I'm running Windows XP Home Edition and I've set up four user,
one
for each member of my family.

'My.User.Name' just lists me. How do I get the others? I looked at some
code
posted here on 4/27/07 and it doesn't work, I've already tried it.

Thanks in advance.

--
Dave B.

[Walter Wang [MSFT]]

Hi Dave,

In that case, I think you can simply replace 'administrators ' with 'users':

Dim admGroup As DirectoryEntry = localMachine.Ch ildren.Find("us ers",
"group")
Regards,
Walter Wang (wa****@online. microsoft.com, remove 'online.')
Microsoft Online Community Support

=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====

This posting is provided "AS IS" with no warranties, and confers no rights.