Extracting Windows User/Login ID

[TomB1974]

I am building a db the requires me to keep track of activity by my users. Rather than create a users table I would like to extract the windows User/Login ID. I can write the code surounding the event I just need to retrieve the ID

TIA

 

[anvil19]

Hi TomB1974

This code will give you the user name and the machine name of the user :

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


Public Property Get ComputerName() As String
    Dim stBuff As String * 255, lAPIResult As Long
    Dim lBuffLen As Long

    lBuffLen = 255
    lAPIResult = GetComputerName(stBuff, lBuffLen)
    If lBuffLen > 0 Then ComputerName = Left(stBuff, lBuffLen)
End Property

Function SeeUser() As String

    Dim lpBuff As String * 25
    Dim ret As Long, UserName As String

    ret = GetUserName(lpBuff, 25)
    UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

SeeUser = UserName

End Function

Function SeeComputerName() As String
        SeeComputerName = ComputerName
End Function

Any Help??

anvil19