WinServer 2012R2 рдореЗрдВ RDP рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рд╕рддреНрд░реЛрдВ рдореЗрдВ рдЧреИрд░-рд╡реНрдпрд╡рд╕реНрдерд╛рдкрдХ рдХреЛ рдЬреЛрдбрд╝рдиреЗ рд╡рд╛рд▓реА рдорд╛рдирд╡ рдЫрд╛рдпрд╛ рдХреЗ рд▓рд┐рдП рдЙрдкрдпреЛрдЧрд┐рддрд╛

рдПрдВрдЯрд░рдкреНрд░рд╛рдЗрдЬрд╝ рдХреА рд╕рдВрдЧрд░реЛрдз рдЕрд╡рдзрд┐ рдХреЗ рджреМрд░рд╛рди рд╕рдорд╕реНрдпрд╛ рдЗрд╕ рдкреНрд░рдХрд╛рд░ рдереА: рдпрд╣ рдЖрд╡рд╢реНрдпрдХ рд╣реИ рдХрд┐ рд╡рд┐рд╢реЗрд╖рдЬреНрдЮреЛрдВ рдХреА рдХреИрдмрд┐рдиреЗрдЯ рдпрд╛рддреНрд░рд╛рдУрдВ рдХреА рд╕рдВрдЦреНрдпрд╛ рдХреЛ рдХрдо рд╕реЗ рдХрдо рдХрд┐рдпрд╛ рдЬрд╛рдП, рдЬреЛ рдЖрд╡реЗрджрди рд╕реЙрдлреНрдЯрд╡реЗрдпрд░ рдкрд░ рд╕реЗрд╡рд╛ рдФрд░ рд╕рд▓рд╛рд╣ рджреЗрддреЗ рд╣реИрдВ, рдФрд░ рд╕реНрдкрд╖реНрдЯ рд░реВрдк рд╕реЗ, рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдЕрдХреНрд╕рд░ рд╡рд┐рд╢реЗрд╖рдЬреНрдЮреЛрдВ рдХреА рдорджрдж рдХрд╛ рджреБрд░реБрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВ, рдЦреБрдж рд╣реА рд╕рд╡рд╛рд▓ рдкреВрдЫрдирд╛ рдирд╣реАрдВ рдЪрд╛рд╣рддреЗ рд╣реИрдВ, "рд╡реЗ рдЖрдПрдВрдЧреЗ - рд╡реЗ рдорджрдж рдХрд░реЗрдВрдЧреЗ, рд╡реЗ рдЗрд╕реЗ рдХрд░реЗрдВрдЧреЗ, рдФрд░, рдФрд░ рдЬрдмрдХрд┐ рдореИрдВ рдзреВрдореНрд░рдкрд╛рди / рдХреЙрдлреА рдкреАрддрд╛ рд╣реВрдВ, рдЖрджрд┐ " рд░рд┐рдореЛрдЯ рд╕реНрдХреНрд░реАрди рдХреЛ рджреЗрдЦрддреЗ рд╕рдордп рд╕рд░реНрд╡рд░ рд╕рд╛рдЭрд╛ рдХрд░рдирд╛ рдлреЛрди рд╕реЗ рдкрд░рд╛рдорд░реНрд╢ рдХрд░рдирд╛ рдЕрдзрд┐рдХ рдкреНрд░рднрд╛рд╡реА рд╣реЛрддрд╛ рд╣реИред



рдкрд╣рд▓реЗ рд╕реЗ рд╣реА рд╣рдорд╛рд░реА рдмрд╛рдЗрдХ рдХреЗ "рдЖрд╡рд┐рд╖реНрдХрд╛рд░" рдХреЗ рдмрд╛рдж, рд▓реЗрдЦ рдХреЗ рд╡рд┐рд╖рдп рдкрд░ рд╕рдордЭрджрд╛рд░ рдЬрд╛рдирдХрд╛рд░реА рд╕рд╛рдордиреЗ рдЖрдИ: RDS рдЫрд╛рдпрд╛ - Windows Server 2012 R2 рдореЗрдВ RDP рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рд╕рддреНрд░реЛрдВ рдХреЗ рд▓рд┐рдП рдЫрд╛рдпрд╛ рдХрдиреЗрдХреНрд╢рди рдпрд╛ рд╡рд┐рдВрдбреЛрдЬрд╝ рд╕рд░реНрд╡рд░ рдореЗрдВ рдПрдХ рдЕрдкреНрд░рдХрд╛рд╢рд┐рдд рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреА рдЫрд╛рдпрд╛ рдореЛрдб рдпрд╛ RDP рд╕рддреНрд░реЛрдВ рдХреЗ рдкреНрд░рдмрдВрдзрди рдХрд╛ рд╡рд┐рд╡рд░рдг ред рд╡реЗ рд╕рднреА рдПрдХ рд╕рд╛рдзрд╛рд░рдг рд╕рдВрд╡рд╛рдж рдХреЗ рддрддреНрд╡реЛрдВ рдХреЗ рд╕рд╛рде, рдПрдХ рдХрдВрд╕реЛрд▓ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реИрдВред

рдиреАрдЪреЗ рджреА рдЧрдИ рд╕рднреА рдЬрд╛рдирдХрд╛рд░реА рдЙрди рд▓реЛрдЧреЛрдВ рдХреЗ рд▓рд┐рдП рд╣реИ рдЬреЛ рд╕рд╛рдорд╛рдиреНрдп рддрд░реАрдХреЗ рд╕реЗ рд╡рд╛рдВрдЫрд┐рдд рдкрд░рд┐рдгрд╛рдо рдкреНрд░рд╛рдкреНрдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдЕрд╕рд╛рдорд╛рдиреНрдп рд╡рд┐рдХреГрддрд┐рдпреЛрдВ рдХреЛ рд╕рд╣рди рдХрд░рддреЗ рд╣реИрдВ, рдЕрдирд╛рд╡рд╢реНрдпрдХ рддрд░реАрдХреЛрдВ рдХрд╛ рдЖрд╡рд┐рд╖реНрдХрд╛рд░ рдХрд░рддреЗ рд╣реИрдВред
"рдкреВрдВрдЫ рджреНрд╡рд╛рд░рд╛ рдмрд┐рд▓реНрд▓реА рдХреЛ рдЦреАрдВрдЪрдиреЗ рдХреЗ рд▓рд┐рдП рдирд╣реАрдВ" рдХреЗ рдХреНрд░рдо рдореЗрдВ, рдореИрдВ рдкрд┐рдЫрд▓реЗ рдПрдХ рдХреЗ рд╕рд╛рде рд╢реБрд░реВ рдХрд░реВрдБрдЧрд╛: рдмрд╛рдЗрдХ AdmiLink рдЙрдкрдпреЛрдЧрд┐рддрд╛ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рддреЗ рд╣реБрдП рдФрд╕рдд рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреЗ рд▓рд┐рдП рдХрд╛рдо рдХрд░рддреА рд╣реИ , рдЬрд┐рд╕рдХреЗ рд▓рд┐рдП рдореИрдВ рдЗрд╕рдХреЗ рд▓реЗрдЦрдХ рдХреЛ рдзрдиреНрдпрд╡рд╛рдж рджреЗрддрд╛ рд╣реВрдВред

I. рдХрдВрд╕реЛрд▓ рдФрд░ рдЫрд╛рдпрд╛ рдЖрд░рдбреАрдкреАред

рдЪреВрдВрдХрд┐ рд╡реНрдпрд╡рд╕реНрдерд╛рдкрдХ рдЕрдзрд┐рдХрд╛рд░реЛрдВ рдХреЗ рд╕рд╛рде рд╕рд░реНрд╡рд░ рдкреНрд░рдмрдВрдзрдХ рдХрдВрд╕реЛрд▓ рдХрд╛ рдЙрдкрдпреЛрдЧ -> рдХреНрд╡рд┐рдХрд╕реЗрд╢рдирдХреЙрд▓рдХреНрд╢рди -> рд░реБрдЪрд┐ рдХреЗ рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреЗ рд╕рддреНрд░ рдкрд░ рдХреНрд▓рд┐рдХ рдХрд░рдХреЗ , рд╕реЙрдлреНрдЯрд╡реЗрдпрд░ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдиреЗ рдХреЗ рдирд┐рд░реНрджреЗрд╢ рджреЗрдиреЗ рд╡рд╛рд▓реЗ рдХрд░реНрдордЪрд╛рд░рд┐рдпреЛрдВ рдХреЗ рд▓рд┐рдП рд╕рдВрджрд░реНрдн рдореЗрдиреВ рд╕реЗ рдЫрд╛рдпрд╛ рдХрд╛ рдЪрдпрди рдХрд░рдирд╛ рдПрдХ рд╡рд┐рдХрд▓реНрдк рдирд╣реАрдВ рд╣реИ, рдПрдХ рдФрд░ "рд▓рдХрдбрд╝реА" рд╡рд┐рдзрд┐ рдкрд░ рд╡рд┐рдЪрд╛рд░ рдХрд┐рдпрд╛ рдЧрдпрд╛ рдерд╛, рдЕрд░реНрдерд╛рддреН:

