Try this command file I wrote:
SETVAR DEPTLIST "UB PO IS EX AC SD SX TR PU PR CM ET CR ME R2
"
SETVAR MAXULIST "999 020 006 006 004 004 005 099 006 999 006 006 005 006
006"
SETVAR WHO POS(LFT("!HPUSER",2),"!DEPTLIST")
IF WHO <> 0 THEN
SETVAR MAX STR("!MAXULIST",!WHO,3)
ELSE
SETVAR MAX "002"
ENDIF
FILE INPUT;MSG;REC=-80
SHOWJOB JOB=!HPUSER.!HPACCOUNT;EXEC > *INPUT
SETVAR LOGONCNT 0
WHILE FINFO("INPUT",19) > 0
INPUT LINE < *INPUT
SETVAR SCRP POS("#S","!LINE")
IF SCRP > 0
SETVAR LOGONCNT !LOGONCNT + 1
ENDIF
ENDWHILE
SETVAR MAX !MAX + 0
PURGE INPUT,TEMP
RESET INPUT
IF LOGONCNT > MAX THEN
ECHO ** You have exceeded the maximum logon count (!MAX) **
BYE
ENDIF
-----Original Message-----
From: Trudeau, James L [mailto:[log in to unmask]]
Sent: Monday, January 18, 1999 2:22 PM
To: [log in to unmask]
Subject: Re: Logon limits
Jeff,
I wrote this up several years ago; I think the OS version was 3.0 so it
probably could be
"prettied" up some. I never actully put it into production as I wound up
having to write a
whole password system so I just embedded the function in that program.
Anyhow maybe it
could be a foundation you could build on.
/LQ ALL
COMMENT
COMMENT THIS COMMAND FILE WILL INSURE THAT A USER IS LOGGED ON
COMMENT ONLY ONCE. IT WORKS, BUT IT'S A LITTLE SLOW
COMMENT
COMMENT
IF HPUSER = "MANAGER" OR HPUSER = "OPERATOR" THEN
RETURN
ENDIF
SETVAR USER_ACCT HPUSER+"."+HPACCOUNT
SETVAR LOGONS 0
SET ECHO=OFF
CONTINUE
DELETEVAR HOLDVAR
PURGE HOLDFILE
PURGE HOLDFILE,TEMP
BUILD HOLDFILE;REC=-248,,V,ASCII;NOCCTL;MSG;TEMP
SHOWJOB;JOB=@S > HOLDFILE
FILE HOLDFILE,OLDTEMP
WHILE FINFO('HOLDFILE','EOF') > 0 DO
RUN CI.PUB.SYS;PARM=3;INFO="INPUT HOLDVAR";STDIN=*HOLDFILE;&
STDLIST=$NULL
IF POS("!USER_ACCT",HOLDVAR) <> 0 THEN
SETVAR LOGONS LOGONS + 1
ENDIF
SET ECHO=OFF
ENDWHILE
SET ECHO=ON
IF LOGONS > 1
ECHO USER_ACCT alreay logged on elsewhere
BYE
ENDIF
/
Where it tests number of logons you could qualify by user I s'pose.
If nothing else it's free.
Jim Trudeau
> -----Original Message-----
> From: JeffH [SMTP:[log in to unmask]]
> Sent: Monday, January 18, 1999 3:10 PM
> To: [log in to unmask]
> Subject: Logon limits
>
> Does anyone know if you can limit the number of sessions a specific user
> can
> have?
>
> Most of our users are accessing the HP across ethernet connection. By
> running Minisoft 32 multiple times the users have found they can logon to
> the hp several times. I have one that consistantly logs on 5 times all day
> long. Welp, as you could guess, they are using up our user license space.
> What I would like to do is limit some to 1 sesion and others to 2
> sessions.
> Can this be accomplished?
>
> TIA
> Jeff
|