Q101616: A Program to Generate Documentation on LAN Manager Servers

Article: Q101616
Product(s): Microsoft LAN Manager
Version(s): 
Operating System(s): 
Keyword(s): 
Last Modified: 30-JUL-2001

SUMMARY
=======

This article contains a REXX program that can be used to easily document much of
a server's configuration--including users, groups, resources and configurable
parameters.

MORE INFORMATION
================

To use the program do the following:

- Cut-and-paste the listing beginning with (including) the first dollar sign
  and continuing to (but not including) the pound sign.

- Search-and-replace the dollar sign with a forward slash (/).

- Save the file as LANDOC.CMD or some other *.CMD name.

There are three command line switches to the program:

- A or /A adds the results of "net access" to the document

- G or /G adds a verbose group listing to the document

- U or /U adds a verbose user listing to the document

"Verbose" means that instead of getting just a list of groups or users on the
server you will receive information on each individual group or user.

You must run this program at the server or other OS/2 machine while logged on
with ADMIN privileges. Examples of program execution at an OS/2 command prompt
are:

  landoc             (this produces minimum documentation)
  landoc a           (adds the "net access" results)
  landoc g           (adds group information)
  landoc u           (adds user information)
  landoc g u         (adds user and group information)
  landoc g u a       (maximum documentation)

NOTE: This program may take some time to run. It requires a minimum temporary
free disk space of approximately 24K plus 1K per user in NET.ACC and 1K per 30
groups in NET.ACC--if you use all options.

  $* MUST be logged on with ADMIN privilege *$
  parse upper arg cmd_param_1 cmd_param_2 cmd_param_3
  push cmd_param_1
  push cmd_param_2
  push cmd_param_3
  do 3
  pull parameter
  if (parameter = '/U') | (parameter = 'U') then
       do_user = 'yes'
  if (parameter = '/G') | (parameter = 'G') then
       do_group = 'yes'
  if (parameter = '/A') | (parameter = 'A') then
       do_access = 'yes'
  end
  "if exist lan-doc.bak del lan-doc.bak"
  "if exist lan.doc ren lan.doc lan-doc.bak"
  "if exist get_list.dat del get_list.dat"
  "net config workstation >> lan.tmp"
  "net config server >> lan.tmp"
  "net comm >> lan.tmp"
  "net device >> lan.tmp"
  "net print >> lan.tmp"
  "net accounts >> lan.tmp"
  call cleanup
  if do_user <> 'yes' then
       "net user >> lan.tmp"
  else
       do
       "net user >> get_list.dat"
       call do_list user 1
       end
  if do_group <> 'yes' then
       "net group >> lan.tmp"
  else
       do
       "net group >> get_list.dat"
       call do_list group 2
       end
  call cleanup
  "net share >> lan.tmp"
  if do_access = 'yes' then
       do
       "net access >> lan.tmp"
       end
  call cleanup
  exit
  do_list:
  parse arg use_type start_pos
  do i = 1 to 4
  tempstr = linein("get_list.dat",,1)
  end
  do while lines("get_list.dat") > 0
  do 3
  name = substr(tempstr,start_pos,25,' ')
  if substr(name,1,1) = ' ' then iterate
  "net " use_type name " >> lan.tmp"
  tempstr = delstr(tempstr,1,24+start_pos)
  end
  tempstr = linein("get_list.dat",,1)
  i = pos( "command completed successfully", tempstr,1)
  if  i > 0 then
       do while lines("get_list.dat") <> 0
       tempstr = linein("get_list.dat",,1)
          end
  end
  tempstr = lineout("get_list.dat")
  "del get_list.dat"
  return
  cleanup:
  tempstr = linein("lan.tmp",1,1)
  do while lines("lan.tmp") > 0
  i = pos( "command completed successfully", tempstr,1)
  if i = 0 then
     j = lineout("lan.doc",tempstr)
  else
     do
     j = lineout("lan.doc"," ")
     j = lineout("lan.doc","******************************************")
     j = lineout("lan.doc"," ")
     end
  tempstr = linein("lan.tmp",,1)
  end
  j = lineout("lan.tmp")
  "del lan.tmp"
  j = lineout("lan.doc"," ")
  j = lineout("lan.doc","*********************************************")
  j = lineout("lan.doc"," ")
  j = lineout("lan.doc")
  return
  #

Additional query words: 2.10 2.1 2.10a 2.1a 2.20 2.2

======================================================================
Keywords          :  

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1986-2002.