рд╣рдо RDP рд╕рддреНрд░ рдЖрдИрдбреА рд╕реАрдЦрддреЗ рд╣реИрдВ:

query user | findstr Administrator

рдпрд╛:

qwinsta | findstr Administrator 

рдЗрд╕рдХреЗ рдЕрд▓рд╛рд╡рд╛, " рдЦреЛрдЬрдХрд░реНрддрд╛ рдкреНрд░рд╢рд╛рд╕рдХ " рдХреЗрд╡рд▓ рддрднреА рд╕реБрд╡рд┐рдзрд╛рдЬрдирдХ рдерд╛ рдЬрдм рдЖрдкрдХреЛ рдкрддрд╛ рд╣реЛ рдХрд┐ рдЖрдкрдХреЛ рдкреНрд░рд╢рд╛рд╕рдХ рдХреА рдХреНрдпрд╛ рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ, рдпрд╛ рд╕рд░реНрд╡рд░ рдкрд░ рд▓реЙрдЧ рдЗрди рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХреЗрд╡рд▓ рдкрд╣рд▓реЗ рднрд╛рдЧ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░реЗрдВред



2. рд╣рдо рдЗрд╕ рд╕рддреНрд░ рд╕реЗ рдЬреБрдбрд╝реЗ рд╣реИрдВ, рдмрд╢рд░реНрддреЗ рдХрд┐ рдбреЛрдореЗрди рд╕рдореВрд╣ рдиреАрддрд┐рдпреЛрдВ рдореЗрдВ рдкреИрд░рд╛рдореАрдЯрд░ "рджреВрд░рд╕реНрде рдбреЗрд╕реНрдХрдЯреЙрдк рд╕реЗрд╡рд╛рдУрдВ рдХреЗ рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рд╕рддреНрд░реЛрдВ рдХреЗ рд▓рд┐рдП рд░рд┐рдореЛрдЯ рдХрдВрдЯреНрд░реЛрд▓ рдирд┐рдпрдо рд╕реЗрдЯ рдХрд░рддрд╛ рд╣реИ" рдХреЛ рдХрдо рд╕реЗ рдХрдо "рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреА рдЕрдиреБрдорддрд┐ рдХреЗ рд╕рд╛рде рд╕рддреНрд░ рдХреА рдирд┐рдЧрд░рд╛рдиреА" ( рдЕрдзрд┐рдХ ) рдЪреБрдирд╛ рдЬрд╛рддрд╛ рд╣реИ:

mstsc /shadow:127

рдХреГрдкрдпрд╛ рдзреНрдпрд╛рди рджреЗрдВ рдХрд┐ рд╕реВрдЪреА рдореЗрдВ рдХреЗрд╡рд▓ рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рд▓реЙрдЧрд┐рди рд╣реЛрдВрдЧреЗред

рдореИрдВ рджреЛрд╣рд░рд╛рддрд╛ рд╣реВрдВ рдХрд┐ рд╡реНрдпрд╡рд╕реНрдерд╛рдкрдХ рдЕрдзрд┐рдХрд╛рд░реЛрдВ рдХреЗ рдмрд┐рдирд╛ рдЖрдк рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдкреНрд░рд╛рдкреНрдд рдХрд░реЗрдВрдЧреЗ:



рд▓реЗрдХрд┐рди рдЙрд╕ рдХрд╛рд░реНрдпрдХреНрд░рдо рдХреА рдкреНрд░рд╛рд░рдВрднрд┐рдХ рдбрд┐рдмрдЧрд┐рдВрдЧ рдХреЗ рд▓рд┐рдП рдЬрд┐рд╕ рдкрд░ рдЪрд░реНрдЪрд╛ рдХреА рдЬрд╛рдПрдЧреА, рдореИрдВрдиреЗ рд╡реНрдпрд╡рд╕реНрдерд╛рдкрдХ рдЕрдзрд┐рдХрд╛рд░реЛрдВ рдХреЗ рд╕рд╛рде рдПрдХ рдЦрд╛рддреЗ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд┐рдпрд╛ред

рджреНрд╡рд┐рддреАрдпред рдХрд╛рд░реНрдпрдХреНрд░рдо

