>*--George: dbfForums 2007 >*---+ 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 >?lcNTUsername >*---+ Username retrieved. >