World Australia | Europe | North America | Singapore Europe Austria | Birmingham | Budapest | France | Italy | London | TeamOS/2 (Germany) North America Berkeley | Chattanooga | Minnesota | Nova Scotia | Ontario | Pennsylvania | TeamOS/2Last update: 6th November, 1995
Create an OS/2 Session icon and put the program name C:\VINES\BAN.EXE /NL Assuming your Vines directory is c:\vines.
This will load the banyan Drivers and activate the z:\ drive.
Then Create another OS/2 icon and call it LOGON.CMD. In this file put the following program in it.
/* This program will clear the environment vars from a OS/2 Session */ /* Then it will check to see if you have the already executed the ban.exe */ /* program, if so it will reset the environment and run login.exe otherwise */ /* it will run ban.exe with the parameter of /NL for no login then it will */ /* run the same code as above */ call RxFuncAdd 'Sysloadfuncs', 'RexxUtil', 'Sysloadfuncs' call sysloadfuncs Call SysCls say "Enter your Login ID:" pull logid map=sysdrivemap('Z:',REMOTE) if map <>'Z:' THEN do "C:\VINES\BAN.EXE /NL" map=sysdrivemap('Z:',REMOTE) end IF MAP='Z:' THEN DO SAY "Verifying that LOGIN.EXE exists on the Z:\ drive" rc=sysfiletree("Z:\LOGIN.EXE",STUFF.0,F,,) SELECT WHEN rc=0 THEN DO env='OS2ENVIRONMENT' RCV= VALUE('PROMPT','',ENV) RCV= VALUE('PATH','',ENV) RCV= VALUE('DPATH','C:\OS2\SYSTEM',ENV) RCV= VALUE('HELP','',ENV) RCV= VALUE('AUTOSTART','',ENV) RCV= VALUE('BOOKSHELF','',ENV) RCV= VALUE('SOMIR','',ENV) "Z:\LOGIN.EXE" logid "exit" end WHEN RC=1 THEN DO SAY "HEY DUMMY YOU'RE ALREADY LOGGED IN TO THE NETWORK" CALL SysSLEEP 15 "EXIT" end Otherwise DO SAY "NOT ENOUGH MEMORY" CALL SysSLEEP 15 "EXIT" END end /* end select */ END /* end if */
It works Great!!!!!!
Any questions ??? send a note to jafrank@ibm.net or jfranklin@fdic.gov