Discussion :

[fuzzer]

Bonjour à tous,

Pour un besoin très spécifique, j'ai développé un script VBS permettant de :

1) S'assurer qu'il existe un fichier du jour dans un répertoire défini
2) Vérifier que le contenu de ce fichier ait bien la chaine de caractère souhaitée.

En gros je veux vérifier les logs de NTBACKUP (sous Windows 2003) avec un vbs. Mon souci est que ces logs sont visibles comme du texte aolors que ce n'en est pas.

Mon script fonctionne bien avec des fichiers textes (extension .log) et pas avec les logs de NTBACKUP.

Quelqu'un a t'il une idée ? Un bout de code pour afficher un log de NTBACKUP avec un vbs?

Merci d'avance.

Fuzzer.

[omen999]

bonjour,
sous w2k (sans doute aussi sous w2003), les fichiers backupxx.log sont bien des fichiers texte mais en format unicode
malheureusement ces fichiers sont gérés de façon fantaisiste par l'objet filesystemobject qui est incapable
de les lire correctement : http://support.microsoft.com/kb/189751/en-us
(la chaine déjà en wide subit une nouvelle conversion ansi ->wide... )
une solution simple, passer par l'objet stream d'ado, ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option explicit
Dim oStream, sLog
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.LoadFromFile "C:\Documents and Settings\Administrateur\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data\backup01.log"
sLog=oStream.ReadText(-2) 'lecture d'une ligne
msgbox sLog
oStream.Close

[fuzzer]

Bonsoir omen999,

Tu ne peux pas te rencontre à quel point tu m'enlèves une épine du pied , je pense pouvoir grace à ton aide adapter ton bout de programme au mien.

Je me suis permis de modifier la ligne suivante pour lire le fichier en entier pour y trouver une chaine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sLog=oStream.ReadText(-1) 'lecture du fichier complet

Un grand merci.

Fuzzer.