[mod.computers.vax] VMS/DECnet question - how to get remote system status

CHAA006%UK.AC.RHBNC.VAXA@AC.UK.UUCP (07/16/86)

I have a general-purpose DECnet utility called TELL, which you can use
to find out literally anything about a remote DECnet node.  Usage :-

		$ Tell <node> "<command-string>"

Philip Taylor (RHBNC; Univ. of London) <CHAA006@UK.AC.RHBNC.VAXB>

================================================================================

$	mode = f$mode()
$	goto 'mode'
$ interactive:
$ 10$:	if p1 .nes. "" then goto 20$
$	enquire /nopunct p1  "$_Node name: "
$	goto 10$
$ 20$:	if p2 .nes. "" then goto 30$
$	enquire /nopunct p2  "$_Command string: "
$	goto 20$
$ 30$:	node = p1 - "::"
$	node = node + "::""task=tell"""
$	open /read /write network 'node'
$	write network p2
$ 40$:	read /end=50$ network buffer
$	write sys$Output buffer
$	goto 40$
$ 50$:	close network
$	exit
$ network:
$	open /read /write network sys$net:
$	assign network sys$output
$	read network command
$	command
$	deassign sys$output
$	close network
$	exit
$ batch:
$ other:
$	write sys$Output "I don't know how to TELL in ''mode' mode!"
$	exit