home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / refresh2.zip / instobj.cmd < prev    next >
OS/2 REXX Batch file  |  1994-04-05  |  881b  |  19 lines
  1. /* Install the GXE OS/2 software */
  2. arg source target
  3. if length(source) == 0 | length(target) == 0 then
  4.         say "Usage: INSTOBJ [source drive]: [target drive]:"
  5. else
  6.         if substr(source,2,1) \= ':' | substr(target,2,1) \= ':' then do
  7.                 say "Usage: INSTOBJ [source drive]: [target drive]:"
  8.                 say "Each drive letter must be followed by a colon."
  9.                 end
  10.         else do
  11.                 cmdstr = source'\REFRESH2.*  ' target'\OS2\APPS'
  12.                 '@copy 'cmdstr
  13.                 setupstr ="EXENAME="||target||"\OS2\APPS\REFRESH2.EXE"
  14.                 call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  15.                 if SysCreateObject( "WPProgram", "Number Nine GXE", "<WP_CONFIG>",,
  16.                        setupstr ) then
  17.                 say 'Number Nine GXE object installed'
  18.                 end
  19.