BL.Sys.Toegang 1 %RegisteredObject 0 ======================================================= HAS ACCESS? . ======================================================= 1 %Boolean ======================================================= GET SID ARRAY . ======================================================= Geeft een array met SIDs van al de groepen waartoe een ToegangObj behoort + het eigen ToegangObj 1 0 %String ")_TGName,.varSIDArray,.varErrStr) Quit ]]> ======================================================= GET NAMES . ======================================================= %Query paNameFilter:%String,paSecurityType:%Integer=-1 1 0 %Status 1 QGetGroupsAndNamesExecute 0 %Status 1 QGetGroupsAndNamesExecute 0 %Status ======================================================= EXTRA . ======================================================= 1 SecurityType:%Integer,ID:%String %String 1 %Boolean 1 %String