Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Opening Client Access window in VB

Posted on 2003-03-17
7
Medium Priority
?
984 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
  • 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 recovery tool for Microsoft Active Directory

Veeam Explorer for Microsoft Active Directory provides fast and reliable object-level recovery for Active Directory from a single-pass, agentless backup or storage snapshot — without the need to restore an entire virtual machine or use third-party tools.

 
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

[Webinar On Demand] Database Backup and Recovery

Does your company store data on premises, off site, in the cloud, or a combination of these? If you answered “yes”, you need a data backup recovery plan that fits each and every platform. Watch now as as Percona teaches us how to build agile data backup recovery plan.

Question has a verified solution.

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

I’m willing to make a bet that your organization stores sensitive data in your Windows File Servers; files and folders that you really don’t want making it into the wrong hands.
The number of companies understanding the potential of IoT on B2B market is growing with each day. And yet only a small share of IoT developers have managed to equalize incomes and stay competitive in the international market.
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an anti-spam), the admin…
Screencast - Getting to Know the Pipeline
Suggested Courses
Course of the Month14 days, 16 hours left to enroll

577 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