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