home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / gse086r.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1999-11-20  |  1KB  |  56 lines
  1. /*
  2.  * install.cmd - Goose instalation program
  3.  *               Gooseö─ùpâCâôâXâgü[âëü[
  4.  *
  5.  * rev.0 - 07.Dec.1998
  6.  * rev.1 - 20.Nov.1999
  7.  *
  8.  */
  9.  
  10. call rxfuncadd 'sysloadfuncs', 'rexxutil', 'sysloadfuncs'
  11. call sysloadfuncs
  12.  
  13. say "- - - - - - - - - - - -"
  14. say " Goose install program"
  15. say "- - - - - - - - - - - -"
  16.  
  17. trg_object = '<WP_DESKTOP>'
  18.  
  19. name = SysSearchPath('path','goose.exe')
  20. if name = '' then do
  21.    say 'error. I cannot find Goose.EXE file.'
  22.    call End
  23. end
  24.  
  25. parameter = 'exename='name';startupdir='directory()';objectid=<GOOSE>'
  26.  
  27. if SysCreateObject('WPProgram', 'Goose', trg_object, parameter, 'u') <> 0 then do
  28.    say ''
  29.    say ' Goose instalation was successfully completed.'
  30.    say ''
  31.    say ' Gooseé╠âCâôâXâgü[âïé═û│Äûé╔ÅIù╣é╡é▄é╡é╜üB'
  32. end
  33. else do
  34.    say 'error. I cannot create object.'
  35.    call End
  36. end
  37.  
  38. say ''
  39. say ''
  40. say ''
  41. say ''
  42. say ''
  43. say ''
  44. say ''
  45. say ''
  46. say ''
  47. say ''
  48. say ''
  49. say ''
  50. say ''
  51. say ' ...By the way, Goose needs VROBJ.DLL.'
  52. say ''
  53.  
  54. End:
  55. exit
  56.