FoxPro: Retrieve NT Username [Archive]

georgev

12-03-07, 11:24

I'm afraid I'm not entirely sure what version of FoxPro I am using (at a guess v5 or 6) but hopefully any solution can be "moulded" to work on my platform.

Is it possible to retrieve the NT username of a user of a foxpro application, and if so, how?

Cheers,
George

georgev

12-04-07, 09:33

*---+ Get Windows NT Username
private lcUserIDBuffer, lnBufferSize, RetVal

RetVal = 0
lcUserIDBuffer = Space(25) && Return buffer for user ID string
lnBufferSize = 25 && Size of user ID return buffer

Declare Integer GetUserName In Win32API As GetName;
String @lcUserIDBuffer,;
Integer @lnBufferSize

RetVal = GetName(@lcUserIDBuffer, @lnBufferSize)

lcNTUsername = Left(lcUserIDBuffer, lnBufferSize-1)

If empty(lcNTUsername)
lcNTUsername = "Unknown"
EndIf
*---+ Username retrieved.