Return Users NT or W2k login id

[JONBOY74]

How can I return a users NT or W2k login id to a form

Many Thanks

Jon

 

[handbrake]

Paste this API declaration at top of module:

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


Public Function GetCurrentNTLogin() As String
On Error GoTo ErrGetCurrentNTLogin
Dim lLengthUserName As Long
Dim sUserName As String
Dim lResult As Long


' Use the GetUserName API to find out who is currently logged onto
' this system. Preset the length of the string to hold the
' returned user name from the "GetUserName" API.
lLengthUserName = 255
sUserName = Space(lLengthUserName)

' Call GetUserName to find out who is logged onto this system.
lResult = GetUserName(sUserName, lLengthUserName)

' Return value of zero means the call failed; test for this before
' continuing.
If (lResult = 0) Then
sUserName = Environ("USERNAME&quot
End If

GetCurrentNTLogin = TrimBuffer(sUserName)

Exit Function
'*** Error Trap ***
ErrGetCurrentNTLogin:
Err.Raise Err.Number, "GetCurrentNTLogin:" & MODULE_NAME & vbCrLf & Err.Source, Err.Description
End Function


Hope this helps,
Cheers,
Grant.