38 lines
1.0 KiB
ObjectPascal
38 lines
1.0 KiB
ObjectPascal
{$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. |