Article ID: 101616
Article Last Modified on 10/31/2006
This article was previously published under Q101616
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: KB101616