CMD/BAT

megaloman · Отправлено: **16:06, 25-06-2021** | #11

Цитата ip.txt:

192.168.31.1
192.168.31.2
192.168.31.3
192.168.31.4

Код:

@Echo Off
Set "IpTxt=Z:\Box_In\Ip.txt"
:nameuser
	cls
	SET /P "nameuser=Введите имя пользователя		>"
	SET /P "password=Введите пароль пользователя %nameuser%	>"
	Echo Введенное имя пользователя "%nameuser%"
	Echo. 
	
	:newuser
		SET /P "newuser=Введите имя нового пользователя			>"
		SET /P "newpass=Введите пароль нового пользователя %newuser%	>"

		Cls. 
		Echo Введенное имя пользователя "%nameuser%"
		Echo Введенное имя нового пользователя "%newuser%" "%newpass%"
		Echo.

		CHOICE /C NUCB /N /M "N-новый пользователь, U-пользователь, C-завершить, B-сделать"
		:begin
 			If %ErrorLevel%==1 GoTo :newuser
 			If %ErrorLevel%==2 GoTo :nameuser
			If %ErrorLevel%==3 Exit /B
			For /f "usebackq tokens=1 delims= " %%i in ("%IpTxt%") Do (
				Echo wmic /user:"%nameuser%" /password:"%password%"/node:"%%i" process call create "cmd /c net user %newuser% /add"
				Echo wmic /user:"%nameuser%" /password:"%password%"/node:"%%i" process call create "cmd /c net user %newuser% %newpass%"
				Echo wmic /user:"%nameuser%" /password:"%password%"/node:"%%i" process call create "cmd /c net localgroup Администраторы %newuser% /add"
				Echo wmic /user:"%nameuser%" /password:"%password%"/node:"%%i" process call create "cmd /c net localgroup Administrators %newuser% /add"
			)
		Echo.   	
		CHOICE /C NUC /N /M "N-новый пользователь, U-пользователь, C-завершить"
		CLS   	

		GoTo :begin
Exit /B 0

В боевой версии Echo уберите

alpap · Конфигурация компьютера

megaloman, нельзя брать имя %username%, это имя переопределит система в cmd и не будет выхода на удаленные компьютеры, останемся на локальном юзере.

megaloman · Отправлено: **19:54, 25-06-2021** | #13

alpap, Не вспомнил %username%, наверное возможны неприятности, жара в 36 градусов сказывается. Потестировал, но не так всё просто, не очень-то переопределяется. При перезапуске окна CMD всё возвращается на круги своя. На всякий случай исправил.

Iska · Отправлено: **09:16, 26-06-2021** | #14

Поэтому iCount, sUserName, sPassword, aNames и т.п.

megaloman · Отправлено: **09:29, 26-06-2021** | #15

Iska, Вы конечно правы, стиль, батюшка, это всё!

Цитата Декарт:

Верно определяйте слова, и вы освободите мир от половины недоразумений.

megaloman · Отправлено: **09:58, 26-06-2021** | #16

Iska, alpap, Вообще-то что касается аккуратности и осмотрительности, то, ИМХО, было бы полезным применять SetLocal. Это может избавить от последствий недомыслия при образовании имен переменных.

Код:

@Echo Off
cls
	Echo 1111   %UserName%
SetLocal
	Echo 2222   %UserName%

	Set "UserName=kuku"

	Echo 3333   %UserName%
EndLocal
	Echo 4444   %UserName%
pause
Exit /B

Iska · Отправлено: **10:45, 26-06-2021** | #17

megaloman, конечно. У меня прям шаблон под это дело задан в Far Manager'е при создании пакетного файла:

Скрытый текст

megaloman · Отправлено: **11:15, 26-06-2021** | #18

Iska, Шаблон - это конечно полезно. Теперь я понимаю (постоянно недоумевал), почему у Ваших CMD всегда упорно присутствуют
SetLocal EnableExtensions EnableDelayedExpansion
Тут бы я не согласился: SetLocal - полезно
А вот EnableDelayedExpansion я стараюсь всеми силами избегать: как-то споткнулся, что в именах файлов присутствовали "!"
С фаром, конечно, удобно: Вы запускаете bat-файл, открывается CMD-окно, Вы бесчинствуете, переопределяете переменные окружения, затем, после завершения сценария CMD-окно закрывается и все эти бесчинства отменяются.
При работе в CMD-окне, запущенного, допкустим, в пуске, если не перезапускать его, получим переопределённые для этого сеанса CMD переменные окружения.

Nilf · Отправлено: **07:31, 28-06-2021** | #19

Цитата megaloman:

