FoxPro: Retrieve NT Username

gvee · #1 (**permalink**) 12-03-07, 10: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

gvee · #2 (**permalink**) 12-04-07, 08:33

Code:

*---+ 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.

Internet Services

Web Development

Digital Marketing

Consumer Tech