Click above to get retro games delivered to your door ever month!

 UsrGroupMgrTest()
------------------------------------------------------------------------------
 Purpose:
 Verify a user is a workgroup manager.

 Syntax:
 bResult = UsrGroupMgrTest( lpszUserName )

 Parameters:
 lpszUserName  The user name.

 Returns:
 A boolean value (TRUE or FALSE).

 The CA-Clipper name for this function is:
 UsrGrpMgrTst()

 Description:
 UsrGroupMgrTest() tests to see if the user specified by lpszUserName is
 a workgroup manager on the default file server.

 Returns TRUE if the user is a manager on the default file server and FALSE
 if not, or if an error occurs.

 Example:
 // To test whether user SHARON is a workgroup manager on the
 // default file server:
 if ( UsrGroupMgrTest( "SHARON" ) )
    ? "User SHARON is a workgroup manager on server", FSNameGet()
 endif

 Notes:
 UsrGroupMgrTest() uses SetPropertyIDTest() to test whether the
 bindery object ID of the specified user is in the MANAGERS set property
 value of the Supervisor.

 If FALSE is returned, check NWErrorGet().