topic Re: Last login from sysuaf in Operating System - OpenVMS

Last login from sysuaf

LEBEL — Mon, 30 May 2005 04:25:07 GMT

Is there anybody have a tool or a script to get last login from sysuaf ?

my email is pascal.lebel@grassavoye.com (France)

Thanks for your advise

Re: Last login from sysuaf

Karl Rohwedder — Mon, 30 May 2005 04:37:23 GMT

We use a tool called GETUAI (you should find it on the standard fileservers,e.g. Hunter Goatleys), which reports UAF chars into DCL symbols, e.g.

$ GETUAI ROHWEDDER/LAST_LOGIN=kalles_last_login
$ SHO SYM kalles_last_login
KALLES_LAST_LOGIN = "30-MAY-2005 09:07:35.15"

regards Kalle

Re: Last login from sysuaf

Hein van den Heuvel — Mon, 30 May 2005 09:49:48 GMT

Welcome to the ITRC OpenVMS forum be sure to check out:
http://forums1.itrc.hp.com/service/forums/helptips.do?
and at some point:
http://forums1.itrc.hp.com/service/forums/questionanswer.do?threadId=140137

You probably do not want to post your Email here out in the open. IN case 'trolls' come by for spam addressed. Just ask here, and get an answer here!?

Actually... better still, ask around first with google (+site:itrc.hp.com if you want to stay here) or similar because as you might imagine you ar enot the first to ask this questions.

getuaf and tools like it are the best way to go IMHO. Myself I published one on the freeware cd:
http://h71000.www7.hp.com/freeware/freeware60/rms_tools/bonus/getuai.c

Specifically for your question I have a com file handy. It lists all username/loastlogin combo beyond a certain date. Readily modified to just list by username. See below.

hth,
Hein.

$ type uaf.com
$if p1.eqs.""
$then
$ write sys$output "Please provide last-login (interactive) cutoff date"
$ exit
$else
$ cut_date = f$cvtime(p1)
$
$!libr/extr=$uafdef/out=uafdef.tmp sys$library:lib.mlb
$!EQU UAF$S_LASTLOGIN_I 8
$!EQU UAF$Q_LASTLOGIN_I 396
$!EQU UAF$L_FLAGS 468
$!EQU UAF$V_DISACNT 4
$
$open /read /share uaf 'f$parse("SYSUAF","SYS$SYSTEM:.DAT",,,"SYNTAX_ONLY")
$loop:
$ read/end=done uaf rec
$ username=f$extr(4,12,rec)
$ bin_date=f$extr(396,8,rec)
$ flags =f$extr(468,4,rec)
$ disuser = - f$cvsi(4,1,flags)
$ if f$cvsi(0,32,bin_date) .eq. 0 then goto loop
$ asc_date=f$fao("!%D",f$cvui(32,32,f$fao("!AD",8,bin_date)))
$ cmp_date=f$cvtime(asc_date)
$ if cmp_date.les.cut_date then -
write sys$output username, " ", disuser, " ", asc_date
$goto loop
$done:
$close uaf

Re: Last login from sysuaf

labadie_1 — Mon, 30 May 2005 14:45:07 GMT

Bonjour

If you install Python for Vms, you have an example doing exactly that at

http://vmspython.dyndns.org/

see "last account login"

Re: Last login from sysuaf

Ian Miller. — Mon, 30 May 2005 16:08:01 GMT

another getuai
ftp://ftp.process.com/vms-freeware/fileserv/getuai.zip