Subject: | |
From: | |
Reply To: | Eric H. Sand |
Date: | Fri, 6 Oct 2000 13:15:16 -0500 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Hi Tom,
Below is a versy simple CI script I put together demonstrating how a
unique user may be prevented from signing on twice. This can be placed in a
UDC or in a group in the name resolution path.
------------------------------------------------------------
anyparm ARG=!hpjobname,!hpuser.!hpaccount
setvar cnt 0
if lft(hpstdin,2)="$S"
showjob > stdlist
whoami !ARG < stdlist
return
endif
setvar n finfo(hpstdin,"eof")
setvar num_user 0
while setvar (n,n-1) > 0
if lft(setvar(buf,input()),1)='#'
if setvar (pos, pos(ups("!arg"),buf)) > 0
setvar num_user num_user + 1
endif
endif
endwhile
if num_user > 1
echo !hpjobname,!hpuser.!hpaccount is already logged on...
pause 5
bye
else
echo Welcome to your HPe3000....
endif
------------------------------------------------------------
Eric Sand
[log in to unmask]
|
|
|