Utilitas humanae umbrae nexum non administratorem RDP user sessiones in WinServer 2012R2

Quaestio in periodo incepti quarentenam haec facta est: revera necesse est numerum visitationum officiorum minuere a peritis operandi et consulendi in programmate applicationis, et libere loquendo, utentes saepe abutuntur ope specialium sine defectu in eam intromittere. rem ipsam, inquiunt, "venturi sunt - aderunt - facient, sed fumum/potabo capulus, etc." Telephonium consultatio cum servo communicans efficacior est si remotum velum inspicias.

Post "inventionem" nostrae birotae, sanae informationes in argumento articuli versae sunt: RDS Shadow - umbra nexum ad RDP user sessiones in Fenestra Servo MMXII R2012 aut Unprivileged user umbra modus per fenestras servo aut Delegatus procuratio RDP sessionum. Earum omnes solacii usum, etiam simplicis dialogi elementa, implicant.

Omnes informationes infra destinatur illis qui alius tolerat perversiones Northmanni ad obtinendum optatum exitum inveniendi methodos necessarias.
Ut felem cauda non trahere, incipiam ab ultima: cursoriam operatur in usuario mediocris utilitatis. AdmiLinkpro quo egit auctor.

I. Consola et umbra RDP.

Quia usus est administrator iura ministri Procurator console -> QuickSessionCollection -> strepitando in sessione usurarii utentis, eligens umbram ex menu contextu contextus ad personas instruentes quomodo utendi softwarenon bene, alia methodus lignea considerabatur, nempe;

1. Find sicco RDP id sessionis;

query user | findstr Administrator

aut:

qwinsta | findstr Administrator 

Sed et "| findstr administrator"Tantum commodum erat cum scires quid exacte" Administrator opus est, vel prima tantum parte utere ut omnes initium in servo viderent.

2. Coniungere huic sessioni, dummodo in dominico coetus consilia "Sessiones remotae Desktop Services" "sessionibus usorum remotis imperiis constitue" optio eligetur cum saltem "sessionis monitoris cum permissione usoris" optio electa (magis):

mstsc /shadow:127

Quaeso nota quod indicem solum logins usorum continent.

Dico sine iure admin sequentia habebis:

Sed ad praeliminarem debugging programmatis, quod discutiendum est, rationem cum administratoribus iuribus usus sum.

II. Program

Quaestio igitur enuntiatio: creans aliquod interface graphicum simplex coniungere ad sensum umbrae usoris cum eius permissione, nuntium ad usorem mittens. Vestibulum elit Lazarus eligitur.

1. Plenum domain nomen usorum "login" - "nomen plenum" obtinemus ab administratore, vel iterum per consolatorium:

wmic useraccount get Name,FullName 

ne hoc quidem vetat;

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

Dicam statim Lazarum esse qui problema huius limae expediendi habuit, quoniam per defectionem eius descriptam est UCS-2, sic ego iustus manually eam ad regularem UTF-8. Multum tabs in structura tabellae, vel potius multa spatia, quae programmatice procedere placuit, serius vel serius problema descriptam solvetur et tabella programmatice renovabitur.

Ita, idea est habere folder pervium programmatis utentibus, exempli gratia c:test, in quo erunt 2 tabulae: prima cum nomine et nomine, altera cum id_rdp et login usorum. Deinde, ut melius possumus:).

Interim, ut cum indice sessionum adiungas, haec contenta in ordinem transfermus;

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;

Paenitemus "multum codicis", sequentia puncta brevius erunt.

2. Eadem methodo e paragrapho superiore utens, exitum album expediendi in elementum StringGrid legimus, dum partem codicis "significat" dabo;

2.1 Praesens indicem sessionum RDP in tabella accipimus:

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 Processus tabella (lineae tantum significantes codicis indicantur);

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. Ipsum nexum directum strepitando in linea cum usore et numero sessionis eius:

  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. Duo ornamenta plura facta sunt, ut strepitando in radiobutton voluptua, nuntiis ad usorem vel ad omnes utentes.

→ plena source code videri potest hic

III. Usura AdminLink - quod vidi:

AdminLink brevis quae indicat locum utilitatis generat admilaunch.exe, et exemplar personale utilitatis launch AdmiRun.Exe quae sita est in folder utentis, e.g Vasya, type C:UsersvasyaWINDOWS. In genere, non omnia mala sunt: ​​circumire potes accessu iurium ad fasciculi brevis et alios ad conscientiam tuam purgandam.

Source: www.habr.com