Uncedo lodibaniso lwesithunzi somntu ongeyena umlawuli kwiiseshoni zabasebenzisi be-RDP kwiWinServer 2012R2

Ingxaki ngexesha lokuvalelwa kweli shishini yaba yile ilandelayo: ngenene kuyimfuneko ukunciphisa inani lokutyelelwa kwee-ofisi ziingcali ezibonelela ngenkonzo kunye nokubonisana nesoftware yesicelo, kwaye ngokuthetha ngokungafihlisiyo, abasebenzisi bahlala belusebenzisa kakubi uncedo lweengcali ngaphandle kokufuna ukuphonononga. Umcimbi ngokwawo, bathi "baya kuza - baya kunceda - baya kuyenza, kodwa ndiza kutshaya / ndisele ikofu, njl. Ukubonisana ngefowuni xa wabelana ngeseva kusebenza ngakumbi ukuba ujonga isikrini esikude.

Emva "kokuveliswa" kwebhayisekile yethu, kwavela ulwazi oluphilileyo ngesihloko senqaku: I-RDS Shadow-uqhagamshelwano lwesithunzi kwiiseshoni zabasebenzisi be-RDP kwi-Windows Server 2012 R2 okanye Imowudi yesithunzi somsebenzisi ongenalungelo kwiifestile zeseva okanye Ukunikezela ngolawulo lweeseshoni zeRDP. Zonke zibandakanya ukusetyenziswa kwekhonsoli, kunye nezinto zencoko yababini elula.

Lonke ulwazi olungezantsi lwenzelwe abo bathe inyamezela ukugqwetheka okungaqhelekanga ngokuqhelekileyo ukufumana isiphumo esifunwayo, ukuyila iindlela ezingeyomfuneko.
Ukuze "ungadonsi ikati ngomsila", ndiya kuqala ngeyokugqibela: ibhayisekile isebenza kumsebenzisi oqhelekileyo usebenzisa i-utility. AdmiLink, ebulela umbhali wayo.

I. I-Console kunye ne-RDP yesithunzi.

Ukususela ekusebenziseni nge amalungelo omlawuli we-Server Manager console -> QuickSessionCollection -> ngokunqakraza kwiseshoni yomsebenzisi onomdla, ukhetha iShadow kwimenyu yomxholo. kubasebenzi abayalela indlela yokusebenzisa isoftware, ayisiyiyo inketho, enye indlela "yomthi" yaqwalaselwa, ethi:

1. Fumana isazisi seRDP seseshoni:

query user | findstr Administrator

okanye:

qwinsta | findstr Administrator 

Ngaphezu koko"| Findstr Umlawuli"Kwakulula kuphela xa ubusazi ukuba yintoni kanye kanye umlawuli udinga, okanye sebenzisa kuphela indawo yokuqala ukubona wonke umntu engenile kumncedisi.

2. Qhagamshela kule seshoni, ngaphandle kokuba ikwidomeyini iipolisi zeqela I "Cwangcisa imithetho yolawulo olukude kwiiseshoni zomsebenzisi weeNkonzo zeDesktop ekude" ukhetho lukhethiwe kunye noko "Jonga iseshoni ngemvume yomsebenzisi" ukhetho olukhethiweyo (ngaphezulu):

mstsc /shadow:127

Nceda qaphela ukuba uluhlu luya kuqulatha kuphela amagama abasebenzisi.

Ndiyaphinda ndithi ngaphandle kwamalungelo admin uya kufumana oku kulandelayo:

Kodwa ukulungiselela ukulungiswa kwangaphambili kwenkqubo eza kuxutyushwa, ndisebenzise i-akhawunti enamalungelo omlawuli.

II. Inkqubo

Ke ingxelo yengxaki: ukwenza ujongano olulula lomzobo ukuqhagamshela kwisithunzi somsebenzisi ngemvume yakhe, ukuthumela umyalezo kumsebenzisi. Indawo yenkqubo ekhethiweyo nguLazaro.

1. Sifumana uluhlu olupheleleyo lwesizinda sabasebenzisi "login" - "igama elipheleleyo" kumlawuli, okanye kwakhona nge-console:

wmic useraccount get Name,FullName 

akukho walelayo nale nto.

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

Ndizakuthi ngoko nangoko ukuba yayinguLazaro owayenengxaki yokulungisa le fayile, kuba ngokungagqibekanga ukufakwa kwekhowudi kwayo yi-UCS-2, ke kwafuneka ndiyiguqulele kwi-UTF-8. Zininzi iithebhu kulwakhiwo lwefayile, okanye endaweni yoko izithuba ezininzi, ekugqitywe kuzo ukuba ziqhutywe ngokwenkqubo; kungekudala okanye kamva ingxaki yekhowudi iya kusonjululwa, kwaye ifayile iya kuhlaziywa ngokwenkqubo.

Ngoko ke, ingcamango kukuba ifolda ifikeleleke kubasebenzisi beprogram, umzekelo c: uvavanyo, apho kuya kubakho iifayile ezi-2: eyokuqala ngokungena kunye negama elipheleleyo, okwesibini kunye ne-id_rdp kunye nokungena kwabasebenzisi. Okulandelayo, siqhuba le datha kangangoko sinako :).

Okwangoku, ukudibanisa noluhlu lweseshini, sidlulisela oku (ukungena kunye negama elipheleleyo) imixholo kuluhlu:

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;

Ndiyaxolisa "ngekhowudi eninzi", la manqaku alandelayo aya kuba mafutshane.

2. Ukusebenzisa indlela efanayo kumhlathi odlulileyo, sifunda umphumo wokucubungula uluhlu kwizinto ze-StringGrid, ngelixa ndiza kunika ikhowudi "ebalulekileyo":

2.1 Sifumana uluhlu lwangoku lweeseshoni zeRDP kwifayile:

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 Yenza ifayile (kuphela imigca ebalulekileyo yekhowudi ebonisiwe):

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. Uqhagamshelo oluthe ngqo ngokwalo ngokucofa umgca kunye nomsebenzisi kunye nenombolo yakhe yeseshoni:

  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. Kuye kwenziwa imihombiso emininzi, njengokuhlela ngokucofa iqhosha lerediyo, kunye nemiyalezo eya kumsebenzisi okanye bonke abasebenzisi.

→ Ikhowudi yemvelaphi epheleleyo inokubonwa apha

III. Ukusebenzisa i-AdminLink- into endiyibonileyo:

I-AdminLink ivelisa indlela emfutshane ebonisa indawo yoncedo admilaunch.exe, kunye nekopi yobuqu yesixhobo sokuphehlelelwa AdmiRun.Exe ebekwe kulawulo lomsebenzisi, umzekelo Vasya, uhlobo C:AbasebenzisivasyaWINDOWS. Ngokubanzi, ayisiyiyo yonke into embi kakhulu: ungadlala ngamalungelo okufikelela kwifayile emfutshane kunye nabanye ukucima isazela sakho somlawuli.

umthombo: www.habr.com