IBM Personal Communications TN3270 VBScripting

[ibmgoogle]

Hi,

I am writing a script to automate a few processes operating on an IBM
mainframe accessed via a TN3270 emulator.

The processes work fine however I wish to add input boxes to obtain
user password and user ID details at logon. I am doing this using the
standard InputBox() method however I know a special type of InputBox()
exists that allows you to suppress or asterix out the characters for
the password entry- like you get on most application logon screens.

Does anyone know what this method/function is called?

It exists as [input nd] in the macro language however it is no use to
me in this form and the macro conversion just emulates the macro code
within the VBScript which doesn't allow me to assign the password value
to a variable.

I've tried InputBoxND(), InputND() and a couple of other variations
with no luck. I know the method exists however I don't have a
reference guide to the IBM VBScript emulation software.

Please post if you know the answer or where I can find the reference
guide.

Code sample for information:-

PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectByName(ThisSessionName)
REM This line calls the macro subroutine
subSubLogon
sub subSubLogon()

autECLSession.autECLOIA.WaitForAppAvailable

Dim strPassword strUsername

strUsername = InputBox("Please enter your username","UserName", "",
10,10)
strPassword = InputBox("Please enter your username","UserName", "",
10,10)

[malte...@gmail.com]

Am Donnerstag, 2. Februar 2006 00:12:05 UTC+1 schrieb ibmgoogle:
> Hi,I am writing a script to automate a few processes operating on an IBM mainframe accessed via a TN3270 emulator.The processes work fine however I wish to add input boxes to obtain user password and user ID details at logon. I am doing this using the standard InputBox() method however I know a special type of InputBox() exists that allows you to suppress or asterix out the characters for the password entry- like you get on most application logon screens.Does anyone know what this method/function is called?It exists as [input nd] in the macro language however it is no use to me in this form and the macro conversion just emulates the macro code within the VBScript which doesn't allow me to assign the password value to a variable.I've tried InputBoxND(), InputND() and a couple of other variations with no luck. I know the method exists however I don't have a reference guide to the IBM VBScript emulation software.Please post if you know the answer or where I can find the reference guide.Code sample for information:-PCOMM SCRIPT HEADER] LANGUAGE=VBSCRIPTDESCRIPTION=[PCOMM SCRIPT SOURCE]OPTION EXPLICIT autECLSession.SetConnectByName(ThisSessionName) REM This line calls the macro subroutinesubSubLogonsub subSubLogon() autECLSession.autECLOIA.WaitForAppAvailableDim strPassword strUsernamestrUsername = InputBox("Please enter your username","UserName", "", 10,10) strPassword = InputBox("Please enter your username","UserName", "", 10,10)

It's some years ago, but maybe another person will pass this post, so:


DIM strPassWord
strPassWord = autSystem.Inputnd()
PutText 18,26, strPassWord


PutText:

'Inserts text 'txt' at row 'rw' and column 'cl'
Function PutText(rw, cl, txt)
WaitInputApp
autECLSession.autECLPS.SetCursorPos rw, cl
autECLSession.autECLPS.SendKeys "[eraseeof]"
autECLSession.autECLPS.SendKeys txt
End Function

Function WaitInputApp()
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
End Function