home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / netdorup.zip / ip20073.zip / NDCSD5.DSK / VENDUPD.CMD < prev   
OS/2 REXX Batch file  |  1994-11-28  |  2KB  |  49 lines
  1. /**/
  2. call RxFuncAdd 'SYSDRIVEMAP', 'REXXUTIL', 'SYSDRIVEMAP'
  3. call RxFuncAdd 'SYSFILETREE', 'REXXUTIL', 'SYSFILETREE'
  4. found='N'
  5. vwork='N'
  6. map = SysDriveMap(,'LOCAL')
  7. do while map<>''
  8.    parse var map letter map
  9.    search=letter||'SYSLEVEL.VND'
  10.    rc = SysFileTree(search, 'file',  'FSO')
  11.    if file.0>0 then
  12.    do
  13.       found='Y'
  14.       do i=1 to file.0
  15.          if TRANSLATE(SUBSTR(file.i, 4, 7))='VNDWORK' then
  16.          do
  17.             vwork='Y'
  18.             vletter=letter
  19.          end
  20.       end
  21.    end
  22. end
  23. if found='Y' then
  24. do
  25.    '@ECHO OFF'
  26.    if vwork='Y' then
  27.    do
  28.       say '************** Updating Vendor files. Please wait **************'
  29.       'a:\unpack2 a:\fix\vnd\vndstart.ex_ 'vletter'\vndwork\netbios\ > 'vletter'\vndwork\temp.log'
  30.       'a:\unpack2 a:\fix\vnd\vndsrvr.ex_ 'vletter'\vndwork\netbios\ > 'vletter'\vndwork\temp.log'
  31.       'del 'vletter'\vndwork\tcpip\netbios.dum'
  32.       'a:\unpack2 a:\fix\vnd\vndtstrt.ex_ 'vletter'\vndwork\tcpip\ > 'vletter'\vndwork\temp.log'
  33.       'a:\unpack2 a:\fix\vnd\vndtsrvr.ex_ 'vletter'\vndwork\tcpip\ > 'vletter'\vndwork\temp.log'
  34.       'a:\unpack2 a:\fix\vnd\vndnmon.ex_ 'vletter'\vndwork\netbios\ > 'vletter'\vndwork\temp.log'
  35.       'a:\unpack2 a:\fix\vnd\vndtmon.ex_ 'vletter'\vndwork\tcpip\ > 'vletter'\vndwork\temp.log'
  36.       'del 'vletter'\vndwork\temp.log'
  37.    end
  38.    say '***************************************************************'
  39.    say '************** VENDOR files successfully updated **************'
  40.    say '***************************************************************'
  41. end
  42. else
  43. do
  44.    say
  45.    say '****** This is not a Vendor Server. No further updates are required *******'
  46.    say
  47. end
  48. exit
  49.