local lcName, ; lnSize, ; lcUser, ; lnStatus * Initialize the variables we need and declare the Windows function. lcName = chr(0) lnSize = 64 lcUser = replicate(lcName, lnSize) declare integer WNetGetUser in Win32API ; string @cName, string @cUser, integer @nBufferSize * Call the function and return the result. lnStatus = WNetGetUser(@lcName, @lcUser, @lnSize) lcUser = iif(lnStatus = 0, upper(left(lcUser, at(chr(0), lcUser) - 1)), '') return lcUserDoug