Script bat ou VBS de mise a jour de statistiques

Voici un script VBS qui vous permettra de mettre a jour vos statistiques Webalizer :

nlect = "D:"
nRep = "D:\www"
dim tab_(200,2)
set fs = CreateObject("Scripting.FileSystemObject")
set MonRep = fs.GetFolder(nRep)
set ColRep = MonRep.SubFolders
i=0
for each folderItem in ColRep
 tab_(i,1)=folderItem.name
i=i+1
next  
for j=0 to i-1
 nRep = nlect&"\www\"&tab_(j,1)&"\logs"
 set MonRep = fs.GetFolder(nRep)
 set ColRep = MonRep.SubFolders
 for each folderItem in ColRep
  tab_(j,2)=folderItem.path
 next  
next  
chemin_webalizer="C:\server\stats\webalizer"
titre="Statistiques Webalizer pour : "
nombre_ligne=10
dir="cd C:\server\stats\"&vbCrLf
for j=0 to i-1
 commande=chemin_webalizer & "  -q -P asp* -P htm* -P php*  -F iis -t " & chr(34)&titre& chr(34)& " -n " & tab_(j,1) & " -l " &nombre_ligne & " -o "&nlect&"\www\"&tab_(j,1)&"\website\stats "&tab_(j,2)&"\extend1.log"&vbCrLf
 fincommande=fincommande&commande
next

Set genere = CreateObject("Scripting.FileSystemObject")
fichier="c:\server\lancewebalizer"&ip&".bat"
Set creation = genere.CreateTextFile(fichier,true)
creation.WriteLine(dir&fincommande)
creation.close
set ColRep = nothing
set MonRep = nothing
set fs = nothing
Set W = CreateObject("WScript.Shell")
W.RUN fichier


 

  




Commentaires

Pas de commentaire

Laissez un commentaire

Commenting is restricted to registered users only. Please register or login now to submit a comment.