Need vbscript to check folder size

[jlotz1]

Hello everyone.

I need a script that will tell me the size of approximately 1500 home directories. What I'd like as output is an Excel spreadsheet with the folder name and the size (in MB, preferably).

I found some scripts that'd do the job, but they report on EVERY subdirectory in each home dir, which makes the report MASSIVE. What I want is just the top level folder name and it's size, nothing more.

Can anyone help?

Thank you!

 

[mrmovie]

strTargetFolder = "u:\users" 'you could pass this as a command line argument?
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(strTargetFolder) Then
Wscript.Echo "found " & strTargetFolder
Wscript.Echo "will bind to it and enumerate subfolders"
Set objFolder = FSO.GetFolder("u:\users")
For Each aFolder In objFolder.SubFolders
Wscript.Echo aFolder.Name & ";" & aFolder.Size
Next
Set objFolder = Nothing
Else
Wscript.Echo "cannot find " & strTargetFolder
End If
Set FSO = Nothing