home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / PWFOLDER.ZIP / PWFMAKE.CMD < prev    next >
OS/2 REXX Batch file  |  1993-04-26  |  545b  |  23 lines
  1. /*  */
  2. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. Call SysLoadFuncs
  4.  
  5. '@echo off'
  6.  
  7. SAY "Enter password for folder: "
  8. PULL FOLDERPW .
  9.  
  10. RetCode = SysCreateObject( "PWFolder", "Password Folder", "<WP_DESKTOP>", "PASSWORD="FOLDERPW";OBJECTID=<MyFolder>")
  11.  
  12. if RetCode then
  13.    say 'PWFolder Object created'
  14. else do
  15.    say 'Error creating object'
  16.    exit(1)
  17.    end
  18.  
  19. say 'A Folder has been created with the password: 'FOLDERPW
  20. say 'select the context menu option LOCK to lock it'
  21. say 'Switch to PM to test object.'
  22.  
  23.