G. <gerry77 at mail.com> writes:
On Sat, 26 Nov 2016 21:26:31 +0200, Sampsa Laine
wrote:
Guys, what=E2=80=99s the DCL lexical for
extracting the remote host and=
username of=20
someone logged into my system over DECNET?
I=E2=80=99m writing a script=
that needs=20
the host + username of the person connecting to a
captive account..
REMPORT =3D F$GETDVI("TT:","TT_ACCPORNAM")
REMNODE =3D F$ELEMENT(0,":",REMPORT)
REMUSER =3D F$ELEMENT(2,":",REMPORT)
Why not just translate the logicals: SYS$REM_NODE and SYS$REM_ID?
$ WRITE SYS$OUTPUT "''F$trnlnm("SYS$REM_NODE")'"
$ WRITE SYS$OUTPUT "''F$trnlnm("SYS$REM_ID")'"
--
VAXman- A Bored Certified VMS Kernel Mode Hacker VAXman(at)TMESIS(dot)ORG
I speak to machines with the voice of humanity.