WinServer 2012R2 मधील RDP वापरकर्ता सत्रांशी गैर-प्रशासकाच्या मानवी छाया कनेक्शनसाठी उपयुक्तता

एंटरप्राइझच्या अलग ठेवण्याच्या कालावधीत समस्या खालीलप्रमाणे बनली: अॅप्लिकेशन सॉफ्टवेअरची सेवा आणि सल्लामसलत करणार्या तज्ञांच्या कार्यालयांना भेटींची संख्या कमी करणे खरोखर आवश्यक आहे आणि स्पष्टपणे सांगायचे तर, वापरकर्ते अनेकदा तज्ञांच्या मदतीचा गैरवापर करतात. समस्या स्वतःच, ते म्हणतात "ते येतील - ते मदत करतील - ते करतील, पण मी धूम्रपान/कॉफी पिईन इ." आपण रिमोट स्क्रीन पाहिल्यास सर्व्हर सामायिक करताना टेलिफोन सल्ला अधिक प्रभावी आहे.

आमच्या सायकलच्या "शोधा" नंतर, लेखाच्या विषयावरील समजूतदार माहिती पुढे आली: RDS सावली – Windows Server 2012 R2 मधील RDP वापरकर्ता सत्रांसाठी छाया कनेक्शन किंवा विंडोज सर्व्हरमध्ये अनप्रिव्हिलेज्ड युजर शॅडो मोड किंवा RDP सत्रांचे व्यवस्थापन नियुक्त करणे. त्या सर्वांमध्ये कन्सोलचा वापर समाविष्ट आहे, अगदी साध्या संवादाच्या घटकांसह.

खालील सर्व माहिती ज्यांच्यासाठी आहे सामान्यपणे असामान्य विकृती सहन करते इच्छित परिणाम मिळविण्यासाठी, अनावश्यक पद्धती शोधून काढणे.
"मांजरीला शेपटीने खेचू नये" म्हणून, मी शेवटच्यापासून सुरुवात करेन: बाईक युटिलिटी वापरून सरासरी वापरकर्त्यासाठी कार्य करते AdmiLink, ज्यासाठी त्याच्या लेखकाचे आभार.

I. कन्सोल आणि सावली RDP.

सह वापरल्यापासून सर्व्हर मॅनेजर कन्सोलचे प्रशासक अधिकार -> QuickSessionCollection -> आवडीच्या वापरकर्त्याच्या सत्रावर क्लिक करून, संदर्भ मेनूमधून सावली निवडून सॉफ्टवेअर कसे वापरावे याचे निर्देश देणाऱ्या कर्मचाऱ्यांसाठी, हा पर्याय नाही, दुसरी "लाकडी" पद्धत मानली गेली, म्हणजे:

1. सत्राचा RDP आयडी शोधा:

query user | findstr Administrator

किंवा:

qwinsta | findstr Administrator 

शिवाय "| Findstr प्रशासक"जेव्हा तुम्हाला नक्की काय माहित असेल तेव्हाच ते सोयीचे होते प्रशासक तुम्हाला आवश्यक आहे, किंवा सर्व्हरवर लॉग इन केलेले प्रत्येकजण पाहण्यासाठी फक्त पहिला भाग वापरा.

2. डोमेनमध्ये प्रदान केलेल्या या सत्राशी कनेक्ट व्हा गट धोरणे "वापरकर्ता रिमोट डेस्कटॉप सर्व्हिसेस सत्रांसाठी रिमोट कंट्रोल नियम सेट करा" पर्याय निवडला आहे, किमान "वापरकर्ता परवानगीसह मॉनिटर सत्र" पर्याय निवडला आहे (अधिक):

mstsc /shadow:127

कृपया लक्षात घ्या की सूचीमध्ये फक्त वापरकर्ता लॉगिन असतील.

मी पुन्हा सांगतो की प्रशासक अधिकारांशिवाय तुम्हाला पुढील गोष्टी मिळतील:

परंतु ज्या प्रोग्रामवर चर्चा केली जाईल त्याच्या प्राथमिक डीबगिंगसाठी, मी प्रशासक अधिकारांसह खाते वापरले.

II. कार्यक्रम

