Goireas airson ceangal sgàil daonna neo-rianachd gu seiseanan cleachdaiche RDP ann an WinServer 2012R2

Thàinig an duilgheadas rè ùine cuarantain na h-iomairt gu bhith na leanas: tha e dha-rìribh riatanach an àireamh de thursan gu oifisean a lughdachadh le eòlaichean a ’seirbheiseachadh agus a’ co-chomhairleachadh air bathar-bog tagraidh, agus gu fìrinneach, bidh luchd-cleachdaidh gu tric a ’mì-ghnàthachadh cuideachadh eòlaichean gun a bhith ag iarraidh sgrùdadh a dhèanamh air. a’ chùis fhèin, tha iad ag ràdh “thig iad - cuidichidh iad - nì iad e, ach smocadh/òlaidh mi cofaidh, msaa.” Tha co-chomhairle fòn nuair a bhios tu a’ roinneadh frithealaiche nas èifeachdaiche ma choimheadas tu air an scrion iomallach.

Às deidh “innleachd” ar baidhsagal, nochd fiosrachadh ciallach air cuspair an artaigil: RDS Shadow - ceangal sgàil ri seiseanan cleachdaiche RDP ann an Windows Server 2012 R2 no Modh sgàil cleachdaiche neo-leasaichte ann am frithealaiche windows no A’ tiomnadh stiùireadh seiseanan RDP. Tha iad uile a’ toirt a-steach cleachdadh tòcan, eadhon le eileamaidean de chòmhradh sìmplidh.

Tha a h-uile fiosrachadh gu h-ìosal airson an fheadhainn a tha gu h-àbhaisteach a’ gabhail ri perversions neo-àbhaisteach gus an toradh a tha thu ag iarraidh fhaighinn, a 'cruthachadh dhòighean neo-riatanach.
Gus nach "tarraing an cat leis an earball," tòisichidh mi leis an fhear mu dheireadh: bidh am baidhc ag obair airson an neach-cleachdaidh cuibheasach a 'cleachdadh a' ghoireas AdmiLink, airson taing don ùghdar aige.

I. Console agus sgàile RDP.

Bhon a chleachdadh le còraichean rianaire consòil Manaidsear an Fhrithealaiche -> QuickSessionCollection -> le bhith a’ briogadh air seisean an neach-cleachdaidh anns a bheil ùidh, a’ taghadh Shadow bhon chlàr co-theacsa airson luchd-obrach ag ionnsachadh mar a chleachdas iad am bathar-bog, chan e roghainn a th’ ann, chaidh beachdachadh air dòigh “fiodha” eile, is iad sin:

1. Faigh a-mach ID RDP an t-seisein:

query user | findstr Administrator

neo:

qwinsta | findstr Administrator 

A bharrachd air sin"| findstr Rianaire“Cha robh e goireasach ach nuair a bha fios agad dè dìreach rianaire feumaidh tu, no cleachd a’ chiad phàirt a-mhàin gus am faic a h-uile duine logadh a-steach don fhrithealaiche.

2. Dèan ceangal ris an t-seisean seo, air a sholarachadh sin san àrainn poileasaidhean buidhne Tha an roghainn "Suidhich riaghailtean smachd iomallach airson seiseanan cleachdaiche de Sheirbheisean Deasg Iomallach" air a thaghadh leis an roghainn "Sùil air seisean le cead neach-cleachdaidh" co-dhiù (barrachd fiosrachaidh):

mstsc /shadow:127

Thoir an aire nach bi air an liosta ach logaichean luchd-cleachdaidh.

Tha mi ag ràdh a-rithist, às aonais còraichean rianachd gheibh thu na leanas:

Ach airson dì-bhugachadh tòiseachaidh den phrògram air an tèid a dheasbad, chleachd mi cunntas le còraichean rianadair.

II. Prògram

Mar sin an aithris duilgheadas: a 'cruthachadh eadar-aghaidh grafaigeach sìmplidh gus ceangal a dhèanamh ri mothachadh sgàil an neach-cleachdaidh le a chead, a' cur teachdaireachd chun neach-cleachdaidh. Is e Lazarus an àrainneachd phrògramachaidh a chaidh a thaghadh.

1. Gheibh sinn an liosta iomlan de luchd-cleachdaidh “logadh a-steach” - “làn ainm” bhon rianadair, no a-rithist tron ​​​​chonsól:

wmic useraccount get Name,FullName 

cha toirmisg neach air bith so eadhon :

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

Canaidh mi sa bhad gur e Lazarus a bh’ ann aig an robh duilgheadas le bhith a’ giullachd an fhaidhle seo, leis gur e UCS-2 a chòdachadh gu bunaiteach, agus mar sin cha robh agam ach a thionndadh le làimh gu UTF-8 àbhaisteach. Tha tòrr tabaichean ann an structar an fhaidhle, no an àite tòrr àiteachan, a chaidh co-dhùnadh a phròiseasadh gu prògramach; luath no mall thèid an duilgheadas còdaidh fhuasgladh, agus thèid am faidhle ùrachadh gu prògramach.

Mar sin, is e am beachd pasgan a bhith ruigsinneach do luchd-cleachdaidh a’ phrògram, mar eisimpleir c: test, anns am bi 2 fhaidhle: a’ chiad fhear le logadh a-steach agus làn ainm, an dàrna fear le id_rdp agus logadh a-steach luchd-cleachdaidh. An ath rud, bidh sinn a’ làimhseachadh an dàta seo cho math ‘s as urrainn dhuinn :).

Anns an eadar-ama, gus ceangal a dhèanamh ri liosta nan seiseanan, bidh sinn a’ gluasad an t-susbaint seo (logadh a-steach agus làn ainm) gu raon:

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;

Tha mi duilich airson an “tòrr còd”, bidh na puingean a leanas nas pongail.

2. A’ cleachdadh an aon dòigh bhon pharagraf roimhe seo, leugh sinn toradh a bhith ag obrachadh an liosta a-steach don eileamaid StringGrid, agus bheir mi seachad pìos còd “cudromach”:

2.1 Bidh sinn a’ faighinn an liosta làithreach de sheiseanan RDP ann am faidhle:

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 Pròiseas am faidhle (chan eil ach loidhnichean còd cudromach air an comharrachadh):

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. Ceangal dìreach fhèin le bhith a 'briogadh air an loidhne leis an neach-cleachdaidh agus an àireamh seisean aige:

  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. Chaidh càraid a bharrachd sgeadachaidhean a dhèanamh, leithid an rèiteachadh le bhith a 'briogadh air a' phutan rèidio, agus teachdaireachdan chun neach-cleachdaidh no a h-uile neach-cleachdaidh.

→ Chithear an còd tùsail slàn an seo

III. A’ cleachdadh AdminLink - na chunnaic mi:

Bidh AdminLink a’ gineadh ath-ghoirid a bheir iomradh air far a bheil an goireas admilaunch.exe, agus leth-bhreac pearsanta den ghoireas cur air bhog AdmiRun.Exe a tha suidhichte ann am pasgan an neach-cleachdaidh, mar eisimpleir Vasya, seòrsa C: Luchd-cleachdaidh WINDOWS. San fharsaingeachd, chan eil a h-uile dad cho dona: faodaidh tu cluich timcheall le còraichean-slighe air an fhaidhle ath-ghoirid agus feadhainn eile gus do chogais rianachd fhèin a ghlanadh.

Source: www.habr.com