Get size of user profile (Windows 7\Windows 8) using VBScript

Hello, dear collegues!

I'm trying to get size of user profile with no result. Please, help me investigate this case.

First, I've tried this simple VBScript code:

'On Error Resume Next
Set objShell = CreateObject("Wscript.Shell")
Set objNet = WScript.CreateObject("WScript.Network")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\"& objNet.Username &"")

Wscript.Echo ROUND (objFolder.Size/1024/1024,0)

The result - an error "Permisson denied". I've tried to run script with administrative rights too - no luck.

Then I have read an article: 

"How Can I Get a List of All the Files in a Folder and Its Subfolders?" 

and decided to try measure user profile recursively with code:

'On Error Resume Next
Set objShell = CreateObject("Wscript.Shell")
Set objNet = WScript.CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\"& objNet.Username &"")
MeasureSubFolders(objFolder)
Public Size 
Sub MeasureSubFolders(objFolder)
  Set colSubfolders = objFolder.Subfolders
  For Each objSubfolder in colSubfolders
     Set colFiles = objSubFolder.Files
       For Each objFile In colFiles
         Size = Size + objFile.Size
       Next
   MeasureSubFolders(objSubFolder)
  Next
End Sub

MsgBox ROUND (Size/(1024*1024),0)

The result - an error "Permisson denied". I've tried to run script with administrative rights too - no luck.

First and second scripts works fine with other, no system folders.

How to measure user profile?

Thanks.