NT User Name

[kioko]

Is it possible if you to retrieve the user name of the person who is logged on to a machine /domain in win9x /nt from withing vb and or msaccess if you are not using MS SQL
i know it is possible using SQL but the application i have written uses an Access Database

Please help

Kioko

 

[dsi]

Use this API function:

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

Sub Main()
    Dim ret As Long
    Dim sUserName As String
    Dim lpBuff As String * 25

    'Get the Login Name
    ret = GetUserName(lpBuff, 25)
    sUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
    sUserName = UCase(sUserName)

    MsgBox sUserName
End Sub