तर प्रॉब्लेम स्टेटमेंट: वापरकर्त्याच्या सावलीच्या सेन्सला त्याच्या परवानगीने जोडण्यासाठी काही साधे ग्राफिकल इंटरफेस तयार करणे, वापरकर्त्याला संदेश पाठवणे. निवडलेले प्रोग्रामिंग वातावरण लाजर आहे.

1. आम्हाला प्रशासकाकडून किंवा पुन्हा कन्सोलद्वारे "लॉगिन" - "पूर्ण नाव" वापरकर्त्यांची संपूर्ण डोमेन सूची मिळते:

wmic useraccount get Name,FullName 

कोणीही याला मनाई करत नाही:

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

मी लगेच म्हणेन की या फाईलवर प्रक्रिया करण्यात लाझारसला समस्या आली होती, कारण डीफॉल्टनुसार त्याचे एन्कोडिंग UCS-2 आहे, म्हणून मला ते मॅन्युअली नियमित UTF-8 मध्ये रूपांतरित करावे लागले. फाइल स्ट्रक्चरमध्ये बरेच टॅब आहेत किंवा त्याऐवजी बर्‍याच जागा आहेत, ज्यावर प्रोग्रामॅटिक पद्धतीने प्रक्रिया करण्याचा निर्णय घेण्यात आला आहे; लवकरच किंवा नंतर एन्कोडिंगची समस्या सोडवली जाईल आणि फाइल प्रोग्रामॅटिकरित्या अद्यतनित केली जाईल.

म्हणून, प्रोग्रामच्या वापरकर्त्यांसाठी एक फोल्डर प्रवेशयोग्य असण्याची कल्पना आहे, उदाहरणार्थ c:test, ज्यामध्ये 2 फाइल्स असतील: प्रथम लॉगिन आणि पूर्णनावासह, दुसरी id_rdp आणि वापरकर्त्यांच्या लॉगिनसह. पुढे, आम्ही शक्य तितक्या सर्वोत्तम डेटावर प्रक्रिया करतो :).

यादरम्यान, सत्रांच्या सूचीशी संबद्ध करण्यासाठी, आम्ही ही (लॉगिन आणि पूर्णनाव) सामग्री एका अॅरेमध्ये हस्तांतरित करतो:

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;

मी "बऱ्याच कोड" साठी दिलगीर आहोत, खालील मुद्दे अधिक संक्षिप्त असतील.

2. मागील परिच्छेदातील समान पद्धत वापरून, आम्ही स्ट्रिंगग्रिड घटकामध्ये सूचीवर प्रक्रिया करण्याचा परिणाम वाचतो, तर मी कोडचा एक "महत्त्वपूर्ण" भाग देईन:

2.1 आम्हाला एका फाईलमध्ये RDP सत्रांची वर्तमान सूची प्राप्त होते:

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 फाइलवर प्रक्रिया करा (कोडच्या फक्त महत्त्वाच्या ओळी सूचित केल्या आहेत):

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. वापरकर्ता आणि त्याच्या सत्र क्रमांकासह लाइनवर क्लिक करून थेट कनेक्शन स्वतः:

  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. आणखी काही सजावट केल्या आहेत, जसे की रेडिओ बटणावर क्लिक करून क्रमवारी लावणे आणि वापरकर्त्याला किंवा सर्व वापरकर्त्यांना संदेश.

→ संपूर्ण स्त्रोत कोड पाहिला जाऊ शकतो येथे

III. AdminLink वापरणे - मी काय पाहिले:

AdminLink एक शॉर्टकट व्युत्पन्न करते जे युटिलिटीच्या स्थानाचा संदर्भ देते admilaunch.exe, आणि लॉन्च युटिलिटीची वैयक्तिक प्रत AdmiRun.Exe जे वापरकर्त्याच्या फोल्डरमध्ये स्थित आहे, उदाहरणार्थ वास्या, प्रकार C:UsersvasyaWINDOWS. सर्वसाधारणपणे, सर्व काही इतके वाईट नसते: तुमचा स्वतःचा प्रशासक विवेक साफ करण्यासाठी तुम्ही शॉर्टकट फाइल आणि इतरांच्या प्रवेश अधिकारांसह खेळू शकता.

स्त्रोत: www.habr.com