?
Solved

Opening Client Access window in VB

Posted on 2003-03-17
7
Medium Priority
?
961 Views
Last Modified: 2009-07-29
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
0
Comment
Question by:stuartngo
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
7 Comments
 
LVL 16

Expert Comment

by:theo kouwenhoven
ID: 8157678
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
 
LVL 16

Expert Comment

by:theo kouwenhoven
ID: 8157713
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
 

Author Comment

by:stuartngo
ID: 8163377
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
Free learning courses: Active Directory Deep Dive

Get a firm grasp on your IT environment when you learn Active Directory best practices with Veeam! Watch all, or choose any amount, of this three-part webinar series to improve your skills. From the basics to virtualization and backup, we got you covered.

 
LVL 16

Expert Comment

by:theo kouwenhoven
ID: 8168006
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
 

Author Comment

by:stuartngo
ID: 8171152
Yes, could you please send me a copy of that ws file.

Cheers
0
 
LVL 16

Accepted Solution

by:
theo kouwenhoven earned 400 total points
ID: 8172423
[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
 

Author Comment

by:stuartngo
ID: 8178915
Thanks Murphey2

I guess this option gives more configuration options

Cheers
0

Featured Post

Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This is a fine trick which I've found useful many times, when you just don't want to accidentally run a batch script or the commands needs administrator rights.
What's worse than having your data encrypted by ransomware? Getting attacked by a so-called "wiper," which simply destroys the data and offers you no hope of ever seeing it again.
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
How to fix incompatible JVM issue while installing Eclipse While installing Eclipse in windows, got one error like above and unable to proceed with the installation. This video describes how to successfully install Eclipse. How to solve incompa…
Suggested Courses

800 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question