j'ai oublie de vous faire voir le script !!
voila :
 
Dim oIADS, fsi, f
Dim fso, a
 
Set fso = CreateObject("Scripting.FileSystemObject" )
Set a = fso.CreateTextFile("c:\Documents and Settings\........\result_users.csv" )
Set fsi = CreateObject("Scripting.FileSystemObject" )
 
Set oIADS = GetObject("WinNT://AGENCES" )  
' Enumerate the members in the group.
On Error Resume Next
 
For Each oUser in oIADS
 if oUser.Class = "User" then
      Set f = fsi.GetFolder(oUser.HomeDirectory)
      a.WriteLine(f.name & "," & oUser.HomeDirectory & "," & f.size)      
 End If
Set f = Nothing
Next