Creer une page html a partir d'un vbs !!!

Marsh Posté le 23-01-2002 à 16:16:55

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 !!!

Reply

Marsh Posté le 23-01-2002 à 16:16:55

Reply

Marsh Posté le 23-01-2002 à 16:33:52

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.

Reply

Marsh Posté le 23-01-2002 à 16:39:52

puis te faire voir la syntaxe ????

Reply

Marsh Posté le 23-01-2002 à 16:41:15

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

Reply

Marsh Posté le 23-01-2002 à 16:51:34

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]

Reply

Marsh Posté le 23-01-2002 à 16:56:47

merci !!
mais il me met une erreur :
ligne 13
caractere 47
"constante chaine non terminée"

Reply

Marsh Posté le 23-01-2002 à 17:17:54

Tu as quoi sur la 37eme ligne de ton fichier VBS ?

Reply

Marsh Posté le 23-01-2002 à 17:20:17

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: