{$X+,B-,V-,S-} {essential compiler directives}

Program SupEq; {as of 950301}

{ Example for the nwBindry unit / NwTP 0.6 API. (c) 1993,1995, R.Spronk }

{ Purpose: Shows all supervisor equivalent users. }

uses nwMisc,nwBindry;

Var Info    :TobjIdArray;
    SeqNbr  :Longint;
    NbrOfObj:word;
    ObjName :string;
    ObjType :word;
    NbrOfEqUsers:word;
    t       :word;
begin
writeln('Objects that are supervisor equivalent:');
writeln;
NbrOfEqUsers:=0;
SeqNbr:=-1;
REPEAT
  if GetRelationOfBinderyObject('SUPERVISOR',1,'SECURITY_EQUALS',
                                SeqNbr,NbrOfObj,Info)
   then for t:=1 to NbrOfObj
         do begin
            inc(NbrOfEqUsers);
            write(HexStr(Info[t],8));
            GetBinderyObjectName(Info[t],ObjName,ObjType);
            writeln(' ',ObjName);
            end;
UNTIL SeqNbr=-1;
if nwBindry.result<>0
 then writeln('Search for security equivalent users aborted due to an error.');
if NbrOfEqUsers=0
 then writeln('No supervisor equivalent users found');
end.