Récupération de variable vbs dans ligne cmd
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 ?
Code:
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 |
Merci beaucoup de votre aide,
Marion
