LPARAMETERS ltcResource LOCAL lcResource, lcUserId, lnLen IF TYPE("ltcResource") = "C" lcResource = ltcResource ELSE lcResource = "" ENDIF lcUserId = SPACE(255) lnLen = 255 * Use the WNetGetUser function in the Win32API to get the user id DECLARE INTEGER WNetGetUser IN WIN32API String @, String @, Integer @ IF WNetGetUser(lcResource + CHR(0), @lcUserId, @lnLen) = 0 lcUserId = UPPER(LEFT(lcUserId, AT(CHR(0), lcUserId) - 1)) ELSE lcUserId = "" ENDIF RETURN ALLTRIM(lcUserId)Arne