Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!decvax!decwrl!ucbvax!AC.UK!CHAA006%UK.AC.RHBNC.VAXA
From: CHAA006%UK.AC.RHBNC.VAXA@AC.UK.UUCP
Newsgroups: mod.computers.vax
Subject: Re: VMS/DECnet question - how to get remote system status
Message-ID: <8607161123.AA08095@ucbvax>
Date: Wed, 16-Jul-86 07:23:59 EDT
Article-I.D.: ucbvax.8607161123.AA08095
Posted: Wed Jul 16 07:23:59 1986
Date-Received: Wed, 16-Jul-86 17:41:43 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 39
Approved: info-vax@sri-kl.arpa

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