Fóntas chun scáth daonna a nascadh le seisiúin úsáideora RDP in WinServer 2012R2

Tháinig an fhadhb seo a leanas le linn thréimhse coraintín an fhiontair: tá sé fíor-riachtanach líon na gcuairteanna ar oifigí a dhéanann speisialtóirí a sheirbhísiú agus a chomhairliúchán ar bhogearraí feidhmchláir a íoslaghdú, agus go hoscailte, is minic a dhéanann úsáideoirí mí-úsáid a bhaint as cabhair ó speisialtóirí gan iarraidh orthu dul i mbun taighde. an cheist féin, deir siad “tiocfaidh siad - cabhróidh siad - déanfaidh siad é, ach caithfidh mé tobac / ólfaidh mé caife, srl.” Tá sé níos éifeachtaí comhairliúchán teileafóin agus freastalaí á roinnt agat má amharcann tú ar an gcianscáileán.

Tar éis “aireagán” ár rothair, tháinig faisnéis chliste ar ábhar an ailt suas: Scáth RDS - nasc scáth le seisiúin úsáideora RDP i Windows Server 2012 R2 nó Mód scáthaithe úsáideora gan phribhléid i bhfreastalaí windows nó Bainistíocht seisiúin RDP a tharmligean. Baineann gach ceann acu le húsáid consól, fiú le gnéithe de chomhphlé simplí.

Tá gach eolas thíos beartaithe dóibh siúd a fhulaingt de ghnáth perversions neamhghnácha chun an toradh inmhianaithe a fháil, modhanna neamhriachtanach a chumadh.
Chun gan “an cat a tharraingt faoin eireaball”, tosóidh mé leis an gceann deireanach: oibríonn an rothar don úsáideoir meánach ag baint úsáide as an bhfóntas AdmiLink, a bhuíochas dá údar.

I. Consól agus scáth RDP.

Ó úsáid le cearta riarthóra an chonsóil Bainisteoir Freastalaí -> QuickSessionCollection -> trí chliceáil ar sheisiún an úsáideora spéisiúil, roghnaigh Scáth ón roghchlár comhthéacs do phearsanra a thugann treoir conas na bogearraí a úsáid, nach rogha é, breithníodh modh “adhmaid” eile, eadhon:

1. Faigh amach aitheantas RDP an tseisiúin:

query user | findstr Administrator

nó:

qwinsta | findstr Administrator 

Thairis sin "| Findstr Riarthóir“Ní raibh sé áisiúil ach nuair a bhí a fhios agat cad go díreach riarthóir ní mór duit, nó bain úsáid as ach an chéad chuid chun gach duine a fheiceáil logáilte isteach ar an bhfreastalaí.

2. Ceangail leis an seisiún seo, ar choinníoll go bhfuil san fhearann polasaithe grúpa Roghnaítear an rogha "Socraigh rialacha cianrialaithe le haghaidh seisiúin úsáideora de Sheirbhísí Deisce Cianda" agus ar a laghad an rogha "Monatóireacht a dhéanamh ar sheisiún le cead úsáideora" (níos mó):

mstsc /shadow:127

Tabhair faoi deara nach mbeidh sa liosta ach logáil isteach úsáideora.

Deirim arís go bhfaighidh tú na nithe seo a leanas gan cearta riaracháin:

Ach le haghaidh réamhdhífhabhtaithe an chláir a bheidh faoi chaibidil, d’úsáid mé cuntas le cearta riarthóra.

II. Clár

Mar sin an ráiteas faidhbe: roinnt comhéadan grafach simplí a chruthú chun ceangal le scáthchiall an úsáideora lena chead, teachtaireacht a sheoladh chuig an úsáideoir. Is é Lazarus an timpeallacht ríomhchláraithe a roghnaíodh.

1. Faighimid an liosta fearainn iomlán na n-úsáideoirí “logáil isteach” - “ainm iomlán” ón riarthóir, nó arís tríd an consól:

wmic useraccount get Name,FullName 

ní choisceann éinne fiú é seo:

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

Déarfaidh mé ar an bpointe boise gurbh é Lazarus a raibh fadhb aige leis an gcomhad seo a phróiseáil, mar de réir réamhshocraithe is é UCS-2 a ionchódú, agus mar sin ní raibh orm ach é a thiontú de láimh go UTF-8 rialta. Tá go leor cluaisíní i struchtúr an chomhaid, nó go leor spásanna, a socraíodh iad a phróiseáil go ríomhchláraithe; luath nó mall déanfar an fhadhb ionchódaithe a réiteach, agus déanfar an comhad a nuashonrú go ríomhchláraithe.

Mar sin, is é an smaoineamh fillteán a bheith inrochtana d'úsáideoirí an chláir, mar shampla c:test, ina mbeidh 2 chomhad: an chéad cheann le logáil isteach agus lánainm, an dara ceann le id_rdp agus logáil isteach úsáideoirí. Ansin, déanaimid próiseáil ar na sonraí seo mar is fearr is féidir linn :).

Idir an dá linn, chun nascadh le liosta na seisiún, aistrímid an t-ábhar seo (logáil isteach agus ainm iomlán) chuig eagar:

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;

Gabh mo leithscéal as an “go leor cód”, beidh na pointí seo a leanas níos gonta.

2. Ag baint úsáide as an modh céanna ón alt roimhe seo, léimid an toradh ar phróiseáil an liosta isteach san eilimint StringGrid, agus tabharfaidh mé píosa cód “suntasach”:

2.1 Faighimid an liosta reatha de sheisiúin RDP i gcomhad:

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óiseáil an comhad (ní thugtar le fios ach línte suntasacha cód):

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. Nasc díreach é féin trí chliceáil ar an líne leis an úsáideoir agus a uimhir seisiúin:

  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. Tá cúpla maisiúchán eile déanta, mar shampla sórtáil trí chliceáil ar an gcnaipe raidió, agus teachtaireachtaí chuig an úsáideoir nó chuig gach úsáideoir.

→ Is féidir cód foinse iomlán a fheiceáil anseo

III. Ag baint úsáide as AdminLink - an méid a chonaic mé:

Gineann AdminLink aicearra a dhéanann tagairt do shuíomh an áirgiúlachta admilaunch.exe, agus cóip phearsanta den áirgiúlacht seolta AdmiRun.Exe atá suite i bhfillteán an úsáideora, mar shampla vasya, cineál C:Úsáideoirí WINDOWS. Go ginearálta, níl gach rud chomh dona: is féidir leat imirt timpeall le cearta rochtana ar an gcomhad aicearra agus daoine eile chun do choinsias riaracháin féin a ghlanadh.

Foinse: will.com