[Petya V4sechkin]

volk1234, а есть ли смысл?
Можно просто обе команды выполнить:

Код:

net localgroup Администраторы /add USER
net localgroup Administrators /add USER

и не напрягаться с выяснением.

Есть ли способ получить в переменную название группы Администраторы.

Встроенная группа Администраторы всегда имеет SID = S-1-5-32-544 (KB243330), получить имя по SID можно командой:

Код:

WMIC Group Where "SID = 'S-1-5-32-544'" Get Name

или с помощью PsGetSid.

Пример:

Код:

Set AdmGroupSID=S-1-5-32-544
Set AdmGroup=
ChCP 1251 >nul
For /F "Tokens=1* Delims=: " %%I In ('PsGetSid %AdmGroupSID% 2^>nul ^| Find /I "Alias:"') Do Set AdmGroup=%%J
ChCP 866 >nul
Set AdmGroup=%AdmGroup:~8%

или так:

Код:

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%

В переменной AdmGroup имя группы.

[volk1234]

Мда. Все не так страшно как выглядит в коде

volk1234, а есть ли смысл?

ну хотябы, чтобы не копатся выясняя - а не переименована ли группа Администраторы ...
Плюс, автоматически можно переименовать локальную учетку Администратор, и понизить ее до Пользователя.
Есть несколько организаций по 10 комп. в каждой, с обыной рабочей группой и зверинцем из программ на каждом рабочем месте.
Надо все это почистить, вот планирую ...

[Petya V4sechkin]

Плюс, автоматически можно переименовать локальную учетку Администратор

Тут запрос немного другой: у встроенного админа RID = 500 (окончание SID), поэтому:

Код:

Set AdmAccountRID=500
Set NewAdmin=Adminn
WMIC UserAccount Where "LocalAccount = True And SID Like 'S-1-5-%%-%AdmAccountRID%'" Call Rename Name = "%NewAdmin%"

[volk1234]

Многоуважаемый Petya V4sechkin!

Остался у меня последний вопрос. Как получить в переменную и понизить в правах УЗ Администратор
то есть в итоге

Код:

net  localgroup %AdmGroup% %AdmName% /delete
 net  localgroup %UserGroup% %AdmName% /add
*все переменные надо получать

чесно пытался почитать справку по коммандной строке wmic - страшное дело

еще конечно хотелось бы следующего:
определения всех УЗ с правами администратора.
ситуация самая обычная - компьютер на нем установлена WinXP с 2 УЗ: Администратор и Коля (с правами админа)
Необходимо это исправить, так как домена нету - исправить ручками или атоматизированно:
Админ запись Коля понизить до пользователя, Администратора понизить до пользователя. и так далее если админов больше....

[Petya V4sechkin]

Как получить в переменную

Вы же переименовали админа, поэтому должны знать новое имя (в 4-м посту переменная NewAdmin).

понизить в правах УЗ Администратор

Зачем? Не надо этого делать.
Просто задайте нормальный пароль.

Админ запись Коля понизить до пользователя, Администратора понизить до пользователя. и так далее если админов больше

Если переменная AdmGroup вычислена, а админ переименован (переменная NewAdmin), то список членов группы Администраторы (за исключением встроенного):

Код:

For /F "Delims=" %%I In ('Net LocalGroup "%AdmGroup%"') Do Set Last=%%I
For /F "Skip=6 Delims=" %%I In ('Net LocalGroup "%AdmGroup%"') Do (
  If "%%I" Neq "%Last%" (
    If "%%I" Neq "%NewAdmin%" (
      Echo %%I
    )
  )
)

Вместо команды Echo %%I подставить желаемое (добавление в группу, удаление из группы).

P. S. Завтра еще проверю формат вывода Net LocalGroup на разных ОС.

[volk1234]

Как раз таки результат и встроенного админа выдает.

читать дальше »

Код:

Echo off
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%

For /F "Delims=" %%I In ('Net localgroup "%AdmGroup%"') Do Set Last=%%I
For /F "Skip=6 Delims=" %%I In ('Net LocalGroup "%AdmGroup%"') Do (
  If "%%I" Neq "%Last%" (
    If "%%I" Neq "%NewAdmin%" (
      Echo %%I
    )
  )
)
pause

Я тут псевдокодом напишу дальнейшее применение:


тоесть если я дальше применю вместо Echo %%I

Код:

......
...Set %admname(счетчик)%=%%I
         )
   )
)

Код:

For ( 
net localgroup %UserGroup%  %admname(счетчик)% /add
net localgroup %AdmGroup%  %admname(счетчик)% /delete
)

[Petya V4sechkin]

Как раз таки результат и встроенного админа выдает. »

В вашем батнике не определена переменная NewAdmin.
И нет переименования:

автоматически можно переименовать локальную учетку Администратор »

Set %admname(счетчик)%=%%I »

А это зачем?

[volk1234]

с %NewAdmin% разобрался, супер, спасибо.
насчет счетчика -
чтобы переместить все учетки в группу пользователи, если у.з. больше одной,
админ1 > пользователь
админ2 > пользователь
админ3 > пользователь

а встроенную запись администратора по вашему совету, тогда просто запоролим.

Я понимаю, что вы не умеете читать мысли.

[Petya V4sechkin]

чтобы переместить все учетки в группу пользователи

Но зачем для этого создавать кучу переменных?

Код:

Net LocalGroup "%UserGroup%" "%%I" /Add
Net LocalGroup "%AdmGroup%" "%%I" /Delete

С переменной UserGroup разобрались? По аналогии с AdmGroup.

P. S. После этого не забудьте создать вашу новую учетку и добавить ее в Администраторы.