Loop through and print directory size

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder("C:\")

Set colSubfolders = objFolder.Subfolders

For Each objSubfolder in colSubfolders
  on error resume next
  Wscript.Echo objSubfolder.Name, objSubfolder.Size
Next