home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / lanstart.zip / LANSINST.CMD next >
OS/2 REXX Batch file  |  1993-08-19  |  928b  |  39 lines
  1. /* LanStart/2 */
  2. /* Installation file LansInst.Cmd */
  3.  
  4. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs';
  5. Call SysLoadFuncs;
  6.  
  7.  
  8. '@echo off'
  9. say 'Installation of LanStart/2'
  10. say '(c) Kim Kruse Hansen , 1993'
  11. say ''
  12. say 'Press letter of bootdrive or ESC to abort'
  13. bootdrive = SysGetKey('NOECHO')
  14.  
  15. if c2d(bootdrive) \= '27' then
  16. do
  17.  'copy LanStart.dll ' bootdrive||':\os2\dll'
  18.  if rc = 0 then
  19.  do
  20.    rc=SysDeregisterObjectClass('LanStart');
  21.    rc=SysRegisterObjectClass('LanStart','LanStart');
  22.    if rc = 1 then
  23.    do
  24.      rc=SysCreateObject('LanStart','LanStartup/2','<WP_DESKTOP>', ,
  25.                             'OBJECTID=<ID_LANSTARTUP>;');
  26.      if rc = 1 then
  27.        say 'Installation is complete'
  28.      else
  29.        say 'Error : Cant create object'
  30.    end
  31.    else
  32.      say 'Error : Cant register class'
  33.  end
  34.  else
  35.    say 'Error : Cant copy dll'
  36. end
  37. else
  38.   say 'Installtion aborted'
  39.