🥇 Utility maka onyinyo mmadụ na-ejikọta onye na-abụghị onye nchịkwa na oge onye ọrụ RDP na WinServer 2012R2

Nsogbu a n'oge oge kwarantaini nke ụlọ ọrụ ahụ ghọrọ ihe ndị a: ọ dị mkpa n'ezie ibelata ọnụ ọgụgụ nke nleta ụlọ ọrụ site na ndị ọkachamara na-ahụ maka ọrụ na ndị na-ahụ maka ngwa ngwa, na n'eziokwu, ndị ọrụ na-ejikarị enyemaka nke ndị ọkachamara eme ihe n'achọghị ịbanye n'ime ya. Okwu ahụ n'onwe ya, ha na-ekwu "ha ga-abịa - ha ga-enyere aka - ha ga-eme ya, mana m ga-aṅụ sịga / ṅụọ kọfị, wdg." Mkparịta ụka ekwentị mgbe ị na-ekerịta ihe nkesa na-adị irè karị ma ọ bụrụ na ịlele ihuenyo dịpụrụ adịpụ.

Mgbe “mmepụta” nke igwe igwe anyị mechara, ozi nwere ezi uche na isiokwu nke isiokwu ahụ pụtara: Onyunyo RDS – njikọ onyinyo na oge onye ọrụ RDP na Windows Server 2012 R2 ma ọ bụ Ọnọdụ onyinyo onye ọrụ enweghị ohere na sava windows ma ọ bụ Ịnye njikwa nke oge RDP. Ha niile na-agụnye iji console, ọbụlagodi na akụkụ nke mkparịta ụka dị mfe.

Ezubere ozi niile dị n'okpuru maka ndị na-anabatakarị nhụsianya na-adịghị mma iji nweta nsonaazụ achọrọ, na-emepụta ụzọ ndị na-adịghị mkpa.
Ka ị ghara "ịdọrọ pusi n'ọdụ", m ga-amalite na nke ikpeazụ: igwe kwụ otu ebe na-arụ ọrụ maka onye ọrụ nkezi na-eji ihe bara uru. AdmiLink, nke ekele onye dere ya.

I. Console na onyinyo RDP.

Ebe ọ bụ na ejiri ya ikike nchịkwa nke njikwa njikwa ihe nkesa -> QuickSessionCollection -> site na ịpị na nnọkọ nke onye ọrụ mmasị, na-ahọrọ onyinyo site na nchịkọta nhọrọ. maka ndị ọrụ na-enye ntụziaka ka esi eji ngwa ngwa, abụghị nhọrọ, a tụlere usoro ọzọ "osisi", ya bụ:

1. Chọpụta RDP id nke nnọkọ ahụ:

query user | findstr Administrator

ma ọ bụ:

qwinsta | findstr Administrator

Ọzọkwa"| Findstr Onye nchịkwa"Ọ dị mma naanị mgbe ị maara kpọmkwem ihe Administrator ị chọrọ, ma ọ bụ jiri naanị akụkụ mbụ ka ịhụ onye ọ bụla banyere na ihe nkesa.

2. Jikọọ na nnọkọ a, ọ bụrụhaala na nke ahụ dị na ngalaba atumatu otu A na-ahọrọ nhọrọ "Ntọlite remote control law for the user sessions of Remote Desktop Services" ma ọ dịkarịa ala nhọrọ "Nleba anya nnọkọ na ikike onye ọrụ" ((ihe omuma):

mstsc /shadow:127

Biko mara na ndepụta a ga-enwe naanị nbanye onye ọrụ.

A na m ekwughachi na na-enweghị ikike nchịkwa ị ga-enweta ihe ndị a:

Mana maka nbibi mbụ nke mmemme a ga-atụle, ejiri m akaụntụ nwere ikike nchịkwa.

II. Mmemme

Ya mere nkwupụta nsogbu ahụ: ịmepụta ụfọdụ eserese eserese dị mfe iji jikọọ na echiche onyinyo nke onye ọrụ na ikike ya, na-ezigara onye ọrụ ozi. Mpaghara mmemme a họọrọ bụ Lazarọs.

1. Anyị na-enweta ndepụta ngalaba zuru ezu nke ndị ọrụ "nbanye" - "aha zuru ezu" site na onye nchịkwa, ma ọ bụ ọzọ site na njikwa:

wmic useraccount get Name,FullName

Ọ dịghị onye na-amachibido ọbụna nke a:

wmic useraccount get Name,FullName > c:testusername.txt

M ga-ekwu ozugbo na ọ bụ Lazarọs nwere nsogbu na nhazi faịlụ a, ebe ọ bụ na ndabara ya bụ UCS-2, yabụ na m ga-eji aka gbanwee ya na UTF-8 mgbe niile. Enwere ọtụtụ taabụ na nhazi faịlụ, ma ọ bụ karịa ọtụtụ oghere, nke e kpebiri ịhazi ya na mmemme; n'oge na-adịghị anya, nsogbu ntinye koodu ga-edozi, a ga-emelite faịlụ ahụ na mmemme.

Ya mere, echiche bụ ịnweta nchekwa nke ndị ọrụ nke mmemme ahụ, dịka ọmụmaatụ c: ule, nke a ga-enwe faịlụ 2: nke mbụ nwere nbanye na aha zuru ezu, nke abụọ nwere id_rdp na nbanye nke ndị ọrụ. Ọzọ, anyị na-ahazi data a ka anyị nwere ike :).

Ka ọ dị ugbu a, iji jikọta na ndepụta nke nnọkọ, anyị na-ebufe ọdịnaya a (nbanye na aha zuru ezu) n'usoro:

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;

A na m arịọ mgbaghara maka "ọtụtụ koodu", isi ihe ndị a ga-abụ nkenke karịa.

2. N'iji otu usoro ahụ sitere na paragraf gara aga, anyị na-agụ nsonaazụ nke nhazi ndepụta ahụ n'ime ihe StringGrid, ebe m ga-enye mpempe koodu "dị mkpa":

2.1 Anyị na-enweta ndepụta nke oge RDP dị ugbu a na faịlụ:

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 Hazie faịlụ ahụ (naanị akara ahịrị koodu ka egosipụtara):

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. Direct njikọ onwe ya site na ịpị akara na onye ọrụ na ya nnọkọ nọmba:

  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. Emeela ihe ịchọ mma di na nwunye ọzọ, dị ka nhazi site na ịpị bọtịnụ redio, na ozi ndị ọrụ ma ọ bụ ndị ọrụ niile.

→ Enwere ike ịhụ koodu isi mmalite zuru oke ebe a

III. Iji AdminLink - ihe m hụrụ:

AdminLink na-ewepụta ụzọ mkpirisi na-ezo aka ebe akụrụngwa dị admilauch.exe, na akwụkwọ ikike mmalite nkeonwe AdmiRun.Exe nke dị na folda onye ọrụ, dịka ọmụmaatụ vasya, ụdị C: UsersvasyaWINDOWS. N'ozuzu, ọ bụghị ihe niile dị njọ: ị nwere ike igwu egwu na ohere ịnweta faịlụ mkpirisi na ndị ọzọ iji kpochapụ akọnuche nke gị.

isi: www.habr.com

Ọrụ maka njikọ onyinyo mmadụ nke na-abụghị onye nchịkwa na oge onye ọrụ RDP na WinServer 2012R2

Tinye a comment Отменить ответ