ืื ืคึผืจืึธืืืขื ืืขืฉืึทืก ืื ืงืึทืจืึทื ืืื ืคึผืขืจืืึธื ืคืื ืื ืคืึทืจื ืขืืื ื ืืื ืืขืืืืจื ืื ืคืืืืขื ืืข: ืขืก ืืื ืืึทืงืข ื ืืืืืง ืฆื ืืื ืึทืืืื ืื ื ืืืขืจ ืคืื ืืืืืืฅ ืฆื ืึธืคืึทืกืึทื ืืืจื ืกืคึผืขืฉืึทืืึทืกืฅ ืกืขืจืืืืกืื ื ืืื ืงืึทื ืกืึทืืืื ื ืืืืฃ ืึทืคึผืืึทืงืืืฉืึทื ืืืืืืืืืจื, ืืื ืคืจืึทื ืืงืื ืืขืจืขืื, ืื ืืืืขืจื ืึธืคื ืืืืืขื ืื ืืืืฃ ืคืื ืกืคึผืขืฉืึทืืึทืกืฅ ืึธื ืืืขืื ืฆื ืืขืืื ืืื. ืื ืึทืจืืืกืืขืื ืืื, ืืื ืืึธืื "ืืื ืืืขืื ืงืืืขื - ืืื ืืืขืื ืืขืืคื - ืืื ืืืขืื ืืึธื ืขืก, ืึธืืขืจ ืืื ืืืขื ืจืืื / ืืจืื ืงืขื ืงืึทืืืข, ืืื"ื ื. ืืขืืขืคืึธื ืืึทืจืึทืืื ื ืืืขื ืืึทื ืืืืืื ื ืึท ืกืขืจืืืขืจ ืืื ืืขืจ ืขืคืขืงืืืื ืืืื ืืืจ ืืขื ืื ืืืืึทื ืคืึทืจืฉืืขืื.
ื ืึธื ืื "ืืขืจืคืื ืืื ื" ืคืื ืืื ืืืขืจ ืืืขืืึธืกืืคึผืขื, ืืขืืื ื ืืื ืคึฟืึธืจืืึทืฆืืข ืืืืฃ ืืขืจ ืืขืืข ืคืื โโืืขื ืึทืจืืืงื ืืื ืืขืืืขื: ืึธืืขืจ ืึธืืขืจ . ืึทืืข ืคืื โโืืื ืึทืจืืึทื ืฆืืขื ืื ื ืืฆื ืคืื ืึท ืงืึทื ืกืึธืื, ืืคืืื ืืื ืขืืขืืขื ืื ืคืื ืึท ืคึผืฉืื ืืืึทืืึธื.
ืึทืืข ืืื ืคึฟืึธืจืืึทืฆืืข ืืื ืื ืืื ืืืขื ืคึฟืึทืจ ืื ืืืืก ืืึธืืขืจืืืฅ ืึทืื ืึธืจืืึทื ืคึผืขืจืืืขืจืกืืึธื ืก ื ืึธืจืืึทืื ืฆื ืงืจืืื ืื ืืขืืขืื ืจืขืืืืืึทื, ืื ืืืขื ืืื ื ืืื ืืืืืง ืืขืืืึธืืก.
ืืื ืกืืจ ื ืืฉื ืฆื "ืฆืืขื ืื ืงืึทืฅ ืืืจื ืื ืขืง", ืืื ืืืขื ืึธื ืืืืื ืืื ืื ืืขืฆืืข: ืื ืืืืง ืึทืจืืขื ืคึฟืึทืจ ืื ืืืจืืฉื ืืืืขื ืืึทื ืืฆืขืจ ื ืืฆื ืื ื ืืฆื , ืคึฟืึทืจ ืืืึธืก ืืึทื ืง ืฆื ืืืึทื ืืืืจ.
I. ืงืึทื ืกืึธืื ืืื ืฉืึธืื ืจืืคึผ.
ืืื ื ื ืืฆื ืืื ืึทืืืื ืืกืืจืึทืืึธืจ ืจืขืื ืคืื ืื ืกืขืจืืืืจืขืจ ืืึทื ืึทืืขืจ ืงืึทื ืกืึธืื -> QuickSessionCollection -> ืืืจื ืืขืื ืึท ืงืืืง ืืืืฃ ืื ืกืขืกืืข ืคืื โโืื ืืึทื ืืฆืขืจ ืคืื ืืื ืืขืจืขืก, ืกืขืืขืงืืืจื ืฉืึธืื ืคึฟืื ืื ืงืึธื ืืขืงืกื ืืขื ืื ืคึฟืึทืจ ืคึผืขืจืกืึทื ืขื ืืืึธืก ืืขืจื ืขื ืืื ืฆื ื ืืฆื ืื ืืืืืืืืืจื, ืืื ื ืืฉื ืึทื ืึธืคึผืฆืืข, ืื ืื ืืขืจ "ืืึธืืืืึทื" ืืืคึฟื ืืื ืืขืืืืื, ื ืืืืื:
1. ืืขืคึฟืื ืขื ืื RDP ืฉืืึทื ืคืื ืื ืกืขืกืืข:
query user | findstr Administratorืึธืืขืจ:
qwinsta | findstr Administrator ืืขืจืฆื "| findstr ืึทืืืื ืืกืืจืึทืืึธืจ"ืขืก ืืื ื ืึธืจ ืืึทืงืืืขื ืืืขื ืืืจ ืืขืืืืืกื ืืืึธืก ืคึผืื ืงื ืึทืืืื ืืกืืจืึทืืึธืจ ืืืจ ืืึทืจืคึฟื, ืึธืืขืจ ื ืืฆื ืืืืื ืืขืจ ืขืจืฉืืขืจ ืืืื ืฆื ืืขื ืึทืืขืืขื ืืึธืื ืืื ืื ืกืขืจืืืขืจ.
2. ืคืึทืจืืื ืื ืฆื ืืขื ืกืขืกืืข, ืฆืืืขืฉืืขืื ืึทื ืืื ืื ืคืขืื ืืจืืคึผืข ืคึผืึทืืึทืกืื ืื "ืืึทืฉืืขืืืงื ืจืืืึธืื ืงืึธื ืืจืึธื ืึผืืืื ืคึฟืึทืจ ืืึทื ืืฆืขืจ ืกืขืฉืึทื ื ืคืื ืจืืืึธืื ืืขืกืงืืึธืคึผ ืืึทืืื ืื ืืก" ืึธืคึผืฆืืข ืืื ืืืืกืืขืงืืืื ืืื ืืืึท ืืื ืืกืืขืจ ืื "ืืึธื ืืืึธืจ ืกืขืกืืข ืืื ืืึทื ืืฆืขืจ ืืขืจืืืืืขื ืืฉ" ืึธืคึผืฆืืข ืืืืกืืขืงืืืื ():
mstsc /shadow:127ืืืืข ืืึธื ืึทื ืื ืจืฉืืื ืืืขื ืืืืื ืึทื ืืืึทืืื ืืึทื ืืฆืขืจ ืืึธืืื ืก.
ืืื ืืืืขืจืืืจื ืึทื ืึธื ืึทืืืื ืจืขืื ืืืจ ืืืขื ืืึทืงืืืขื ืื ืคืืืืขื ืืข:
ืึธืืขืจ ืคึฟืึทืจ ืคึผืจืืืืืึทื ืขืจื ืืืืึทืืื ื ืคืื ืื ืคึผืจืึธืืจืึทื ืืืึธืก ืืืขื ืืืื ืืืกืงืึทืกื, ืืื ืืขืืืืื ื ืึท ืืฉืืื ืืื ืึทืืืื ืืกืืจืึทืืึธืจ ืจืขืื.
ืื. ืคึผืจืึธืืจืึทื
ืึทืืื ืื ืคึผืจืึธืืืขื ืืขืจืงืืขืจืื ื: ืงืจืืืืืื ื ืขืืืขืืข ืคึผืฉืื ืืจืึทืคืืงืึทื ืฆืืืื ื ืฆื ืคืึทืจืืื ืื ืฆื ืืขืจ ืืึทื ืืฆืขืจ ืก ืฉืึธืื ืืื ืขื ืืื ืืืื ืืขืจืืืืืขื ืืฉ, ืฉืืงื ืึท ืึธื ืืึธื ืฆื ืืขืจ ืืึทื ืืฆืขืจ. ืื ืืืืกืืขืจืืืืืืืข ืคึผืจืึธืืจืึทืืืื ื ืกืืืืืืข ืืื ืืืขืืจ.
1. ืืืจ ืืึทืงืืืขื ืื ืคืื ืคืขืื ืจืฉืืื ืคืื ืืืืขืจื "ืืึธืืื" - "ืคืื ื ืึธืืขื" ืคึฟืื ืืขืจ ืึทืืืื ืืกืืจืึทืืึธืจ, ืึธืืขืจ ืืืืืขืจ ืืืจื ืื ืงืึทื ืกืึธืื:
wmic useraccount get Name,FullName ืงืืื ืขืจ ืคืึทืจืืืขืจื ืืคืืื ืืึธืก:
wmic useraccount get Name,FullName > c:testusername.txtืืื ืืืขื ืืึธืื ืืืืื ืึทื ืขืก ืืื ืืขืืืขื ืืืขืืจ ืืืึธืก ืืื ืึท ืคึผืจืึธืืืขื ืืื ืคึผืจืึทืกืขืกืื ื ืืขื ืืขืงืข, ืืืืึทื ืืืจื ืคืขืืืงืืึทื ืื ืงืึธืืืจืื ื ืืื UCS-2, ืึทืืื ืืื ื ืึธืจ ืืึธืื ืฆื ืืึทื ืืืึทืื ืืขืจ ืขืก ืฆื ืจืขืืืืขืจ UTF-8. ืขืก ืืขื ืขื ืึท ืคึผืืึทืฅ ืคืื ืืึทืืก ืืื ืืขืจ ืืขืงืข ืกืืจืืงืืืจ, ืึธืืขืจ ืืึทื ืฅ ืึท ืคึผืืึทืฅ ืคืื ืกืคึผืืืกืึทื, ืืืึธืก ืขืก ืืื ืืึทืฉืืึธืกื ืฆื ืคึผืจืึธืฆืขืก ืคึผืจืึธืืจืึทืืืึทืืืง ืืืืขืจ ืึธืืขืจ ืฉืคึผืขืืขืจ ืื ืงืึธืืืจืื ื ืคึผืจืึธืืืขื ืืืขื ืืืื ืกืึทืืืื, ืืื ืื ืืขืงืข ืืืขื ืืืื ืืขืจืืืึทื ืืืงื ืคึผืจืึธืืจืึทืืืึทืืืง.
ืืขืจ ืืขืืึทื ืง ืืื ืฆื ืืึธืื ืึท ืืขืงืข ืฆืืืจืืืืขื ืคึฟืึทืจ ืืืืขืจื ืคืื ืืขื ืคึผืจืึธืืจืึทื, ืืืฉื c:test, ืืื ืืืึธืก ืขืก ืืืขื ืืืื 2 ืืขืงืขืก: ืืขืจ ืขืจืฉืืขืจ ืืื ืืึธืืื ืืื ืคืื ื ืึธืืขื, ืื ืจืืข ืืื id_rdp ืืื ืืึธืืื ืคืื ื ืืฆืขืจืก. ืืืืึทืืขืจ, ืืืจ ืคึผืจืึธืฆืขืก ืื ืืึทืื ืืื ืืขืกืืขืจ ืืืจ ืงืขื ืขื :).
ืืื ืืขืจ ืืขืจืืืืื, ืฆื ืคืึทืจืืื ืื ืืื ืืขืจ ืจืฉืืื ืคืื ืกืขืฉืึทื ื, ืืืจ ืึทืจืืืขืจืคืืจื ืืขื ืืื ืืึทืื (ืืึธืืื ืืื ืคืื ื ืึธืืขื) ืฆื ืึท ืืขื ืืข:
procedure Tf_rdp.UserF2Array;
var
F:TextFile; i:integer; f1, line1:String; fL: TStringList;
begin //f_d ะณะปะพะฑะฐะปัะฝัะน ะฟััั ะบ ัะฐะทะผะตัะตะฝะธั ัะฐะนะปะพะฒ
f1:=f_d+'user_name.txt'; //ะทะฐะดะฐัะฐ ััะธัะฐัั ะฒ ะผะฐััะธะฒ ัะพะดะตัะถะธะผะพะต ัะฐะนะปะฐ
fL := TStringList.Create; // ัััะพะบั ะฟะพะดะฒะตัะณะฝะตะผ ะผะตัะฐะผะฐััะพะทะฐะผ ั ัะฐะทะดะตะปะธัะตะปัะผะธ
fL.Delimiter := '|'; fL.StrictDelimiter := True;
AssignFile(F,f1);
try // ะัะบัััั ัะฐะนะป ะดะปั ััะตะฝะธั
reset(F); ReadLn(F,line1);
i:=0;
while not eof(F) do // ะกัะธััะฒะฐะตะผ ัััะพะบะธ, ะฟะพะบะฐ ะฝะต ะทะฐะบะพะฝัะธััั ัะฐะนะป
begin
ReadLn(F,line1);
line1:= StringReplace(line1, ' ', '|',[]); //ะทะฐะผะตะฝัะตะผ ะฟะตัะฒัะน ะฟะพะฟะฐะฒั.2ะฟัะพะฑะตะปะฐ ัะฐะทะดะตะปะธัะตะปะตะผ |
// ัะดะฐะปัะตะผ ะฒัะต ะดะฒะพะนะฝัะต ะฟัะพะฑะตะปั
while pos(' ',line1)>0 do line1:= StringReplace(line1, ' ', ' ', [rfReplaceAll]);
begin
if (pos('|',line1)>0) then
begin //ะตัะปะธ ัะฐะทะดะตะปะธัะตะปั ัััะตััะฒัะตั ะทะฐะฝะพัะธะผ ะตะณะพ ะฒ ะผะฐััะธะฒ
fL.DelimitedText :=line1; // ัะฐะทะฑะธะฒะฐะตะผ ะฝะฐ ััะพะปะฑัั
if (fL[0]<>'') then //ะตัะปะธ ััะตัะบะฐ ะธะผะตะตั ะธะผั
begin //ะฒะฝะพัะธะผ ะตะต ะฒ ะผะฐััะธะฒ
inc(i); // ะธะทะฑะฐะฒะปัะตะผัั ะพั ะฒะพะทะผะพะถะฝัั
ะพะดะธะฝะพัะฝัั
ะฟัะพะฑะตะปะพะฒ ะฒ ะปะพะณะธะฝะต
fam[0,i]:=StringReplace(fL[1],' ','',[rfReplaceall, rfIgnoreCase]);
fam[1,i]:=fL[0];
end;end;end;end; // ะะพัะพะฒะพ. ะะฐะบััะฒะฐะตะผ ัะฐะนะป.
CloseFile(F);
Fl.Free;
except
on E: EInOutError do ShowMessage('ะัะธะฑะบะฐ ะพะฑัะฐะฑะพัะบะธ ัะฐะนะปะฐ. ะะตัะฐะปะธ: '+E.Message);
end;end;ืืื ืึทื ืืฉืืืืืงื ืคึฟืึทืจ ืื "ืคืืืข ืคืื โโืงืึธื", ืื ืคืืืืขื ืืข ืคืื ืงืื ืืืขืื ืืืื ืืขืจ ืงืึทื ืกืืืก.
2. ื ืืฆื ืื ืืขืืืข ืืืคึฟื ืคืื ืื ืคืจืืขืจืืืงืข ืคึผืึทืจืึทืืจืึทืฃ, ืืืจ ืืืืขื ืขื ืื ืจืขืืืืืึทื ืคืื ืคึผืจืึทืกืขืกืื ื ืื ืจืฉืืื ืืื ืื StringGrid ืขืืขืืขื ื, ืืฉืขืช ืืื ืืืขื ืืขืื ืึท "ืืึทืืืึทืืืง" ืฉืืืง ืคืื ืงืึธื:
2.1 ืืืจ ืืึทืงืืืขื ืื ืงืจืึทื ื ืจืฉืืื ืคืื RDP ืกืขืฉืึทื ื ืืื ืึท ืืขืงืข:
f1:=f_d+'user.txt';
cmdline:='/c query user >'+ f1;
if ShellExecute(0,nil, PChar('cmd'),PChar(cmdline),nil,1)=0 then;
Sleep(500); // ะผะพะถะฝะพ ะธ ะฟะพะดะพะปััะต ะถะดะฐัั ะฟะพะบะฐ ัะฐะนะป ะดะปั ััะตะฝะธั ัะพะทะดะฐะตััั2.2 ืคึผืจืึธืฆืขืก ืื ืืขืงืข (ืืืืื ืืึทืืืึทืืืง ืฉืืจืืช ืคืื ืงืึธื ืืขื ืขื ืื ืืขืืืืื):
StringGrid1.Cells[0,i]:=fL[1]; StringGrid1.Cells[2,i]:=fL[3]; //ะบะธะดะฐะตะผ ะฒ ัะธะบะปะต ะฒ StringGrid1
login1:=StringReplace(fL[1],' ','',[rfReplaceall, rfIgnoreCase]); //ัะฑะธัะฐะตะผ ะธะท ะปะพะณะธะฝะฐ ะฟัะพะฑะตะปั
if (SearchArr(login1)>=0) then //ะธัะตะผ ะฒ ะผะฐััะธะฒะต ะธะท ะฟ1. ะปะพะณะธะฝ ะธ ะทะฐะฟะธััะฒะฐะตะผ ะฒ ัะฐะฑะปะธัั ะคะะ
StringGrid1.Cells[1,i]:=fam[1,SearchArr(login1)]
else StringGrid1.Cells[1,i]:='+'; // ะปะธะฑะพ ะทะฐะฟะธััะฒะฐะตะผ ะฟะปััะธะบ:)
.... //ะฒ ะทะฐะฒะธัะธะผะพััะธ ะพั ะฒัะฑะพัะฐ ะฟะพะปัะทะพะฒะฐัะตะปั ัะพััะธััะตะผ ะธ ัะพัะผะฐัะธััะตะผ ะฟะพ ะดะฐะฝะฝัะผ
if (b_id.Checked=true) then SortGrid(0) else SortGrid(1);
StringGrid1.AutoSizeColumn(0);StringGrid1.AutoSizeColumn(1); StringGrid1.AutoSizeColumn(2); 3. ืืืจืขืงื ืคึฟืึทืจืืื ืืื ื ืืื ืืืจื ืืขืื ืึท ืงืืืง ืืืืฃ ืื ืฉืืจื ืืื ืืขืจ ืืึทื ืืฆืขืจ ืืื ืืืื ืกืขืกืืข ื ืืืขืจ:
id:=(StringGrid1.Row);// ัะทะฝะฐะตะผ ะฝะพะผะตั ัััะพะบะธ IntToStr(StringGrid1.Row)
ids:=StringGrid1.Cells[2,id]; //ะฟะพะปััะฐะตะผ ะธะดะตะฝัะธัะธะบะฐัะพั rdp
cmdline:='/c mstsc /shadow:'+ ids; //ะธ ะฟะพะดะบะปััะฐะตะผัั....
if (b_rdp.Checked=True) then if ShellExecute(0,nil, PChar('cmd'),PChar(cmdline),nil,1) =0 then; 4. ืึท ืคึผืึธืจ ืืขืจ ืืขืงืขืจืืืฉืึทื ื ืืขื ืขื ืืขืืืื, ืึทืืึท ืืื ืกืึธืจืืื ื ืืืจื ืืขืื ืึท ืงืืืง ืืืืฃ ืื ืจืึทืืืึธืงื ืขืคึผื, ืืื ืึทืจืืืงืืขื ืฆื ืืขืจ ืืึทื ืืฆืขืจ ืึธืืขืจ ืึทืืข ื ืืฆืขืจืก.
โ ืืึทื ืฅ ืืงืืจ ืงืึธื ืงืขื ืขื ืืืื ืืขืืขื
III. ื ืืฆื AdminLink - ืืืึธืก ืืื ืืขืืขื:
AdminLink ืืืฉืขื ืขืจืืืฅ ืึท ืืืจืืืืขื ืืืึธืก ืจืขืคืขืจืก ืฆื ืื ืึธืจื ืคืื ืื ื ืืฆื admilaunch.exe, ืืื ืึท ืคึผืขืจืืขื ืืขื ืงืึธืคึผืืข ืคืื โโืื ืงืึทืืขืจ ื ืืฆื AdmiRun.Exe ืืืึธืก ืืื ืืืื ืืื ืืขืจ ืืึทื ืืฆืขืจ 'ืก ืืขืงืข, ืคึฟืึทืจ ืืืึทืฉืคึผืื ืืืึทืกืืึท, ืืืคึผ C: UsersvasyaWINDOWS. ืืื ืึทืืืขืืืื, ื ืื ืึทืืฅ ืืื ืึทืืื ืฉืืขืื: ืืืจ ืงืขื ืขื ืฉืคึผืืื ืืื ืึทืงืกืขืก ืจืขืื ืฆื ืื ืืืจืืืืขื ืืขืงืข ืืื ืื ืืขืจืข ืฆื ืืืกืืขืงื ืืืื ืืืืืขื ืข ืึทืืืื ืืขืืืืกื.
ืืงืืจ: www.habr.com
