home *** CD-ROM | disk | FTP | other *** search
/ Thinkpad Essentials 1997 / cd1may97.iso / confpos2 / confinst.cmd < prev    next >
OS/2 REXX Batch file  |  1997-03-18  |  3KB  |  111 lines
  1. /********************************************************************  
  2.                            PCCINST.CMD 
  3.  
  4.             Installation of IBM PC Configurator in OS/2
  5.  
  6.                  (C) Copyright IBM Corporation 1997.
  7.  
  8.                         All Rights Reserved.
  9.  
  10.                Created 1/5/97     Updated 3/18/97   
  11.  
  12. ********************************************************************/
  13.  
  14.  
  15. /* **************************
  16. ** INITIALIZE PROGRAM
  17. ** **************************/
  18. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  19. call 'sysloadfuncs'
  20.  
  21. configpath = 'unknown'
  22. drive = 'c'
  23.  
  24.  
  25. /* **************************
  26. ** User Options
  27. ** **************************/
  28. SAY " "
  29. SAY "Please type the number of your choice: "
  30. SAY " 1) Install IBM ConfigPro Lite and create an icon on the OS/2 Desktop "
  31. SAY " 2) Create an IBM ConfigPro Lite icon on OS/2 Desktop only "
  32. SAY "    (assumes application code is already installed on your system) "
  33. SAY " 3) Cancel the installation "
  34. SAY " "
  35. PULL sel
  36. SAY " "
  37.  
  38. /* **************************
  39. ** Install SBWin
  40. ** **************************/
  41. IF sel = '1' THEN
  42.    DO
  43.    address cmd 'SETUP.EXE'
  44.    SAY "IBM ConfigPro Lite was installed successfully... "
  45.    SAY " "
  46.    END
  47.  
  48. /* **************************
  49. ** Determine Path
  50. ** **************************/
  51. IF sel = '1' | sel = '2' THEN
  52.    DO
  53.  
  54.    SAY " "
  55.    SAY "Please specify the drive letter where the configurator was installed: (c)"
  56.    PULL drive
  57.    drive = SUBSTR(drive,1,1)
  58.    SAY " "
  59.  
  60.    call SysFileTree drive||':\sbw.exe', 'sbwdir', 'FS'
  61.       DO i=1 to sbwdir.0
  62.       sbwpath = SUBSTR(sbwdir.i,38)
  63.       l = length(sbwpath)
  64.       sbwpath1 = left(sbwpath,l-11)
  65.       SAY sbwpath1
  66.       SAY "Is the above path correct for the configurator? (y/n) "
  67.       PULL answer
  68.       SAY " "
  69.       IF answer <> 'N' THEN
  70.          DO
  71.          configpath = sbwpath1
  72.          LEAVE
  73.          END 
  74.       END
  75.  
  76.    IF configpath = 'unknown' THEN
  77.       DO 
  78.       SAY "The configurator was not found and the icon was not created... "
  79.       SAY " "
  80.       EXIT
  81.       END
  82.  
  83.    SAY " "
  84.    SAY "The configurator path selected is: "||configpath
  85.    SAY " "
  86.  
  87. /* **************************
  88. ** Create Configurator Icon
  89. ** **************************/
  90.    call SysDestroyObject('<PCCONFIG_CMD>')
  91.  
  92.    ClassName='WPProgram'
  93.    Title='IBM ConfigPro Lite 1.0'
  94.    Location='<WP_DESKTOP>'
  95.    progtype='PROGTYPE=WIN;'
  96.    maxwindow='MAXIMIZED=YES;NoMove=NO;'
  97.    CloseAtEnd='NOAUTOCLOSE=YES;'
  98.    exeid='exename='||configpath||'sbw\sbw.exe;'
  99. /*   parameter='PARAMETERS= -D '||configpath||'model\;' */
  100.    workdir='STARTUPDIR='||configpath||'sbw\;'
  101.    object='OBJECTID=<PCCONFIG_CMD>;'
  102.    setup=object||exeid||parameter||workdir||progtype||maxwindow||CloseAtEnd
  103.    rc=SysCreateObject(ClassName, Title, Location, Setup, 'F')
  104.    IF rc <> 1 THEN SAY rc||' The Configurator icon was not created.........'
  105.    SAY "IBM ConfigPro Lite Icon was created successfully... "
  106.    SAY " "
  107.  
  108. END
  109.  
  110. EXIT
  111.