Bonsoir, j'ai créé un fichier texte "ip.txt" qui liste des adresses IP ligne par ligne. Je souhaiterais, grâce à une ligne invité de commande intégrée a mon vbs, ping toutes ces adresses une par une et inscrire le résultat dans un fichier texte. Le seul problème c'est que je ne sais pas comment remplacer "f.ReadLine" dans ma commande.... Cela est il possible ?
Merci beaucoup de votre aide,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Set f = fso.openTextFile(strHomeFolder &"\ip.txt",ForReading) Set objShell = CreateObject("Wscript.Shell") While Not f.AtEndOfStream strCommand = "Cmd.exe /C ping f.ReadLine > resultat.txt " resultat=objShell.Run(strCommand,0,True) Wend f.close
Marion
Partager