[megaloman]

Требуется в списке компов (в текстовом файле (Формат: PC00T1 построчно))

-понятно

на диске C:\ в папке ProgramData проверить наличие папки (например ТЕСТ)

C:\ProgramData\ТЕСТ - я правильно понял? А причём здесь список компов? На каждом локальном компьютере ищем папку? Или по сети имеем доступ к каждому компу (как расшарена папка?) Или в папке C:\ProgramData на каком-то одном компе (сервере?) должна быть папка, сопоставимая с именем компа из списка?

[Foreigner]

Размер папки узнать легко. На счет списка компьютеров, то на этот вопрос, без реального тестирования ответить не могу.
PowerShell:

Код:

$size = get-childitem "C:\ProgramData\ТЕСТ" -force -recurse | measure-object length -sum
'Size of C:\ProgramData\ТЕСТ is {0:0.00}Mb' -f ($size.sum / 1mb)

Батник (без проверки на 2147483647):

Код:

@echo off
setlocal
1>nul chcp 437

for /f "tokens=3" %%i in ('dir /s /-c C:\ProgramData\TECT ^| findstr "File(s)"') do set /a size=%%i/1048576
echo Size of C:\ProgramData\ТЕСТ is %size%Mb

1>nul chcp 866

[megaloman]

Foreigner, Я в полном восторге от того, что поиск "File(s)" в таком контексте годится для системы с русскоязычным интерфейсом.
Вот еще вариант без findstr

Код:

@echo off
cls
Set "In=z:\ProgramData\rrr"

SetLocal EnableExtensions EnableDelayedExpansion

If Exist "%In%" (
	for /f "usebackq tokens=3" %%i in (`dir /s /-c "%In%" 2^>nul`) do Set A=!B! & Set B=%%i
	Set /A A=!A!/1048576
	Echo !A!Mb in %In%
) Else (
	Echo Not Exist %In%
)

Однако, при переводе байт в мегабайты по моему скромному мнению не совсем корректно в батнике отображать результат деления размера в байтах на 1048576 (то есть 1024^2) так как батник работает в целых числах и результат, например, 10.99 будет отображаться как 10.
Можно попытаться для корректности отображения применить такое выражение для перевода в мегабайты с десятичным округлением вместо имеющегося

Код:

Set /A A=^(^(!A!*10^)/1048576+5^)/10

[greg zakharov]

Если использовать robocopy, то переводить в Мб не нужно.

Код:

@echo off
  setlocal
    set "dir=%programfiles%\Test"
    if not exist "%dir%" echo:Does not exist.&goto:eof
    pushd "%dir%"
      for /f "tokens=3,4" %%i in (
        'robocopy . . * /l /s /v /r:1 /w:1 ^| findstr /irc:"bytes"'
      ) do echo:%dir%: %%i%%j
    popd
  endlocal
exit /b

Остальное можно легко подсторить под себя.
На счет PS... можно было бы короче:

Код:

'{0:f2}Mb' -f ((ls $env:programfiles\Test -r -for -ea 0 | measure length -sum).Sum / 1Mb)

[Fantastish]

Прошу прощения не мог ответить.

C:\ProgramData\ТЕСТ - я правильно понял? А причём здесь список компов? На каждом локальном компьютере ищем папку? Или по сети имеем доступ к каждому компу (как расшарена папка?) Или в папке C:\ProgramData на каком-то одном компе (сервере?) должна быть папка, сопоставимая с именем компа из списка? »

Данная папка приведена как пример, она присутствует на локальных компьютерах в сети и к ней есть доступ тока вида \\pc\c$\programdata\тест - естественно у группы администраторов

[Iska]

она присутствует на локальных компьютерах в сети и к ней есть доступ тока вида \\pc\c$\programdata\тест - естественно у группы администраторов »

У администраторов есть доступ к удалённой машине по Wbem, а не только по UNC. Кроме того, в случае PowerShell доступна ещё одна технология доступа.

[Fantastish]

процесс реализация (работы/механизма) скрипта в принципе не так критичен, чем проще тем проще
главное из списка машин собрать информацию, чтобы руками не проходить не искать

[megaloman]

Код:

@Echo off
cls

Set "Spis=Z:\Spis_Comp.txt"
Set "Logf=Z:\Logfile.txt"
Set "Shar=C$\ProgramData\Тест"
rem                           Set "Shar=C$\ProgramData\Application Data"

SetLocal EnableExtensions EnableDelayedExpansion

Del "%Logf%" 2>nul

FOR /F "usebackq delims=" %%c IN ("%Spis%") DO Call :ComPing "%%c"
GoTo :Eof

:ComPing
Ping -n 1 -w 1000 %~1 >nul 2>nul 

If Not !ERRORLEVEL!==0 (
		Echo ??? %1 Не в сети >>"%Logf%"
	) Else (
		Call :Dostup "\\%~1\%Shar%"
	)
)
GoTo :Eof

:Dostup
Set "Share=%~1"

If Exist "%Share%\" (
	Dir "%Share%\*.*" >nul 2>nul
	If Not !ERRORLEVEL!==0 (
		Echo --- Нет доступа %Share% >>"%Logf%"
	) Else (
		Call :SizeDir "%Share%" 
	)
) Else (
	Echo --- Не существует %Share% >>"%Logf%"
)
GoTo :Eof

:SizeDir

for /f "usebackq tokens=3" %%i in (`dir /s /-c %1 2^>nul`) do Set A=!B! & Set B=%%i
rem	Set /A A=!A!/1048576
Set /A A=^(^(!A!*10^)/1048576+5^)/10

Echo +++ !A!Mb в %1 >>"%Logf%"

GoTo :Eof

[Fantastish]

Спасибо, вопрос, а как может быть вот такое значение ( +++ -47Mb )