+ Répondre à la discussion
Page 3 sur 3 PremièrePremière 123
Affichage des résultats 41 à 47 sur 47
  1. #41
    Nouveau Membre du Club
    Profil pro
    Technicien Help Desk
    Inscrit en
    décembre 2012
    Messages
    23
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Technicien Help Desk

    Informations forums :
    Inscription : décembre 2012
    Messages : 23
    Points : 29
    Points
    29

    Par défaut

    Citation Envoyé par b.gaumard Voir le message
    10.208.24.11
    10.208.24.111
    [...]
    Code :
    1
    2
    10.208.24.11 OK --> OK
    10.208.24.111 NOK --> OK --> NOK
    Normal, normal !

    Aniki a tout à fait trouvé d'où venait le soucis, que je n'avais pas prévu :
    Code :
    LigneLeft = Left(Ligne, MachineLen)
    Si on regarde "10.208.24.111", et qu'on ne garde que la partie gauche correspondant à la longueur de "10.208.24.11", on obtient.. exactement la même valeur, les 12 premiers caractères étant "10.208.24.11" !

    Il y a certainement la possibilité de regarder si ce comparatif fonctionnait autrement précédemment.

  2. #42
    Membre habitué
    Homme Profil pro
    Ingénieur systèmes et réseaux
    Inscrit en
    juillet 2012
    Messages
    284
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Ingénieur systèmes et réseaux
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2012
    Messages : 284
    Points : 101
    Points
    101

    Par défaut

    je ne comprends pas ....

    Comme ca ?

    LigneLeft = Left(Ligne, InStr(Ligne, " "))

  3. #43
    Membre Expert
    Inscrit en
    juin 2006
    Messages
    788
    Détails du profil
    Informations forums :
    Inscription : juin 2006
    Messages : 788
    Points : 1 276
    Points
    1 276

    Par défaut

    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 ? As-tu fais des tests avec différents algo avant de venir demander ici ? Quel est ta méthode de travail ?
    Qu'attends-tu de ce forum ?

  4. #44
    Membre habitué
    Homme Profil pro
    Ingénieur systèmes et réseaux
    Inscrit en
    juillet 2012
    Messages
    284
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Ingénieur systèmes et réseaux
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2012
    Messages : 284
    Points : 101
    Points
    101

    Par défaut

    En reprenant ca, ca ne fonctionne pas :

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
     
    	Do While ficHistorique_op.AtEndOfStream <> True
     
    		Ligne = ficHistorique_op.ReadLine
     
    		LigneLeft = Left(Ligne, InStr(Ligne, " ") - 1)
     
    		If LigneLeft = Machine Then
    			Trouve = True
    			'Wscript.Echo Ligne, , "Ligne"
    			'Wscript.Echo Machine, , "Machine"
    			ficHistorique_str = ficHistorique_str & Ligne & " --> " & PingState & vbCRLF
    		ElseIf Ligne <> "" Then
    			ficHistorique_str = ficHistorique_str & Ligne & vbCRLF
    		End If	
    	Loop
    C'est vrai, travailler avec les fichier ce n'est pas trop mon dada.

    Oui je fais des tests sur ma machine mais je n'arrive jamais au résultat attendu.

    et comme la c'est un cas vraiement tordu, je n'arrive pas à modéliser la chose et à trouver

  5. #45
    Membre Expert
    Inscrit en
    juin 2006
    Messages
    788
    Détails du profil
    Informations forums :
    Inscription : juin 2006
    Messages : 788
    Points : 1 276
    Points
    1 276

    Par défaut

    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...
    Code :
    1
    2
    3
    4
    5
    		If Ligne <> "" Then
    			LigneLeft = Left(Ligne, InStr(Ligne, " ") - 1)
    		else
    			LigneLeft = ""
    		end If
    Es-tu l'auteur du script initial ?

  6. #46
    Membre habitué
    Homme Profil pro
    Ingénieur systèmes et réseaux
    Inscrit en
    juillet 2012
    Messages
    284
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Ingénieur systèmes et réseaux
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2012
    Messages : 284
    Points : 101
    Points
    101

    Par défaut

    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 c'est plus la meme ....

  7. #47
    Nouveau Membre du Club
    Profil pro
    Technicien Help Desk
    Inscrit en
    décembre 2012
    Messages
    23
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Technicien Help Desk

    Informations forums :
    Inscription : décembre 2012
    Messages : 23
    Points : 29
    Points
    29

    Par défaut

    Pour la comparaison, effectivement.
    Pour info, avec les différentes méthodes proposées dans la discussion :
    - avec Left(Ligne, MachineLen)
    127.0.0.1 : 127.0.0.11 ok --> nok
    - avec Left(Ligne, InStr(Ligne, "_"))
    127.0.0.1 : 127.0.0.11_ok --> nok
    - avec Left(Ligne, InStr(Ligne, " ") - 1)
    127.0.0.1 : 127.0.0.11 ok --> nok

    La modélisation est simple :
    - Un fichier texte contenant les noms de machines (uniques, forcément renseignées)
    - Un fichier historique dont chaque ligne à visiter commence par un nom de machine (unique, potentiellement nul) et l'état des passages précédents
    - La ligne de l'historique correspondant au nom d'une machine donnée est mise à jour en fonction du résultat d'une commande précédente (un ping) sous la forme d'un semi-booléen (string)

    Le script peut certainement être modélisé ainsi :
    Modélisation.PNG
    Ou un truc du genre.

    Pour éviter d'avoir à faire mumuse avec des fichiers directement, ce qui peut être encombrant, je remplace les "objet.WriteLine Truc" par des "WScript.Echo Truc" pendant les essais.

+ Répondre à la discussion
Cette discussion est résolue.
Page 3 sur 3 PremièrePremière 123

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •