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: 10th February, 1996
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