Subject: | |
From: | |
Reply To: | |
Date: | Tue, 18 Sep 2001 09:19:32 -0600 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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 *
|
|
|