premission denied

[Benman]

Het volgede script heb ik geschreven om een top 10 van de grootste
mappen te weergeven.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFolders = objWMIService.ExecQuery("Select * from Win32_Directory")

For Each objFolder in colFolders
   ' Wscript.Echo objFolder.Name
    set Ofso = CreateObject ("scripting.FileSystemObject")

	Set f = Ofso.GetFolder(objFolder.Name)
	s = f.size
Next

Hij is nog niet helemaal af maar ik kom niet verder

ik krijg steeds het volgende melding:

Microsoft VBScript runtime error: Permission denied op de s = f.size regel

heb een vista home met wsh 5.7

ik dacht zelf aan system primission op de mappen maar dat was het niet.
google komt met exchange en iis verwijzing-premission foutmelding

iig alvast bedankt.

------