Retrieving Logged-in User's userid from Active Directory 1

[WynneSMI]

I need to know how to retrieve the user id of the currently logged-in user from Active Directory. Is there an API call or a function what will give me this information? Thanks.

 

[jebry]

Hi!

You can try using the CurrentUser function:

MyUser = CurrentUser

This does not always work, if it doesn't you can use the following:

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function fOSUserName() As String
' Returns the network login name

Dim lngLen As Long, lngX As Long
Dim strUserName As String

strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = &quot;&quot;
End If

End Function

MyUser = fosUserName()

hth


Jeff Bridgham
bridgham@purdue.edu

 

[jebry]

Hi!

Forgot to say that the API call came to me originally from a friend of mine. Where he might of gotten it I cannot say.




Jeff Bridgham
bridgham@purdue.edu

 

[WynneSMI]

Thanks, I think this is just what I need!