WinServer 2012R2-n administratzaileak ez diren RDP erabiltzaileen saioetarako giza itzala konektatzeko utilitatea

Enpresaren berrogeialdi garaian arazoa honako hau bihurtu zen: benetan beharrezkoa da aplikazio-softwarean zerbitzua ematen eta kontsultatzen duten espezialisten bulegoetara bisita kopurua murriztea, eta egia esanda, erabiltzaileek askotan espezialisten laguntzaz abusatzen dute sakondu nahi izan gabe. gaia bera, "etorri egingo dira - lagunduko dute - egingo dute, baina kafea erre/edango dut, etab". Zerbitzari bat partekatzean telefono bidezko kontsulta eraginkorragoa da urruneko pantaila ikusten baduzu.

Gure bizikletaren "asmakuntza" ondoren, artikuluaren gaiari buruzko informazio sanoa agertu zen: RDS Shadow - itzal konexioa RDP erabiltzaileen saioetarako Windows Server 2012 R2-n edo Pribilegiorik gabeko erabiltzaileen itzal modua windows zerbitzarian edo RDP saioen kudeaketa eskuordetzea. Horiek guztiek kontsola baten erabilera dakar, baita elkarrizketa soil bateko elementuekin ere.

Beheko informazio guztia dutenei zuzenduta dago perbertsio anormalak normaltasunez onartzen ditu nahi den emaitza lortzeko, beharrezkoak ez diren metodoak asmatuz.
"Katuari buztanetik tira" ez egiteko, azken honekin hasiko naiz: bizikletak erabilgarritasuna erabiltzen duen erabiltzaile arruntarentzat funtzionatzen du. AdmiLink, horregatik bere egileari eskerrak.

I. Kontsola eta itzaleko RDP.

-rekin erabiltzen denetik Server Manager kontsolaren administratzaile-eskubideak -> QuickSessionCollection -> interesa duen erabiltzailearen saioan klik eginez, laster-menuan Itzala hautatuz softwarea nola erabili irakasten duten langileentzat, ez da aukera bat, beste "egurrezko" metodo bat hartu zen kontuan, hau da:

1. Ezagutu saioaren RDP IDa:

query user | findstr Administrator

edo:

qwinsta | findstr Administrator 

Gainera "| findstr Administratzailea"Zer zehatz zekienean bakarrik erosoa zen administrator behar duzu, edo erabili lehen zatia bakarrik zerbitzarian saioa hasita dauden guztiak ikusteko.

2. Konektatu saio honetara, betiere domeinuan talde politikak "Konfiguratu urruneko kontrol-arauak Urruneko Mahaigaineko Zerbitzuen erabiltzaile-saioetarako" aukera hautatzen da gutxienez "Begiratu saioa erabiltzailearen baimenarekin" aukera hautatuta (gehiago):

mstsc /shadow:127

Kontuan izan zerrendak erabiltzaileen saioak soilik izango dituela.

Errepikatzen dut administratzaile eskubiderik gabe honako hau lortuko duzula:

Baina eztabaidatuko den programaren aurretiazko arazketa egiteko, administratzaile-eskubideak dituen kontu bat erabili dut.

II. Programa

Beraz, arazoaren adierazpena: interfaze grafiko sinple bat sortzea erabiltzailearen baimenarekin erabiltzailearen itzal-zentzura konektatzeko, erabiltzaileari mezu bat bidaliz. Aukeratutako programazio ingurunea Lazaro da.

1. Erabiltzaileen "saioa" - "izen osoa" domeinu-zerrenda osoa jasotzen dugu administratzailearengandik, edo berriro kontsolaren bidez:

wmic useraccount get Name,FullName 

inork ez du debekatzen hau ere:

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

Berehala esango dut Lazaro izan zela fitxategi hau prozesatzeko arazoa izan zuena, bere kodifikazioa UCS-2 delako lehenespenez, beraz, eskuz UTF-8 arrunt bihurtu behar izan nuen. Fitxategien egituran fitxa asko daude, edo hobeto esanda, programazioz prozesatzea erabaki zen espazio asko; lehenago edo beranduago kodeketa arazoa konponduko da, eta fitxategia programatikoki eguneratuko da.

Beraz, programaren erabiltzaileentzat eskuragarri dagoen karpeta bat izatea da asmoa, adibidez c:test, eta bertan 2 fitxategi egongo dira: lehenengoa login eta fullnamerekin, bigarrena id_rdp eta erabiltzaileen loginarekin. Ondoren, datu hauek ahalik eta ondoen prozesatzen ditugu :).

Bitartean, saioen zerrendarekin lotzeko, eduki hau (saioa eta izen-abizenak) array batera transferitzen dugu:

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;

Barkatu "kode askogatik", hurrengo puntuak zehatzagoak izango dira.

2. Aurreko paragrafoko metodo bera erabiliz, zerrenda prozesatzearen emaitza StringGrid elementuan irakurriko dugu, kode zati "esanguratsu" bat emango dudan bitartean:

2.1 RDP saioen uneko zerrenda fitxategi batean jasoko dugu:

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 Fitxategia prozesatu (kode-lerro esanguratsuak soilik adierazten dira):

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. Zuzeneko konexioa bera erabiltzailearekin eta bere saioaren zenbakia duen lerroan klik eginez:

  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. Apaingarri pare bat gehiago egin dira, hala nola, irrati-botoian klik eginez ordenatzea eta erabiltzaileari edo erabiltzaile guztiei mezuak.

→ Iturburu-kode osoa ikus daiteke Hemen

III. AdminLink erabiliz - zer ikusi nuen:

AdminLink-ek erabilgarritasunaren kokapenari erreferentzia egiten dion lasterbide bat sortzen du admilaunch.exe, eta abiarazteko utilitatearen kopia pertsonala AdmiRun.Exe erabiltzailearen karpetan dagoena, adibidez Vasia, idatzi C: UsersvasyaWINDOWS. Oro har, dena ez da hain txarra: lasterbideen fitxategirako sarbide-eskubideekin eta besteekin jolastu dezakezu zure administratzailearen kontzientzia garbitzeko.

Iturria: www.habr.com