Victoire ca semble fonctionner !!!!!! Merci !!!
Oui pour le script initial, c'est moi l'auteur, c'est juste un ping et une boucle donc ca va ... mais dès qu'il faut jouer avec des fichiers etc...
Type: Messages; Utilisateur: snorky94
Victoire ca semble fonctionner !!!!!! Merci !!!
Oui pour le script initial, c'est moi l'auteur, c'est juste un ping et une boucle donc ca va ... mais dès qu'il faut jouer avec des fichiers etc...
En reprenant ca, ca ne fonctionne pas :
Do While ficHistorique_op.AtEndOfStream <> True
Ligne = ficHistorique_op.ReadLine
LigneLeft = Left(Ligne, InStr(Ligne, " ") - 1)
je ne comprends pas ....
Comme ca ?
LigneLeft = Left(Ligne, InStr(Ligne, " "))
je vais regarder les precedents post alors ... merci ;)
hummm ... au lieu de mettre "-->" je vais mettre "@" comme séparateur.
Ce qui va donner dna smon historique :
10.208.24.11@OK@OK
10.208.24.12@OK
10.208.24.111@NOK
Si je remplace :...
ca à l'air d'etre top merci !!!!!! :)
Juste une toute petite chose ...
Si je mets 2 ip qui se resemblent :
10.208.24.11
10.208.24.111
10.208.24.112
10.208.24.113
Je vais regarder ceta apres midi jai pas mal d'erreurs ... Je ne sais pas si tu as eu l'occasion de le tester sur ta machine :)
Merci.
oui, avant j'essaye de corriger 2-3 choses à la ligne 51 jai :
Cet objet ne gère pas cette propriété ou cette méthode: 'ficHistorique_op'
Merci encore pour ton aide.
Bonjour,
Le contexte ...
En fait je réalise un export de mon DHCP, que je met en page au format html. (Scopes, ip utilisées, ip libres, etc).
Cet export est réalisé chaque jour à 10h00.
...
super, merci !!!! :cry: :arf:
Merci encore pour ton implication mais ca ne finira jamais :(
Dans ma liste Liste_Machines.txt j'ai :
toto
titi
Si je lance le script 2 fois, dans Histo_ping.txt, ca donne :
toto OK -->...
ca ne fonctionne pas ...
Ca écrase le contenu de mon fichier ... :(
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
je ne vois pas comment le placer au début du fichier ....
et non ca ne marche pas :(
Je lance une première liste :
ca m'écrit bien :
lol je regarde .... d'un coté ca m'enerve, mais de l'autre c'est ludique :)
...
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
:( je n'arrive pas à voir ou placer ma boucle et quoi comparer ... Boulet ... :traine:
Une bouccle While ou For ? :)
Do While objFile.AtEndOfStream
Loop
ou
For
bonjour,
merci pour ta réponse, je ne vois pas trop comment faire ...
Il faut comparer les 2 fichiers texte : Histo_ping.txt et Liste_Machines.txt ?
Si nouvelle machine dans...
Oups ..... :oops:
Je n'avais pas vu ta réponse et j'ai ouvert un autre post plus clair .... :(
C'est top c'est exactement ce que je voulais merci !!!! :)
J'ai juste crée un tableau de 1000...
Merci pour vos réponses, je vais ouvrir un autre sujet plus clair.
hummm, je ne vois pas trop ce que tu veux dire :
Mon fichier est comme ca :
Et je souhaiterai qu'il soit comme ca :
Bonjour,
J'ai un petit problème tout simple :)
Chaque jour, j'execute un script qui fait un ping sur une liste de machine (toto, titi et tata) et qui ecrit le résultat OK ou NOK dans un fichier...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.