Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Public\Common files")

For Each objSubfolder in objFolder.Subfolders
    Wscript.Echo objSubfolder.Name, objSubfolder.Size, objSubfolder.DateCreated, Now - objSubfolder.DateCreated
Next