Index
Mon CV 
Mon Labo
Web 
Bureautique 
Graphisme 
Administration réseau 
Contacts
Livre d'or 
Ce script permet de récupérer les lignes de log en fonction du nom d'utilisateur. Il va chercher les informations dans le fichier de log de la veille. 'NOM DU COMPTE QUI SE CONNECTE AU FTP
client = "USER1"
Set FSys = CreateObject("Scripting.FileSystemObject")
'CALCUL ET MISE EN FORME DE LA DATE D'HIER
SPLDate=Split(DateAdd("d", -1, Date),"/")
Ndate=Mid(SPLDate(2),3)&SPLDate(1)&SPLDate(0)
'msgbox("in"&Ndate&".log")
'OUVERTURE DU FICHIER J-1
Set MonFic = FSys.OpenTextFile("in"&Ndate&".log", 1)
'LECTURE DU FICHIER
Contenu = MonFic.ReadAll
'FICHIER CIBLE
Set MonFic = FSys.CreateTextFile("extract_"& Ndate &".txt")
'ON COUPE LE FICHIER DE LOG EN LIGNE (VbCrLf = RETOUR CHARIOT)
ligne=Split(Contenu, VbCrLf)
i=0
'TANT QU'IL RESTE DES LIGNES DANS LE FICHIER SOURCE.
While i < UBound(ligne)
'SI LA LIGNE CONTIENT LE NOM DU CLIENT
if(InStr(ligne(i), client)) then
'AJOUTER LA LIGNE DANS LE FICHIER TEXTE
MonFic.writeLine ligne(i)
end if
i=i+1
Wend
La configuration des fichiers de log doit être la suivante : Sur votre serveur IIS, allez dans les propriétés de votre serveur FTP : 
L'enregistrement dans le journal doit être activé et enregistré au "Format de fichier de journal de Microsoft IIS" Cliquez sur "Propriété" et sélectionnez la création quotidienne d'un nouveau fichier. 
De cette façon, un nouveau fichier est créé tout les jours à 00h00. Le script est utilisable en temps réel mais il faut lui spécifier la date du jour (enlever le "-1" ligne 7)
| |||||||||
