Opening Client Access window in VB

Hi All,

I need to open a Client Access window using VB.

1. Is there a way to using some object library to open the client access window? Eg SOMELIB.Open

2. if not, what params do I pass when I run

Shell("pcsws.exe", ???params???)

so it bypasses the prompt to Start Existing profile or Configure new session. It should automatically select the "Configure new session"

Thanks
Stuart
stuartngoAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

MurpheyApplication ConsultantCommented:
Hi Stuartngo

Try to specify the session file as parameter directly after the program somthing like :

x = Shell("pcsws.exe C:\Program Files\IBM\Client Access\Emulator\private\session.ws")

Where session.ws is the name of your session configuration.

have fun!!!
0
MurpheyApplication ConsultantCommented:
Sorry that will possibly not work, you hav to use the short (DOS) names:

x = Shell("pcsws.exe C:\Progra~1\IBM\Client~1\Emulator\private\session.ws")

The "session.ws" MUST also follow the DOS rules so maximum 8 positions for the filename.
0
stuartngoAuthor Commented:
Hi Murphey2,

Thanks for replying. However, this solution expects a session.ws file to be at the path specified. I assume this file needs to be created because it does not come with the standard install.

Given that I am writing a client program that will go on many computers (hundreds) with varying configurations, I would need to copy a session.ws file as part of the install of my app. This is something we would rather avoid, for sake of better application packaging and simplicity. This solution would probably only be used in the last resort.

Is there anyway, we can specify some params so it automatically selects "start new session"? - something like:

Shell("pcsws.exe CONSTANT_STARTNEW")

Thanks



0
Cloud Class® Course: Python 3 Fundamentals

This course will teach participants about installing and configuring Python, syntax, importing, statements, types, strings, booleans, files, lists, tuples, comprehensions, functions, and classes.

MurpheyApplication ConsultantCommented:
You have to include a file somewhere, so this is the most simple way. A big advantage is that you can also configure some settings to eliminate some options as up/download to and from the 400, I assume that if you will connect hundreds of PC's you dont like that they all have upload possibilities.

We are doing this the same way with over 2000 pc's. without problems.

If you need an example *.ws file with the restricted menu options, please let me know. I will send it.
0
stuartngoAuthor Commented:
Yes, could you please send me a copy of that ws file.

Cheers
0
MurpheyApplication ConsultantCommented:
[Profile]
ID=WS
Description=

[Translation]
IBMDefaultView=Y
DefaultView=
IBMDefaultDBCS=Y
DefaultDBCS=

[Communication]
AutoConnect=Y
Link=telnet5250
Session=5250
LinkType=

[Telnet5250]
HostName=  <==================  IP/address or hostname!!
Backup1HostName=
Backup2HostName=
HostPortNumber=23
Backup1HostPortNumber=23
Backup2HostPortNumber=23
LUName=
Backup1LUName=
Backup2LUName=
TerminalID=DEC-VT220
DefaultTerminalID=Y
AutoReconnect=Y
ExtendedColor=Y
ATTN=6CFFEFFFF3
SYSREQ=F0FFEF

[5250]
System36=N
ScreenSize=27x132       <=========  Nice to see printoutput
SessionType=Display
HostGraphics=N
HostCodePage=037-U
WorkStationID=
PartnerLU=APPN.
LocalLU=APPN.
StatusIcon=Show
AutoLogon=N
BypassSignon=N
UserProfile=
SuppressPCOScreen=Y
ENPTUI=Y
MsgQueue=QSYSOPR
MsgLibrary=*LIBL
HostFont=Courier10
HostPrintTransform=N
ASCII899=N
ManufacturerType=*IBM3812
ManufacturerModel=Epson EPL-7000
PaperSource1=*MFRTYPMDL
PaperSource2=*NONE
EnvelopType=*NONE
WsObject=QWPDEFAULT
WsLibrary=*LIBL
CPName=N
PrinterType=IBM3812

[Toolbar]
BarFile=

[Keyboard]
TypeAHead=Y
ChangeKeyPrompt=Y
CuaKeyboard=2
ResetInsertbyAttn=N
SpotConversion=Y
CaretSizeControl=Y
NewLineCRLF=Y
BackspaceBS=N
ApplicationNumPad=N
ApplicationCursor=N
ShiftLock=0
TabPosition=1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
Language=United-States
IBMDefaultKeyboard=N
DefaultKeyboard=

[Menu]
DeleteID.1=1021
DeleteID.2=1022
DeleteID.3=1023
DeleteID.4=1024
DeleteID.5=1020 1
DeleteID.6=1025
DeleteID.7=1020 1
DeleteID.8=1034
DeleteID.9=1029
DeleteID.10=1020 2
DeleteID.11=1030
DeleteID.12=1031
DeleteID.13=1020 2
DeleteID.14=1067
DeleteID.15=1080
DeleteID.16=1100 1
DeleteID.17=1102
DeleteID.18=1100 1
DeleteID.19=1104
DeleteID.20=1121
DeleteID.21=1120 1
DeleteID.22=1123
DeleteID.23=1124
DeleteID.24=1122
DeleteID.25=1125
DeleteID.26=1126
DeleteID.27=1137
DeleteID.28=1120 2
DeleteID.29=1140
DeleteID.30=1061
DeleteID.31=1060 1


[Graphics]
Redraw=Retained
CursorStyle=1
CursorMovement=0

[Window]
SessFlags=38862
ViewFlags=4E00
CaptionFormat=4 -
UserTitle=
RuleLinePos=0 0
InsertCursor=Y
MFIcolor=Y
ColumnSeparator=Y
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
stuartngoAuthor Commented:
Thanks Murphey2

I guess this option gives more configuration options

Cheers
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
IBM System i

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.