Last login from sysuaf

[LEBEL]

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

[Karl Rohwedder]

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

[Hein van den Heuvel · Accepted solution]

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

[labadie_1]

Bonjour

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

http://vmspython.dyndns.org/

see "last account login"

[Ian Miller.]

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