Recherche:

Chez moi ca marche...

Il y a juste un petit problème si la ligne de l'historique lue est vide mais qui est facilement corrigeable en ajoutant un If...

If Ligne <> "" Then
LigneLeft =...

On y est presque...
Pourquoi tu ne reprends qu'une partie de la ligne ?

Je ne veux pas être méchant mais la réponse est dans les posts précédants.
As-tu vraiment essayer de trouver la réponse ?...

Oui, ça le ferait mais ça ferait aussi pas mal de boulot inutile pour le processeur selon le nombre de @ contenu dans ta ligne.
Mais si tu ne veux lire que le nom de la machine alors pourquoi...

Ca vient du fait que le nom de la machine n'est plus lu entierement.
On ne cherche plus qu'à savoir si les n premiers caractères de la ligne de l'historique sont les même que ceux de la machine...

M'enfin ça serait quand même pas mal de savoir si le fichier historique risque d'avoir des dixaines de milliers de lignes très courtes ou bien le contraire, c-a-d pas beaucoup de lignes (pas beaucoup...

Salut Daynvheur ! (le dernier dinosaure ?)

Très bien, un autre point de vue ça ne peut qu'être positif ! ;)
Effectivement ton code a certains avantage mais comme tu l'as dit toi-même, selon le...

Bon alors, elle est où l'implémentation en VBScript qui fait marcher le bouzin ?
Fais signe si tu as des problèmes mais donne une preuve de ta bonne foi. ;)
Hé ouais, c'est lundi aujourd'hui...

Ah ouais mais nan...
Si des machines disparaissent du fichier ListeMachine.txt ça va pas le faire...

J'ai plus le temps de voir ça maintenant mais je peux te donner une piste de réflexion :
1 -...

Oula effectivement, je me suis emmêlé les pinceaux.
Hum...
Bon du coup on va copier l'historique parce que sinon je sais pas trop ce qu'on peut faire ou pas en VBS, Il faudrait qu'un expert vienne...

Normal que ca marche pas, il faut faire le ménage quand on lit la ligne de l'historique pour ne récupérer QUE le nom de la machine :



Do While objRes2.AtEndOfStream <> True
Ligne =...

Et ?
Ca marche ou pas ?

Pour le coup du placer objRes au début du fichier, je ne savais pas qu'en VBScript on ne pouvait pas revenir en arrière...
Du coup optimiser le code pour ne pas ouvrir et...

Set objFSO = CreateObject("Scripting.FileSystemObject")

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Set objFile = objFSO.OpenTextFile("Liste_Machines.txt", ForReading,...

Le Do While fera parfaitement l'affaire. :ccool:

Et maintenant, le test pour savoir si on crée une nouvelle ligne ou pas !

Nouvel indice:

le test qui permettait de savoir si on écrivait une nouvelle ligne ou pas était:
if i <= UBound(Histo) And Histo(i) <> "" then.

maintenant on veut a chaque fois* lire le fichier...

Le script que je t'ai donné part du principe que ce sont toujours les même machines dans le même ordre qui sont pingées.
Si tu veux qu'il s'adapte aux nouvelles machines rencontrées, alors il faut...

Ca devrait le faire. ;)


Set objFSO = CreateObject("Scripting.FileSystemObject")

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Set objFile =...