Цитата ip.txt:
192.168.31.1
192.168.31.2
192.168.31.3
192.168.31.4
Код:
@Echo Off
Set "IpTxt=Z:\Box_In\Ip.txt"
:nameuser
cls
SET /P "nameuser=Введите имя пользователя >"
SET /P "password=Введите пароль пользователя %nameuser% >"
Echo Введенное имя пользователя "%nameuser%"
Echo.
:newuser
SET /P "newuser=Введите имя нового пользователя >"
SET /P "newpass=Введите пароль нового пользователя %newuser% >"
Cls.
Echo Введенное имя пользователя "%nameuser%"
Echo Введенное имя нового пользователя "%newuser%" "%newpass%"
Echo.
CHOICE /C NUCB /N /M "N-новый пользователь, U-пользователь, C-завершить, B-сделать"
:begin
If %ErrorLevel%==1 GoTo :newuser
If %ErrorLevel%==2 GoTo :nameuser
If %ErrorLevel%==3 Exit /B
For /f "usebackq tokens=1 delims= " %%i in ("%IpTxt%") Do (
Echo wmic /user:"%nameuser%" /password:"%password%"/node:"%%i" process call create "cmd /c net user %newuser% /add"
Echo wmic /user:"%nameuser%" /password:"%password%"/node:"%%i" process call create "cmd /c net user %newuser% %newpass%"
Echo wmic /user:"%nameuser%" /password:"%password%"/node:"%%i" process call create "cmd /c net localgroup Администраторы %newuser% /add"
Echo wmic /user:"%nameuser%" /password:"%password%"/node:"%%i" process call create "cmd /c net localgroup Administrators %newuser% /add"
)
Echo.
CHOICE /C NUC /N /M "N-новый пользователь, U-пользователь, C-завершить"
CLS
GoTo :begin
Exit /B 0
В боевой версии Echo уберите »

Большое спасибо за Ваш вариант! Но получается что мне будет необходим тогда файлик choise.exe либо choise.com? Ежили его не будет, в случае например с XP, то ничего работать не будет? А если этот файлик воткнуть из ранней в позднюю или наоборот, то он не сможет выполниться, будет говорить что это не системная программа.

megaloman · Отправлено: **12:48, 28-06-2021** | #20

Nilf, Солнце встало, сдохли мухи: продолжаем в том же духе

Всё то же самое, сделан аналог Choice на Set

Код:

@Echo Off
Set "IpTxt=Z:\Box_In\Ip.txt"
:nameuser
	cls
	SET /P "nameuser=Введите имя пользователя		>"
	SET /P "password=Введите пароль пользователя %nameuser%	>"
	Echo Введенное имя пользователя "%nameuser%"
	Echo. 
	
	:newuser
		SET /P "newuser=Введите имя нового пользователя			>"
		SET /P "newpass=Введите пароль нового пользователя %newuser%	>"

		Cls. 
		Echo Введенное имя пользователя "%nameuser%"
		Echo Введенное имя нового пользователя "%newuser%" "%newpass%"
		Echo.

		:Choice1
		Set "Answer="
		Set /P "Answer=Введите N-новый пользователь, U-пользователь, C-завершить, B-сделать >"
		:begin
 			If /I "%Answer%"=="N" GoTo :newuser
 			If /I "%Answer%"=="U" GoTo :nameuser
			If /I "%Answer%"=="C" Exit /B
			If /I Not "%Answer%"=="B" (Echo Ввод неверный: "%Answer%" &GoTo :Choice1)

			For /f "usebackq tokens=1 delims= " %%i in ("%IpTxt%") Do (
				Echo wmic /user:"%nameuser%" /password:"%password%"/node:"%%i" process call create "cmd /c net user %newuser% /add"
				Echo wmic /user:"%nameuser%" /password:"%password%"/node:"%%i" process call create "cmd /c net user %newuser% %newpass%"
				Echo wmic /user:"%nameuser%" /password:"%password%"/node:"%%i" process call create "cmd /c net localgroup Администраторы %newuser% /add"
				Echo wmic /user:"%nameuser%" /password:"%password%"/node:"%%i" process call create "cmd /c net localgroup Administrators %newuser% /add"
			)
		Echo.

		:Choice2   	
		Set "Answer="
		Set /P "Answer=Введите N-новый пользователь, U-пользователь, C-завершить >"
			CLS   	
 			If /I Not "%Answer%"=="N" If /I Not "%Answer%"=="U" If /I Not "%Answer%"=="C" (Echo Ввод неверный: "%Answer%" &GoTo :Choice2)
		GoTo :begin
Exit /B 0

В XP вроде бы выполняется (WMIC не тестировал)