Here's an ns7 version of a vbscript to do that very thing. It retrieves the folder size of each folder inside c:\documents and settings.
I haven't added it to the above kb, yet.
''' Altiris Stuff
'Create instance of Altiris NSE component
dim nse
set nse = WScript.CreateObject ("Altiris.AeXNSEvent")
' Set the header data of the NSE. Please don't modify this GUID
nse.To = "{1592B913-72F3-4C36-91D2-D4EDA21D2F96}"
nse.Priority = 1
dim objDCInstance
set objDCInstance = nse.AddDataClass ("cust_user_profile")
dim objDataClass
set objDataClass = nse.AddDataBlock (objDCInstance)
''' End of Altiris Stuff
' Create a filesystem object for the 'documents and settings' folder, then
' loop thru each subdirectory and get it's name, etc.
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder("C:\Documents and Settings")
For each item in folder.SubFolders
Set subF = CreateObject("Scripting.FileSystemObject")
set subFolder = subF.GetFolder(item.path)
Wscript.echo "folder.Name=" & subFolder.Name
Wscript.echo "folder.Path=" & subFolder.Path
Wscript.echo "folder.Size=" & subFolder.Size
'Add a new row
dim objDataRow
set objDataRow = objDataClass.AddRow
'Set columns
objDataRow.SetField 0, subFolder.Name
objDataRow.SetField 1, subFolder.Path
objDataRow.SetField 2, subFolder.Size
Next
''' Altiris Stuff
' Send the NSE data to the NS server
nse.SendQueued
''' End of Altiris Stuff
''' End of vbscript main logic
'********************************************************************************
'* This vbscript gets user profile sizes
'* Date Created: May 18, 2010
'********************************************************************************