I use the following script. DirPlus() is available in the UDF section.
 Code:
Break on
Call 'C:\KiX\scripts\UDF\DirPlus.udf'
If Exist('C:\HomeFolderHogs.csv')
  DEL 'C:\HomeFolderHogs.csv'
EndIf
$RC = Open(1,'C:\HomeFolderHogs.csv',5)
$RC = WriteLine(1,'"' + 'UserID' + '","' + 'Folder Size' + '"' + @CRLF)
$DirArray = DirPlus('\\cacc.local\ff\home\users','/ad') ;returns only a list of folders

For each $Dir in $DirArray
  $RC = WriteLine(1,'"' + $Dir.Name + '","' + $Dir.Size + '"' + @CRLF)
  $Dir.Name ?
Next
$RC = Close(1)
"That's all folks!" ?
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.