[megaloman]

Рискую быть подвергнутым остракизму, но мне не нравится идея отдельного файла, все компы прописал в самом батнике

Код:

@Echo Off
cls

Set "ShareDisk=D$"
Set "OutFold=Work"

FOR /F "usebackq Skip=2 tokens=1 delims=[]" %%n IN (`Find /I /N ":List_Computers" "%~dpnx0"`) DO Set /A NSkip=%%n
FOR /F "usebackq tokens=*" %%s IN (`more +%NSkip% "%~dpnx0"`) DO (If /I "%%s"=="GoTo :Eof" GoTo :Continue) &Call :Out \\%%s
:Continue

Pause
GoTo :Eof

:Out
	If Exist "%1\%ShareDisk%\" (
		If Not Exist "%1\%ShareDisk%\%OutFold%\" (
			Md "%1\%ShareDisk%\%OutFold%"
			If Not Exist "%1\%ShareDisk%\%OutFold%\" Echo Folder %1\%ShareDisk%\%OutFold% not created.
		) Else (
			Echo Folder %1\%ShareDisk%\%OutFold% already exists
		)
	) Else (
		Echo Disk %1\%ShareDisk% not Found
	)	
GoTo :Eof

:List_Computers
PC3
PC4
PC5
PC9
PC11
GoTo :Eof

Добавил вывод информационных сообщений

По письмам трудящихся, вот с отдельным файлом

Код:

@Echo Off
cls

Set "ShareDisk=D$"
Set "OutFold=Work"
Set "ListComp=Z:\Box_In\List.txt"

FOR /F "usebackq tokens=*" %%s IN ("%ListComp%") DO Call :Out \\%%s

Pause
GoTo :Eof

:Out
	If Exist "%1\%ShareDisk%\" (
		If Not Exist "%1\%ShareDisk%\%OutFold%\" (
			Md "%1\%ShareDisk%\%OutFold%"
			If Not Exist "%1\%ShareDisk%\%OutFold%\" Echo Folder %1\%ShareDisk%\%OutFold% not created.
		) Else (
			Echo Folder %1\%ShareDisk%\%OutFold% already exists
		)
	) Else (
		Echo Disk %1\%ShareDisk% not Found
	)	
GoTo :Eof

В файле Z:\Box_In\List.txt

Код:

PC3
PC4
PC5
PC9
PC11

[azisis]

А куда вашу строку влепить что бы работало ?

@Echo Off cls Set "ShareDisk=D$" Set "OutFold=Work" FOR /F %%s IN ('Net view') DO Call :Out %%s GoTo :Eof :Out Set "CompName=%1" If %CompName:~0,2%== \\ If Exist "%CompName%\%ShareDisk%\" ( If Not Exist "%CompName%\%ShareDisk%\%OutFold%\" Md "%CompName%\%ShareDisk%\%OutFold%" ) GoTo :Eof »

Мегаломан, Вы просто гуру батников, огромное при огромное спасибо

Еще есть несколько заданий у меня, но все же хотелось бы самому научиться писать бат файлы, может кто посоветует хорошую литературу ?

[megaloman]

azisis,

Если все компы, кроме исключений

Код:

@Echo Off
cls

Set "ShareDisk=D$"
Set "OutFold=Work"
Set "CompExclude=PC1 PC2 P10"

FOR /F %%s IN ('Net view') DO Call :Out %%s
Pause
GoTo :Eof

:Out
	Set "CompName=%1"
	If %CompName:~0,2%==\\ Call :Exclude %1 %CompExclude%
GoTo :Eof

:Exclude
	If "%2"=="" GoTo :Eof
	If /I "%1"=="\\%2" Echo Computer %1 Excluded &GoTo :Eof
	Shift /2
	If Not "%2"=="" GoTo :Exclude
 
	If Exist "%1\%ShareDisk%\" (
		If Not Exist "%1\%ShareDisk%\%OutFold%\" (
			Md "%1\%ShareDisk%\%OutFold%"
			If Not Exist "%1\%ShareDisk%\%OutFold%\" (
				Echo Folder %1\%ShareDisk%\%OutFold% not created.
			) Else (
				Echo Folder %1\%ShareDisk%\%OutFold% created.
			)
		) Else (
			Echo Folder %1\%ShareDisk%\%OutFold% already exists
		)
	)	
GoTo :Eof

Код "разбух" из за того, что навставлял информационных сообщений

azisis, не заставляйте меня краснеть, Iska, например, многократно меня гурее, причём в разных областях, и много много других.

[azisis]

У меня еще возник вопрос не по этой теме , немного поискал и сделал батник для сброса статики на дхцп, но для локального компа, как можно сделать что бы на сетевом компе в домене сбрасывало статику и прописывало дхцп ?
Вот мой пример :
netsh interface ip set address name="LAN" source=dhcp
netsh interface ip set dns name="LAN" source=dhcp


как то можно сделать что бы было типа ?

\\uapc003 netsh interface ip set address name="LAN" source=dhcp
\\uapc003 netsh interface ip set dns name="LAN" source=dhcp

[Iska]

У меня еще возник вопрос не по этой теме »

azisis, тут принят формат «Один вопрос — одна тема», а не «Один участник — одна тема». И Вы правильно сделали, что завели новую тему. Ответил там же.