Dear Friends,

I want to share a very small utility to now how many users using your software.

I always create a users??.dbf file in exclusive mode when any user entered.

Now i am using below code to restrict how many users may use my software on Lan.

I hope these codes help beginners.

? "No of Users : "+ltrim(str(usercntchk()))

proc usercntchk
gnDbcnumber=ADIR(gaDatabase, "user*.DBF")
workinguser=0
workingunam=""
for ncount=1 to gndbcnumber
	user_fail=substr(gaDatabase(nCount,1),1,at(".",gaDatabase(nCount,1))-1)
	on error do usercnter
	use &user_fail excl
	on error
	use
endfor
retu workinguser

proc usercnter
on error
if error()=1705
	use &user_fail shar
	workinguser=workinguser+1
	if len(workingunam)=0
		workingunam=alltrim(substr(name,1,at("#",name)-1))
	else
		workingunam=workingunam+","+alltrim(substr(name,1,at("#",name)-1))
	endif
endif

Please also suggest me if you have any other good suggestion.

With regard
Anup Singh
(M.D.)
MARG Compusoft Pvt. Ltd.

Email:anupmarg@gmail.com
Web:www.margcompusoft.com