****************************************************************************** * (c) Copyright International Business Machines Corporation 1995, 1999. * * All Rights Reserved. * * * * NetUtil (REXX functions that enhance NET commands) Ver 1.24 * * * * Author: Shintaroh Hori (shori@jp.ibm.com) * * Yamato Lab, IBM Japan * * * ****************************************************************************** List of files extracted from NETUTL.ZIP --------------------------------------- LICENSE.TXT IBM License Agreement netutil.txt Short description of this package netutil.inf On-line document of NetUtil functions netutil.dll NetUtil functions DLL Abstract: --------- NetUtil.DLL is a REXX function package which includes REXX functions that simulate and enhance NET commands of IBM OS/2 LAN Server products. It also includes functions that can perform what NET commands do not offer. It is designed to provide REXX programmers with ease-of-use interface and more capabilities than NET commands. Note: IBM offers an applet WSLSRXUT("LAN Server/Warp Server REXX API extension") as a free AS-IS software from a Web site; http://www.software.ibm.com/warp/pspinfo/wsapplets.html NetUtil has less functions than WSLSRXUT, but I think it will be more friendly to use than WSLSRXUT because NetUtil is is an implementation of NET commands as REXX functions but WSLSRXUT is an implementation of LAN Server APIs as REXX functions. Advantage of NetUtil functions: ------------------------------- * It sets information directly into REXX variables. * It offers more simple interface than NET commands. * It provides non-ADMIN users with limited information that cannot be obtained by NET commands. * There are also useful functions of non-NET command type. * It returns an exact return code from NET APIs. NetUtil makes a REXX program simple: ------------------------------------ Here is an example of REXX program that lists all the group names of a logon domain and the user ids within the groups. (Imagine your coding work if you have to code it with NET GROUP command.) /* Example. */ if NetGroup('Query','out','.')=0 then do do i=1 to out.0 say out.i.0gid /* group id*/ say out.i.0remark /* comment for this group */ do j=1 to out.i.0 /* number of users */ say out.i.j /* user id within the group*/ end end end Exit