VLF-ONE : How to retrieve Users and Groups
Posted: Sat Nov 18, 2017 2:06 am
Is there a way unsing VLF methods to retrieve a list of Users and Groups defined in VLF-ONE (ie : File VFPPP06) ?
By example with VLF Win I was able to retrieve the Groups belongings to User connected using the code below :
but it seems that such methods are not available in VLF-ONE.
Do we need to do this directly acess on file VFPP06 ?
Any idea will be welcome.
By example with VLF Win I was able to retrieve the Groups belongings to User connected using the code below :
Code: Select all
Mthroutine Name(uGetGroupsUser)
Define_Com Class(#vf_FP005) Name(#CurrentUser) Reference(*Dynamic)
Define_Com Class(#vf_FP005) Name(#GroupUser) Reference(*Dynamic)
Define_Com Class(#std_Num) Name(#LoopLimit)
Define_Com Class(#std_Num) Name(#LoopIndex)
Define_Com Class(#vf_elidn) Name(#GroupUserGUID)
#CurrentUser <= #uSystem.uUser
#LoopLimit := #CurrentUser.uInUserGroupMax
Begin_Loop Using(#LoopIndex) To(#LoopLimit)
* Get the GUID of the associated group user and convert to an object reference
#GroupUserGUID := #CurrentUser.uInUserGroup<#LoopIndex>
#GroupUser <= #uSystem.uUserContainer.uUserProfile<#GroupUserGUID>
.....
End_Loop
Endroutine Do we need to do this directly acess on file VFPP06 ?
Any idea will be welcome.