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