Tom,

I think that was in version 7 that the .PCUserName property first saw the
light of day.

regards,
Robert

-----Original Message-----
From: Tom Emerson [mailto:[log in to unmask]]
Sent: 27 September 2001 18:56
To: [log in to unmask]
Subject: Re: Capturing Network Logon Name with Reflection...


On Thu, 27 Sep 2001 17:38:28 +0100, Robert Mills <robert.mills@WINDSONG-
SERVICES.CO.UK> wrote:

>The following Reflection Basic code will create a variable on the HP3000.
>Can't get it to work if stored and run from the host (yet). As they say
>'Watch This Space'.
>
>Sub Main
>  With Application
>    .Transmit "setvar NetworkUserName '" & .PCUserName & "'" & Chr$(rcCR)
>    End With
>  End Sub
>

using that as a jumping off point, I found the following works at the
command prompt:

setvar esc chr(27)
echo !esc&oG
echo sub main
echo     application.transmit "pcusername" & chr$(rcCR)
echo end sub
echo !esc&oH
input uname
echo You logged onto your PC as !uname

(this is kept as the file "pcuname")

:pcuname

pcusername
You logged onto your PC as pcusername
:


Note I've quoted "pcusername", thus making it a literal string -- I tried
application.username, however my copy of reflection (5.2) does not think
that "pcusername" is a component of the "application" class -- YMMV

BUT, this excersise DID point out a cool thing or two, namely, the

    esc&oG / esc&oH

strings allow MULTIPLE messages to be passed to the PC, eventually
executing as an entire RBS subroutine.  (I guess I'm to "old school" -- I'm
used to the concept of the entire "command" needing to be passed as a
single string from the HP to the PC...)

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *