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

  FORUM HardWare.fr
  Programmation

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°92450
yak222
Posté le 23-01-2002 à 16:16:55  profilanswer
 

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

mood
Publicité
Posté le 23-01-2002 à 16:16:55  profilanswer
 

n°92455
Guru
Posté le 23-01-2002 à 16:33:52  profilanswer
 

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.

n°92457
yak222
Posté le 23-01-2002 à 16:39:52  profilanswer
 

puis te faire voir la syntaxe ????

n°92460
yak222
Posté le 23-01-2002 à 16:41:15  profilanswer
 

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

n°92466
Guru
Posté le 23-01-2002 à 16:51:34  profilanswer
 

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]

n°92467
yak222
Posté le 23-01-2002 à 16:56:47  profilanswer
 

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

n°92478
Guru
Posté le 23-01-2002 à 17:17:54  profilanswer
 

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

n°92480
yak222
Posté le 23-01-2002 à 17:20:17  profilanswer
 

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:

n°92481
yak222
Posté le 23-01-2002 à 17:22:32  profilanswer
 

c bon ca marche !!!
c moi ki a delire !!
merci a toi ohhh grand guru !!
 :wahoo:


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

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

 

Sujets relatifs
HTML - - - positionner une imageARFFF gros PB avec PERL/HTML/NETSCAPE
uploader sur une page perso multimania.com sans passer par ftp ????Cherche site tout con mais tout fait HTML/ASP/Access Help !
[HTML] pbm bizarre avec les formulaires[html] liens
Decompilation / Reverse Engeneering / Régénération d'un .c à partir[HTML] Question d'ascenseur ...
HTML[HTML] compatibilite des navigateurs
Plus de sujets relatifs à : Creer une page html a partir d'un vbs !!!


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