HP3000-L Archives

September 2001, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Joe Silagi <[log in to unmask]>
Reply To:
Joe Silagi <[log in to unmask]>
Date:
Tue, 18 Sep 2001 09:19:32 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (117 lines)
Turn on Reflection's display functions (ALT+M, then F7) before running the
script. This will show us if there are any unexpected characters in the
hello string. If that doesn't help then running a Reflection trace may show
the problem.

HTH,

Joe Silagi
WRQ, Inc.


BTW: Starting in RHP v7.0 you can use the Reflection property .PCUserName to
get the Windows UserName.



"Seamus Browne" <[log in to unmask]> wrote in message
news:9o7859$bu3$1@wanadoo.fr...
> Attempting to reuse a script and running into Problems.
> Reflection is 6.00
> Script works fine on my HP3000 927.
> The GetUserName gets the Windows UserName from Windows and uses it in the
HP
> Hello
> as a SessionName so the string passed in the Hello command is
> MyUserName,MANAGER.SYS
>
> On the new A400 I get the following feedback in the Reflection screen :
> MPE/iX:hello Seamus,MANAGER.SYS
> Name greater than 8 characters long. (CIERR 1435)
> MPE/iX:
>
> What's causing the error 1435 ?
> TIA
> Seamus
> -------------------------------------------------------------------
>
>
>
> Here is the script:
>
> ' Generated by the Reflection Script Recorder on 01-08-1998 11:10:15.89.
> ' Generated by Reflection 1 for Windows 5.10
> '
> '
>
> Option Explicit
> Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
(ByVal
> lpBuffer As String, nSize As Long) As Long
> Sub Main
>     Dim myUserName As String * 255
>     dim numCharsInUserName as Long
>
>     numCharsInUserName = 255
>
>     GetUserName myUserName, numCharsInUserName
> '    MsgBox myUserName
> 'End Sub
>
>
> 'Sub Main
>  Const NEVER_TIME_OUT = 0
>
>
>
>  Dim LF As String ' Chr$(rcLF) = Chr$(10) = Control-J
>  Dim CR As String ' Chr$(rcCR) = Chr$(13) = Control-M
>
>  LF = Chr$(rcLF)
>  CR = Chr$(rcCR)
>
>
>  With Application
>   If .Connected = FALSE Then
>    .ConnectionType = "BEST-NETWORK"
>    .ConnectionSettings = "DefaultNetwork TELNET"
>    .ConnectionSettings = "Host xxx.xxx.xxx.xxx"
>    .ConnectionSettings = "TelnetPort 23"
>    .ConnectionSettings = "TelnetInitOptionNegotiation True"
>   '.ConnectionSettings = "TelnetTermType HP"
>   End If
>   If .Connected = FALSE Then
>    .Connect
>   End If
>
>   .StatusBar = "Waiting for Prompt: MPE/iX:"
>   .WaitForString "MPE/iX:", NEVER_TIME_OUT, rcAllowKeystrokes
>   .WaitForHostTrigger
>   .StatusBar = ""
>   .Transmit "hello " & myUserName & ",MANAGER.SYS" & CR
>   .DisplayRows = 40
>
>  End With
>
> End Sub
> ' Recording stopped at 11:10:39.95.
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

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

ATOM RSS1 RSS2