Here is the final version of the script that I wrote that, thanks to Harry,
now works.
parm help=''
if lft('!help',1) = '?' then
setvar s chr(14)
setvar b chr(14)+':'+chr(15)
echo
![s+'R;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;']
echo ![b+' PCUSER - Sets the NetworkUserName environmental variable.']
echo
![s+'5;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;']
echo ![b+'']
echo ![b+' Syntax:']
echo ![b+' PCUSER [?]']
echo ![b+'']
echo ![b+' Parameters:']
echo ![b+' ? Displays this help screen.']
echo ![b+'']
echo ![b+' Restrictions:']
echo ![b+' WRQ Reflection (v6 and newer).']
echo ![b+'']
echo
![s+'F;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;']
#
# Author: Robert W.Mills
#
# Modification History can be found at the end of this file.
#
deletevar s, b
return
endif
setvar pcuser_clearline '![chr(27)]A![chr(27)]K'
echo ![chr(27)]&oG
echo Sub Main
echo With Application
echo .WaitForHostTrigger
echo .Transmit " NetworkUserName '" & .PCUserName & "'" & Chr$(rcCR)
echo End With
echo End Sub
echo ![chr(27)]&oH
input pcuser_name,,10
echo !pcuser_clearline
setvar !pcuser_name
deletevar pcuser_@
return
#-- DO NOT ENTER EXECUTABLE CODE AFTER ABOVE 'RETURN' STATEMENT.
Modification History:
Versn | Date | Who | Reason for Change
------+------------+-----+------------------------------------------
01.00 | 28/09/2001 | RWM | Initial version (thanks to: Harry Morris)
#===================================================================
# End of command file.
#===================================================================
regards,
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
|Robert W.Mills (Systems Development Manager) |
|Windsong Services, St. Mary Cray, ENGLAND |
|Tel : +44 (0)1689 870622 x3005 |
|Fax : +44 (0)1689 899026 |
|Email: [log in to unmask] |
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
-----Original Message-----
From: Harry Morris [mailto:[log in to unmask]]
Sent: 28 September 2001 17:29
To: Robert Mills; HP3000 "List Server
Subject: Re: Capturing Network Logon Name with Reflection...
I was able to get the following to work with version 7.0 of Reflections from
a command file on the
host.
echo ![chr(27)]&oG
echo Sub Main
echo With Application
echo .WaitForHostTrigger
echo .Transmit .PCUserName & chr$(13)
echo End With
echo End Sub
echo ![chr(27)]&oH
input NetworkUserName
showvar NetworkUserName
Harry
--- Robert Mills <[log in to unmask]> wrote:
> I'm running Reflection 8.0 and also can't get Tom's command file to work.
> I've been trying to get the following code to work - keep getting a 'The
> input timed read has expired. (CIWARN 9003)'.
>
> echo ![chr(27)]&oG
> echo Sub Main
> echo With Application
> echo .Transmit "setvar NetworkUserName '" & .PCUserName & "'" &
> Chr$(rcCR)
> echo End With
> echo End Sub
> echo ![chr(27)]&oH
> input pcuser_name,,10
> !pcuser_name
> deletevar pcuser_@
>
> Anybody (WRQ?) have any ideas?
>
> regards,
> +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
> |Robert W.Mills (Systems Development Manager) |
> |Windsong Services, St. Mary Cray, ENGLAND |
> |Tel : +44 (0)1689 870622 x3005 |
> |Fax : +44 (0)1689 899026 |
> |Email: [log in to unmask] |
> +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
> -----Original Message-----
> From: Andrew Russel [mailto:[log in to unmask]]
> Sent: 28 September 2001 14:29
> To: [log in to unmask]
> Subject: Re: Capturing Network Logon Name with Reflection...
>
>
> Thanks for all the help so far, but...
>
> I tried Robert's suggestion below, which works
> brilliantly, returning my NT user name as an MPE
> variable. But as he suggests, I have not been able to
> find a way to run this from a command file or a
> program - I don't want to have to put the macro
> permanently onto over 200users machines, and would
> prefer to maintain it only on the HP.
>
> Tom suggested a way to do this from a command file
> (also below), but whichever way I try it, I haven't
> been able to get his command file to work (yet).
>
> If anyone knows how I can run Robert's suggestion
> below, without having to set it up as a macro, I would
> be delighted to hear from them.
>
> Many thanks in advance,
>
> Andrew.
>
> -----Original Message-----
> From: Tom Emerson [mailto:[log in to unmask]]
> Sent: 27 September 2001 18:56
> To: [log in to unmask]
> Subject: Re: [HP3000-L] Capturing Network Logon Name
> with Reflection...
>
> * Please Note : This message was received from the
> Internet *
> _____________________________________________________________
>
> 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...)
>
>
> -----Original Message-----
> From: Andrew Russel [mailto:[log in to unmask]]
> Sent: 27 September 2001 16:29
> To: [log in to unmask]
> Subject: Capturing Network Logon Name with
> Reflection...
>
>
> I'm not sure if this is possible???
>
> I have an application running on the HP3000. A user
> logs onto this application, through Reflection as...
>
> HELLO USER.ACCOUNT
>
> The USERname they specify is different from their NT
> logon user name. Within the program I would like to
> programmatically capture their Network logon name. Is
> this possible?
>
> I do not want to add/delete any users to accomplish
> this.
>
> Thanks in advance.
>
> Andrew
>
>
> ____________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.co.uk address at http://mail.yahoo.co.uk
> or your free @yahoo.ie address at http://mail.yahoo.ie
>
> * 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 *
__________________________________________________
Do You Yahoo!?
Listen to your Yahoo! Mail messages from any phone.
http://phone.yahoo.com
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
