Dim oIADS, fsi, f
Dim fso, a, taille
Set fso = CreateObject("Scripting.FileSystemObject" )
Set a = fso.CreateTextFile("C:\Program Files\Macromedia\Dreamweaver 4\Lessons\Lesson Files\admin\result_users.csv" )
Set fsi = CreateObject("Scripting.FileSystemObject" )
Set oIADS = GetObject("WinNT://AGENCES" )
' Enumerate the members in the group.
On Error Resume Next
'Ecriture des noms de colonne
a.WriteLine("Nom User,Rep user,Taille en Mo" )
For Each oUser in oIADS
if oUser.Class = "User" then
Set f = fsi.GetFolder(oUser.HomeDirectory)
taille = replace(round(f.size / 1048576,2),",","." )
a.WriteLine(f.name & "," & oUser.HomeDirectory & "," & taille )
End If
Set f = Nothing
Next