Подсчет и вывод из командной строки занимаемого объема подкаталогов

Многим, наверное, в командной строке Windows при запуске команды DIR не хватает в ней информации выводящей размер каталогов.

Для этого нужно воспользоваться возможностями скриптов, например на WHS (файл напр. обзываем dir.vbs):

===================================
Dim fso, f, fc, f1, s, filespec, arg
Dim StdOut

Set StdOut = WScript.StdOut
Set arg = WScript.Arguments.Named

filespec = arg.Item("d")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(filespec)
Set fc = f.SubFolders
For Each f1 in fc
   s = UCase(f1.Name) & " == " & f1.size & " байт."
   stdout.WriteLine (s)
Next
========================================

Запуск такой: cscript dir.vbs  /d:"директория"
Например так cscript dir.vbs /d:"D:\"
Этот скрипт выведет список (один уровень) подкаталогов диска D: и их размер
При желании можно и дописать скрипт, что бы он выводил еще и файлы (и их размер), а также сделать прогонку под всем поддиректориям, только следует учитывать, что такой подсчет будет вестись долго... и будет "вываливаться" с ошибкой, если пользователь, от имени которого выполняется этот скрипт, не будет иметь прав доступа к файлам (напр. к каталогу "System Volume Information"), которые будут занимать какой-то объем