Help with finding users
10043...@compuserve.com
One thing you could try is OVMS PHONE. Log onto NEWVAX and enter
the PHONE command. Then do a DIR MORSE::. Chances are you'll get
a list of users currently on MORSE. An ideal way to get a list of users
logeed onto a system when you don't have an account on that system
(assuming the DECnet object exists).
Chris Clifford,
Systems Programmer,
Chemical Bank, United Kingdom.
Brian Tillman
10043...@compuserve.com says...
>
>One thing you could try is OVMS PHONE. Log onto NEWVAX and enter
>the PHONE command. Then do a DIR MORSE::. Chances are you'll get
>a list of users currently on MORSE. An ideal way to get a list of users
>logeed onto a system when you don't have an account on that system
>(assuming the DECnet object exists).
Another approach might be the following command procedure called NETWHO.COM.
Use it like this:
@netwho othernode
$ ver := 'f$verify( 0 )
$ say = "write sys$output"
$!
$! NETWHO.COM -- Shows the logged in users on a remote DECnet node
$! by asking the PHONE object for a list.
$!
$ getp1:
$ if p1 .nes. "" then goto gotp1
$ read/prompt="_Node: " sys$command p1
$ goto getp1
$!
$ gotp1:
$ p1 = p1 - "::"
$ num = 0
$ cmd[0,8] = 15
$ open/read/write/error=exit phn 'p1'::"29="
$ say "Users on ", p1, " at ", f$time(), "."
$ say "Process Name User Name Terminal Phone Status"
$ say ""
$!
$ lupe:
$ write phn cmd
$ read/error=close phn str
$ if f$length( str ) .eq. 0 then goto close
$ say str
$ num = num+1
$ goto lupe
$!
$ close:
$ close phn
$ say ""
$ say f$fao( "!SL person!%S listed.", num )
$!
$ exit:
$ if .not. $status then say f$message( $status )
$ exit 1 + 0 * f$verify( ver )
--
-----------------------------+--------------------------------
Brian Tillman | Internet: til...@swdev.si.com
Smiths Industries, Inc. | tillma...@si.com
4141 Eastern Ave., MS239 | Hey, I said this stuff myself.
Grand Rapids, MI 49518-8727 | My company has no part in it.
-----------------------------+--------------------------------