Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2804 connectés 

 


Dernière réponse
Sujet : Help pour script vbs qui genere une page html !!
antsite 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.

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
antsite 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.
yak222 aller soyez sympa !!!!!!!
 :pt1cable:
yak222 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>" )

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR