Help pour script vbs qui genere une page html !!

Help pour script vbs qui genere une page html !! - Programmation

Marsh Posté le 04-02-2002 à 14:15:11    

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>" )

Reply

Marsh Posté le 04-02-2002 à 14:15:11   

Reply

Marsh Posté le 04-02-2002 à 14:20:34    

aller soyez sympa !!!!!!!
 :pt1cable:

Reply

Marsh Posté le 04-02-2002 à 14:32:18    

Ca n'a rien à voir avec le vbs, c'est du HTML tout simplement ! Tu vas sur www.allhtml.com et tu trouveras ton bonheur.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed