salut !!
je dispose d'un script vbs qui analyse les tailles de repertoires utilisateurs sur un serveur.
Les rapports sont generes sous forme de tableau en html mais ce tableau est noir et blanc et je souhaiterai y ajouter un peu de couleur !!
si c'est possible, merci de me dire comment ...
voici mon script :
Dim oIADS, fsi, f
Dim fso, a, taille
Set fso = CreateObject("Scripting.FileSystemObject" )
Set a = fso.CreateTextFile("C:\Documents and Settings\Flavien\Bureau\result_users.htm" )
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("<html><head><title>Rapport</title></
head>" )
a.WriteLine("<body><table>" )
a.WriteLine("<tr><td>Nom User</td><td>Repertoire User</td><td>Taille en Mo</td></tr>" )
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("<tr><td>" & f.name & "</td><td>" & oUser.HomeDirectory & "</td><td>" & taille & "</td></tr>" )
End If
Set f = Nothing
Next
a.WriteLine("</table></body></html>" )
