🚀 go-pugleaf

In article <4egmkn$8...@bnet.fuw.edu.pl> "PROCHEM S.A." <prochem> writes:
>From: "PROCHEM S.A." <prochem>
>Subject: (no subject)
>Date: 28 Jan 1996 20:34:31 GMT

>jak w batch'u odpowiedziec na pytanie, czy dany uzytkownik 
>jest w danej grupie, oczywiscie nie aktualnie logujacy sie.

Proponuje tak:

Plik ibois.pas:
 
USES Dos;

VAR q:RECORD l:Word; b:ARRAY[1..$75] OF Byte; END; a:Word; r:Registers;
    (* w lngt,b 43h,w o_type=2,s o_name,s p_name,w m_type=1,s m_name *)

PROCEDURE PutWord(w:Word);
 BEGIN Inc(q.l); q.b[q.l]:=Hi(w); Inc(q.l); q.b[q.l]:=Lo(w);
 END;
PROCEDURE PutStr(s:String);
 VAR i:Integer;
 BEGIN Inc(q.l); q.b[q.l]:=Length(s);
 FOR i:=1 TO Length(s) DO BEGIN Inc(q.l); q.b[q.l]:=Byte(UpCase(s[i])); END;
 END;

BEGIN a:=0; q.l:=1; q.b[1]:=$43; PutWord(2); PutStr(ParamStr(1));
PutStr('GROUP_MEMBERS'); PutWord(1); PutStr(ParamStr(2));
r.ES:=Seg(a); r.DI:=Ofs(a); r.DS:=Seg(q); r.SI:=Ofs(q); r.AH:=$E3;
MsDos(r); (* Writeln('AL=',r.AL,', CF=',Odd(r.Flags)); *) Halt(r.AL);
END.

Plik iuig.bat:

@echo off
ibois %2 %1
if errorlevel 1 echo %1 nie jest w grupie %2
if not errorlevel 1 echo %1 jest w grupie %2

Dziala :-)