WindowsIdentity

[Derek Martin]

Does anyone know how to get the current logged on NAME from AD? I can get
the username domain\username, but I would like to actually get John W. Doe
from the currently logged in person. Anyone? Help? hehe

Derek

--
Derek Martin
593074

[Paul Clement]

On Fri, 17 Sep 2004 10:39:26 -0500, "Derek Martin" <dm*****@DONTSPAMMEokstateDOT.edu> wrote:

¤ Does anyone know how to get the current logged on NAME from AD? I can get
¤ the username domain\username, but I would like to actually get John W. Doe
¤ from the currently logged in person. Anyone? Help? hehe

There are several ways to do this but using the NT provider (instead of LDAP) is probably the
easiest:

Dim DomainUser As String =
System.Security.Principal.WindowsIdentity.GetCurre nt.Name.Replace("\", "/")
Dim ADEntry As New System.DirectoryServices.DirectoryEntry("WinNT://" & DomainUser)

Dim FullName as String = ADEntry.Properties("FullName").Value
Paul ~~~ pc******@ameritech.net
Microsoft MVP (Visual Basic)

[Derek Martin]

Wonderful! Thank you Paul, is there a way to use what you just gave me to
retrieve the user's group membership?

For instance, something like:
dim mygroups as something = adentry.properties("memberOf").something

???

Thank you!

Derek
"Paul Clement" <Us***********************@swspectrum.com> wrote in message
news:0v********************************@4ax.com...

On Fri, 17 Sep 2004 10:39:26 -0500, "Derek Martin"
<dm*****@DONTSPAMMEokstateDOT.edu> wrote:

¤ Does anyone know how to get the current logged on NAME from AD? I can
get
¤ the username domain\username, but I would like to actually get John W.
Doe
¤ from the currently logged in person. Anyone? Help? hehe

There are several ways to do this but using the NT provider (instead of
LDAP) is probably the
easiest:

Dim DomainUser As String =
System.Security.Principal.WindowsIdentity.GetCurre nt.Name.Replace("\",
"/")
Dim ADEntry As New
System.DirectoryServices.DirectoryEntry("WinNT://" & DomainUser)

Dim FullName as String = ADEntry.Properties("FullName").Value
Paul ~~~ pc******@ameritech.net
Microsoft MVP (Visual Basic)

[Paul Clement]

On Fri, 17 Sep 2004 13:44:43 -0500, "Derek Martin" <dm*****@DONTSPAMMEokstateDOT.edu> wrote:

¤ Wonderful! Thank you Paul, is there a way to use what you just gave me to
¤ retrieve the user's group membership?
¤
¤ For instance, something like:
¤ dim mygroups as something = adentry.properties("memberOf").something

You can grab the list of groups in which the user is a member using the WinNT provider:

Dim ADGroups As Object
Dim ADGroup As Object

Dim DomainUser As String =
System.Security.Principal.WindowsIdentity.GetCurre nt.Name.Replace("\", "/")

Dim ADEntry As New System.DirectoryServices.DirectoryEntry("WinNT://" & DomainUser)

ADGroups = ADEntry.Invoke("Groups")

For Each ADGroup In ADGroups
Console.WriteLine(ADGroup.Name)
Next
Paul ~~~ pc******@ameritech.net
Microsoft MVP (Visual Basic)