рддреЛ рд╕рдорд╕реНрдпрд╛ рдХрд╛ рдХрдерди: рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреЛ рд╕рдВрджреЗрд╢ рднреЗрдЬрдиреЗ рдХреЗ рд▓рд┐рдП рдЙрд╕рдХреА рдЕрдиреБрдорддрд┐ рдХреЗ рд╕рд╛рде рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреА рдЫрд╛рдпрд╛ рднрд╛рд╡рдирд╛ рд╕реЗ рдЬреБрдбрд╝рдиреЗ рдХреЗ рд▓рд┐рдП рдПрдХ рд╕рд╛рдзрд╛рд░рдг рдЬреАрдпреВрдЖрдИ рдХрд╛ рдирд┐рд░реНрдорд╛рдгред рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рд╡рд╛рддрд╛рд╡рд░рдг рдХреЛ рд▓рд╛рдЬрд░ рджреНрд╡рд╛рд░рд╛ рдЪреБрдирд╛ рдЧрдпрд╛ рд╣реИред

1. рд╣рдореЗрдВ рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛рдУрдВ рдХреА рдкреВрд░реНрдг рдбреЛрдореЗрди рд╕реВрдЪреА рдорд┐рд▓рддреА рд╣реИ "рд▓реЙрдЧрд┐рди" - рд╡реНрдпрд╡рд╕реНрдерд╛рдкрдХ рд╕реЗ "рдкреВрд░реНрдг рдирд╛рдо", рдпрд╛ рдлрд┐рд░ рдХрдВрд╕реЛрд▓ рдХреЗ рдорд╛рдзреНрдпрдо рд╕реЗ:

wmic useraccount get Name,FullName 

рдХреЛрдИ рднреА рдЗрд╕реЗ рдордирд╛ рдирд╣реАрдВ рдХрд░рддрд╛ рд╣реИ:

wmic useraccount get Name,FullName > c:\test\username.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 рд╣рдореЗрдВ рдПрдХ рдлрд╛рдЗрд▓ рдореЗрдВ рдЖрд░рдбреАрдкреА рд╕рддреНрд░реЛрдВ рдХреА рд╡рд╛рд╕реНрддрд╡рд┐рдХ рд╕реВрдЪреА рдорд┐рд▓рддреА рд╣реИ:

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 рд╡рд╛рд╕реНрддрд╡ рдореЗрдВ рдПрдХ рд╢реЙрд░реНрдЯрдХрдЯ рдЙрддреНрдкрдиреНрди рдХрд░рддрд╛ рд╣реИ, рдЬреЛ adilaRunред рдЙрдкрдпреЛрдЧрд┐рддрд╛ рдХреЗ рд╕реНрдерд╛рди рдФрд░ рдЙрдкрдпреЛрдЧрдХрд░реНрддрд╛ рдХреЗ рдлрд╝реЛрд▓реНрдбрд░ рдореЗрдВ рд╕реНрдерд┐рдд AdmiRun.Exe рд▓реЙрдиреНрдЪрд░ рдХреА рдПрдХ рд╡реНрдпрдХреНрддрд┐рдЧрдд рдкреНрд░рддрд┐рд▓рд┐рдкрд┐ рдХреЛ рд╕рдВрджрд░реНрднрд┐рдд рдХрд░рддрд╛ рд╣реИ , рдЙрджрд╛рд╣рд░рдг рдХреЗ рд▓рд┐рдП, vasya , рдЬреИрд╕реЗ C: \ Users \ vasya \ WINDOWS \ _ ред рд╕рд╛рдорд╛рдиреНрдп рддреМрд░ рдкрд░, рд╕рдм рдХреБрдЫ рдЗрддрдирд╛ рдмреБрд░рд╛ рдирд╣реАрдВ рд╣реИ: рдЖрдк рдЕрдкрдиреЗ рд╕реНрд╡рдпрдВ рдХреЗ рд╡реНрдпрд╡рд╕реНрдерд╛рдкрдХ рд╡рд┐рд╡реЗрдХ рдХреЛ рдЦрд╛рд▓реА рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╢реЙрд░реНрдЯрдХрдЯ рдлрд╝рд╛рдЗрд▓ рдФрд░ рджреВрд╕рд░реЛрдВ рдХреЗ рдПрдХреНрд╕реЗрд╕ рдЕрдзрд┐рдХрд╛рд░реЛрдВ рдХреЗ рд╕рд╛рде рдЦреЗрд▓ рд╕рдХрддреЗ рд╣реИрдВред

All Articles