c bon ca marche !!!
c moi ki a delire !!
merci a toi ohhh grand guru !!
:wahoo:
yak222
a.WriteLine("<tr><td>Nom User</td><td>Rep user</td><td>Taille en Mo</td></tr>" )
je ne peux pas trop t'aider car je suis une burne en prog !! :crazy:
Guru
Tu as quoi sur la 37eme ligne de ton fichier VBS ?
yak222
merci !!
mais il me met une erreur :
ligne 13
caractere 47
"constante chaine non terminée"
Guru
Il suffirait de modifier ainsi ton code :
yak222 a écrit a écrit :
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.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>Rep 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>" )
Tu peux après ajouter un peu de formatage HTML pour que cela soit plus joli.
[edtdd]--Message édité par Guru--[/edtdd]
yak222
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
yak222
puis te faire voir la syntaxe ????
Guru
Tout dépends de la manière dont fonctionne ton script vbs, il s'agit sans doute simplement de remplacer le code écrivant dans le fichier csv par du code écrivant du html dans un fichier.
yak222
salut !!
j'ai un script vbs qui me permet de voir sur un serveur la taille de certains repertoires.
ce script genere un fichier csv qui est separé en trois colonnes :
NomUSERS _ Repertoire _ Taille en Mo
est il possible de generer une page html qui reprendrait les memes caracteristiques (format 3 colonnes)directement a partir du vbs (sans passer par le csv) ?????????
Merci pour votre aide !!!
