Нашёл код создания 2х файлов: батника создания пользователей на сервере и *.тхт со списком пользователей и паролей

program script_great_new_users;

uses crt;

const n=80; {chislo pol'zovatelei}

var i:integer;
j:longint;
x,y:real;
f,f1:text;
s,s1,s2:string;

begin
{
mkdir d:\home\s0501
net user s0501 s0501 /add /domain /homedir:\\server\home\s0501
cacls d:\home\s0501 /t /e /c /g s0501:f
}
randomize;
s:='gnu-01.bat';
Assign(f,s);
Rewrite(f);
s:='pasus-01.txt';
Assign(f1,s);
Rewrite(f1);
for i:=1 to n do
begin
repeat
x:=100000000*random;
until x>10000000;
j:=Trunc(x);
Str(i,s1);
Str(j,s2);
Write(f,'mkdir d:\home\s');
if i<10 then s1:='0'+s1;
s1:='05'+s1;
{ if (9<i) and (i<100) then s1:='00'+s1;
if (99<i) and (i<1000) then s1:='0'+s1;
}WriteLn(f,s1);
Write(f,'net user s');
Write(f,s1);
Write(f,' ');
Write(f,s2);
Write(f,' /add /domain /homedir:\\server\home\s');
WriteLn(f,s1);
Write(f,'cacls d:\home\s');
Write(f,s1);
Write(f,' /t /e /c /g s');
Write(f,s1);
WriteLn(f,':f');
Write(f1,'s');
Write(f1,s1);
Write(f1,' - ');
WriteLn(f1,s2);

end;
Close(f);
Close(f1);



end.

как его(её) запустить?

и что значит
cacls d:\home\s0501 /t /e /c /g s0501:f
?

Там же где был код нашёл эту программу. Что это и как с ним работать?

Спасибо. Как в VBA сделать например в Аксессе в процедуре нажатия кнопки?

Всё нормально скачаль турбо паскаля, работает. Спасибо.