home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / peerinst.zip / ReCreateNetworkObjects.CMD < prev   
OS/2 REXX Batch file  |  2000-10-22  |  9KB  |  251 lines
  1. /* Recreate objects script. */
  2.  
  3. /* Register with REXX API extensions. */
  4. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. Call SysLoadFuncs
  6.  
  7. /* Get creation disposition. */
  8. Say 'When object exists object creation should:' 
  9. Call CharOut, '  (U=Update, R=Replace, F=Fail) : '
  10. Parse Upper Pull Answer
  11. CreateCollision = 'Fail'
  12. If Left( Answer, 1 ) = R Then CreateCollision = 'Replace' 
  13. If Left( Answer, 1 ) = U Then CreateCollision = 'Update' 
  14.  
  15. Call RegisterClasses
  16. Call CreateObjects
  17. Exit
  18.  
  19. CreateObject: procedure
  20.     Parse Arg Class, Title, Location, Setup, Collision
  21.     Say 'Creating ['Title']'
  22.     rc = SysCreateObject( Class, Title, Location, Setup, Collision )
  23.     If rc <> 1 Then
  24.         Say ' > failed to create ['Title' | 'Class'] at location ['Location']'
  25.     return rc
  26.  
  27. CreateObjects:
  28.  
  29.     rc = CreateObject( 'WPNetwork',,
  30.         'Netzwerk',,
  31.         '<WP_CONNECTIONSFOLDER>',,
  32.         'NOCOPY=YES;'||,
  33.             'NODELETE=YES;'||,
  34.             'NOPRINT=YES;'||,
  35.             'DEFAULTVIEW=CONTENTS;'||,
  36.             'SELFCLOSE=1;'||,
  37.             'ICONFONT=9.WarpSans;'||,
  38.             'DETAILSFONT=9.WarpSans;'||,
  39.             'TREEFONT=9.WarpSans;'||,
  40.             'ICONVIEW=NONGRID,NORMAL;'||,
  41.             'DETAILSVIEW=MINI;'||,
  42.             'TREEVIEW=LINES,MINI;'||,
  43.             'OBJECTID=<WP_NETWORK>',,
  44.         CreateCollision )
  45.  
  46.       rc = CreateObject( 'WPFolder',,
  47.           'Netzwerkdienste',,
  48.           '<WP_NETWORK>',,
  49.           'NOTDEFAULTICON=YES;'||,
  50.               'NOPRINT=YES;'||,
  51.               'DEFAULTVIEW=CONTENTS;'||,
  52.               'SELFCLOSE=1;'||,
  53.               'ICONFONT=9.WarpSans;'||,
  54.               'DETAILSFONT=9.WarpSans;'||,
  55.               'TREEFONT=9.WarpSans;'||,
  56.               'ICONVIEW=NONGRID,NORMAL;'||,
  57.               'DETAILSVIEW=MINI;'||,
  58.               'TREEVIEW=LINES,MINI;'||,
  59.               'OBJECTID=<WC_NETSERV>',,
  60.           CreateCollision )
  61.  
  62.         rc = CreateObject( 'LSPeerWorkstation',,
  63.             'Gemeinsame Ressourcen und^Netzwerkverbindungen',,
  64.             '<WC_NETSERV>',,
  65.             'NOPRINT=YES;'||,
  66.                 'MINWIN▐SKTOP;'||,
  67.                 'DEFAULTVIEW=SETTINGS;'||,
  68.                 'HELPPANELÇ01;'||,
  69.                 'HELPLIBRARY=LSPRWPS.HLP;'||,
  70.                 'OBJECTID=<PEER_WKST>',,
  71.             CreateCollision )
  72.  
  73.         rc = CreateObject( 'WPProgram',,
  74.             'LAN Server^Verwaltung',,
  75.             '<WC_NETSERV>',,
  76.             'NOPRINT=YES;'||,
  77.                 'DEFAULTVIEW=RUNNING;'||,
  78.                 'HELPPANEL21;'||,
  79.                 'HELPLIBRARY=D:\IBMLAN\NETPROG\LSIWOBJS.HLP;'||,
  80.                 'EXENAME=D:\IBMLAN\NETPROG\NETGUI.EXE;'||,
  81.                 'STARTUPDIR=D:\IBMLAN\NETPROG;'||,
  82.                 'PROGTYPE=PM;'||,
  83.                 'OBJECTID=<LS_ADMIN>',,
  84.             CreateCollision )
  85.  
  86.         rc = CreateObject( 'WPShadow',,
  87.           'LAN Server^Verwaltung',,
  88.           '<WP_NETWORK>',,
  89.           'SHADOWID=<LS_ADMIN>;'||,
  90.               'OBJECTID=<LS_ADMIN_SHADOW>',,
  91.           CreateCollision )
  92.  
  93.         rc = CreateObject( 'WPFolder',,
  94.             'Anmeldungen',,
  95.             '<WC_NETSERV>',,
  96.             'NOTDEFAULTICON=YES;'||,
  97.                 'NOPRINT=YES;'||,
  98.                 'DEFAULTVIEW=CONTENTS;'||,
  99.                 'HELPPANEL02;'||,
  100.                 'HELPLIBRARY=D:\IBMLAN\NETPROG\LSIWOBJS.HLP;'||,
  101.                 'ICONVIEWPOS=9 44 50 14;'||,
  102.                 'SELFCLOSE=1;'||,
  103.                 'ICONFONT=9.WarpSans;'||,
  104.                 'DETAILSFONT=9.WarpSans;'||,
  105.                 'TREEFONT=9.WarpSans;'||,
  106.                 'ICONVIEW=NONGRID,NORMAL;'||,
  107.                 'DETAILSVIEW=MINI;'||,
  108.                 'TREEVIEW=LINES,MINI;'||,
  109.                 'ICONFILE=D:\Temp\Anmeldungen.ICO;'||,
  110.                 'OBJECTID=<LS_FOLDER>',,
  111.             CreateCollision )
  112.  
  113.           rc = CreateObject( 'WPProgram',,
  114.               'Starten^LAN Requester-Dienste',,
  115.               '<LS_FOLDER>',,
  116.               'NOPRINT=YES;'||,
  117.                   'MINWIN▐SKTOP;'||,
  118.                   'DEFAULTVIEW=RUNNING;'||,
  119.                   'HELPPANEL07;'||,
  120.                   'HELPLIBRARY=D:\IBMLAN\NETPROG\LSIWOBJS.HLP;'||,
  121.                   'ICONPOS=8,12;'||,
  122.                   'EXENAME=D:\IBMLAN\NETPROG\NETSTCMD.CMD;'||,
  123.                   'STARTUPDIR=D:\IBMLAN\NETPROG;'||,
  124.                   'PARAMETERS=START PEER;'||,
  125.                   'PROGTYPE=WINDOWABLEVIO;'||,
  126.                   'OBJECTID=<LS_START>',,
  127.               CreateCollision )
  128.  
  129.           rc = CreateObject( 'WPProgram',,
  130.               'LAN Requester-Dienste^Anmeldung bei Datenstation',,
  131.               '<LS_FOLDER>',,
  132.               'NOPRINT=YES;'||,
  133.                   'MINWIN▐SKTOP;'||,
  134.                   'DEFAULTVIEW=RUNNING;'||,
  135.                   'HELPPANEL08;'||,
  136.                   'HELPLIBRARY=D:\IBMLAN\NETPROG\LSIWOBJS.HLP;'||,
  137.                   'ICONPOSC,12;'||,
  138.                   'EXENAME=D:\MUGLIB\LOGON.EXE;'||,
  139.                   'STARTUPDIR=D:\MUGLIB;'||,
  140.                   'PARAMETERS=/v:local;'||,
  141.                   'PROGTYPE=PM;'||,
  142.                   'OBJECTID=<PEER_LOCALLOGON>',,
  143.               CreateCollision )
  144.  
  145.           rc = CreateObject( 'LSPeerUser',,
  146.               'Netzwerkbenutzereintrag',,
  147.               '<LS_FOLDER>',,
  148.               'NOPRINT=YES;'||,
  149.                   'MINWIN▐SKTOP;'||,
  150.                   'DEFAULTVIEW=SETTINGS;'||,
  151.                   'HELPPANELu01;'||,
  152.                   'HELPLIBRARY=LSPRWPS.HLP;'||,
  153.                   'ICONPOSb,12;'||,
  154.                   'OBJECTID=<PEER_USER>',,
  155.               CreateCollision )
  156.  
  157.           rc = CreateObject( 'WPProgram',,
  158.               'Abmelden',,
  159.               '<LS_FOLDER>',,
  160.               'NOPRINT=YES;'||,
  161.                   'MINWIN▐SKTOP;'||,
  162.                   'DEFAULTVIEW=RUNNING;'||,
  163.                   'HELPPANEL09;'||,
  164.                   'HELPLIBRARY=D:\IBMLAN\NETPROG\LSIWOBJS.HLP;'||,
  165.                   'ICONPOS ,12;'||,
  166.                   'EXENAME=D:\MUGLIB\LOGOFF.EXE;'||,
  167.                   'STARTUPDIR=D:\MUGLIB;'||,
  168.                   'PARAMETERS=/L;'||,
  169.                   'PROGTYPE=PM;'||,
  170.                   'OBJECTID=<PEER_LOGOFF>',,
  171.               CreateCollision )
  172.  
  173.           rc = CreateObject( 'WPProgram',,
  174.               'LAN Server^Anmeldung',,
  175.               '<LS_FOLDER>',,
  176.               'NOTDEFAULTICON=YES;'||,
  177.                   'NOPRINT=YES;'||,
  178.                   'MINWIN▐SKTOP;'||,
  179.                   'DEFAULTVIEW=RUNNING;'||,
  180.                   'HELPPANEL08;'||,
  181.                   'HELPLIBRARY=D:\IBMLAN\NETPROG\LSIWOBJS.HLP;'||,
  182.                   'ICONPOS),12;'||,
  183.                   'EXENAME=D:\MUGLIB\LOGON.EXE;'||,
  184.                   'STARTUPDIR=D:\MUGLIB;'||,
  185.                   'PARAMETERS=/v:domain /d;'||,
  186.                   'PROGTYPE=PM;'||,
  187.                   'ICONFILE=D:\Temp\LAN Server!Anmeldung.ICO;'||,
  188.                   'OBJECTID=<PEER_LANLOGON>',,
  189.               CreateCollision )
  190.  
  191.       rc = CreateObject( 'WPShadow',,
  192.           'Anmeldungen',,
  193.           '<WP_NETWORK>',,
  194.           'SHADOWID=<LS_FOLDER>;'||,
  195.               'OBJECTID=<LS_FOLDER_SHADOW>',,
  196.           CreateCollision )
  197.  
  198.       rc = CreateObject( 'WPProgram',,
  199.           'Netzwerknachrichtendienste',,
  200.           '<WC_NETSERV>',,
  201.           'NOPRINT=YES;'||,
  202.               'DEFAULTVIEW=RUNNING;'||,
  203.               'HELPPANEL05;'||,
  204.               'HELPLIBRARY=D:\IBMLAN\NETPROG\LSIWOBJS.HLP;'||,
  205.               'EXENAME=D:\IBMLAN\NETPROG\NETMSG.EXE;'||,
  206.               'STARTUPDIR=D:\IBMLAN\NETPROG;'||,
  207.               'PROGTYPE=PM;'||,
  208.               'OBJECTID=<LS_NETMSG>',,
  209.           CreateCollision )
  210.  
  211.       rc = CreateObject( 'WPProgram',,
  212.           'Netzwerk-DDE und^gemeinsame Zwischenablage',,
  213.            '<WC_NETSERV>',,
  214.           'NOPRINT=YES;'||,
  215.               'DEFAULTVIEW=RUNNING;'||,
  216.               'HELPPANEL04;'||,
  217.               'HELPLIBRARY=D:\IBMLAN\NETPROG\LSIWOBJS.HLP;'||,
  218.               'EXENAME=D:\IBMLAN\NETPROG\NWDDE.EXE;'||,
  219.               'STARTUPDIR=D:\IBMLAN\NETPROG;'||,
  220.               'PROGTYPE=PM;'||,
  221.               'OBJECTID=<LS_CLIP>',,
  222.           CreateCollision )
  223.  
  224.  
  225. return
  226.  
  227.  
  228. RegisterClasses:
  229.  
  230. Say
  231. Say 'Registering classes....'
  232. Say
  233. Say 'The following classes will be registered:'
  234. Say
  235. Say '  LSPeerWorkstation  '
  236. Say
  237. Say 'Press enter to register 1 classes for object creation,'
  238. Call CharOut, 'or type any other key and enter to ignore: '
  239. Say
  240. Parse Pull Answer
  241. If Answer <> '' Then return
  242.   If SysRegisterObjectClass( 'LSPeerWorkstation', 'LSPRWPS' ) <> 1 Then
  243.       Say 'Can''t register class LSPeerWorkstation with LSPRWPS.'
  244.   Else
  245.       Say 'Registered class LSPeerWorkstation with LSPRWPS.'
  246.  
  247. return
  248.  
  249.  
  250.  
  251.