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:
Seamus Browne <[log in to unmask]>
Reply To:
Seamus Browne <[log in to unmask]>
Date:
Tue, 18 Sep 2001 05:49:20 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (81 lines)
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