HP3000-L Archives

January 1999, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Jeff Mikolai <[log in to unmask]>
Reply To:
Jeff Mikolai <[log in to unmask]>
Date:
Mon, 18 Jan 1999 14:28:28 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (114 lines)
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

ATOM RSS1 RSS2