home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / lsmt213c.zip / lsfiles.cmd < prev    next >
OS/2 REXX Batch file  |  1999-05-26  |  3KB  |  98 lines
  1. /*---------------------------------------------------------------------------*\
  2. |  Check Lan Server Open Files                (C) Alain Rykaert - MAR96-FEB98 |
  3. \*---------------------------------------------------------------------------*/
  4.     Version = '2.01'
  5.     Say '* LSFILES Version' Version
  6.  
  7.     Parse Upper Arg ServerName Option
  8.  
  9.     Call Init                                   /* load DLL's & other stuff*/
  10.  
  11.     If ServerName = ''
  12.       Then Do
  13.              Say '*'
  14.              Say '* LAN Server Files'
  15.              Say '*'
  16.              Say '* Usage: LSFILES {*} {ServerName}'
  17.              Say '*'
  18.              Say '* Sample: LSFILES \\BEDDC2'
  19.              Say '*'
  20.              Exit X2D('1600')
  21.            End
  22.       Else Nop
  23.  
  24.     If ServerName = '*'
  25.       Then Do
  26.              RC = NetGetInfo(350, 'WkstaInfo','')
  27.              If RC = 0
  28.                Then ServerName = WkstaInfo.ComputerName
  29.                Else Call ChkError RC
  30.            End
  31.       Else ServerName = ServerName
  32.  
  33.     ServerName = Strip(ServerName,'L','\')
  34.  
  35.     Say '* Server Name:' '\\'ServerName
  36.  
  37.     RC = NetEnumerate(60, 'FileInfo', '\\'ServerName)
  38.     If RC = 0
  39.       Then Do i = 1 to FileInfo.Count
  40.              Counter = '('Right(i,Length(FileInfo.0))'/'Right(FileInfo.0,Length(FileInfo.0))')'
  41.              UserID = Left(FileInfo.i.UserName,8)
  42.              If Length(FileInfo.i.PathName) < 50
  43.                Then FileName = Left(FileInfo.i.PathName,50)
  44.                Else FileName = Left(FileInfo.i.PathName,17) || '...' || Right(FileInfo.i.PathName,30)
  45.              Say Counter Right(FileInfo.i.ID,4) UserID FileName Right(FileInfo.i.Permissions,3) FileInfo.i.Num_Locks
  46.            End
  47.       Else Call ChkError
  48.  
  49.     Exit X2D('FE00')
  50.  
  51.  INIT:/* --------------------------------------------------------------------*/
  52.  
  53.    '@echo off'
  54.     BootDrive = Left(Value('Comspec',,'OS2Environment'),2)
  55.  
  56.     If RxFuncQuery('SysLoadFuncs')
  57.       Then Do
  58.              Call RxFuncAdd SysLoadFuncs, RexxUtil, SysLoadFuncs
  59.              Call SysLoadFuncs
  60.            End
  61.       Else Nop
  62.  
  63.     LSRDrive = ''                      /* Check for Lan Server Drive Letter*/
  64.     PPath = Value('Path',,'OS2Environment')
  65.     x = Pos('IBMLAN\NETPROG', PPath) -3
  66.     If x > 0
  67.       Then LSRDrive = SubStr(PPath, x, 2)
  68.       Else Do
  69.              Say '! Could not determine the Lan Requester path' '07'x
  70.              Exit X2D('1604')
  71.            End
  72.  
  73.     If Stream(LSRDrive'\ibmlan\netlib\lsrxut.dll', 'C', 'Query Exists') <> ''
  74.       Then Do
  75.              If RxFuncQuery('LoadLSRXUTFuncs')
  76.                Then Do
  77.                       Call RxFuncAdd LoadLsRxutFuncs, LSRXUT, LoadLsRxutFuncs
  78.                       Call LoadLsRxutFuncs
  79.                     End
  80.                Else Nop
  81.            End
  82.       Else Do
  83.              Say '! Could not find' LSRDrive'\IBMLAN\NETLIB\LSRXUT.DLL' '07'x
  84.              Exit X2D('0800')
  85.            End
  86.  
  87.     Return
  88.  
  89.  CHKERROR:/* ----------------------------------------------------------------*/
  90.  
  91.     Parse Arg RCode
  92.  
  93.     Say '! Error:' RCode '07'x
  94.     Exit X2D('1600')
  95.  
  96.     Return
  97.  
  98.