home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / discon.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1997-10-19  |  800b  |  18 lines
  1. /* Copyright (C) 1997 by Felix Flux */
  2.  
  3. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  4. call SysLoadFuncs
  5.  
  6. curdir = directory()
  7.  
  8. If SysCreateObject("WPFolder", "Connect / Disconnect", "<WP_TOOLS>", "OBJECTID=<FF_DISCON>") Then
  9. Do
  10.    If SysCreateObject("WPProgram", "Connect Network Drive...", "<FF_DISCON>", "EXENAME="curdir"\CONNECT.EXE") Then
  11.       Say "Connect Network Drive... object created"
  12.    If SysCreateObject("WPProgram", "Disconnect Network Drive...", "<FF_DISCON>", "EXENAME="curdir"\DISCONN.EXE") Then
  13.       Say "Disconnect Network Drive... object created"
  14.    If SysCreateShadow(curdir"\readme", "<FF_DISCON>",) Then
  15.       Say "Readme shadow created"
  16.   Say "Objects are created in the Connect / Disconnect folder which is located in the Utilities folder."
  17. End
  18.