récupération d'un résultat d'une commande sous VBS

récupération d'un résultat d'une commande sous VBS - VB/VBA/VBS - Programmation

Marsh Posté le 26-01-2005 à 08:36:44    

bonjour à tous !!!
je voudrais en faite récupérer dans un fichier texte les données qui apparaissent sous une fenetre DOS.
J'ai réussi à faire apparaitre le résultat sous DOS mais je voudrais que ce résultat soit renvoyer directement dans un fichier texte.
Voici le début de mon développement :
 
set WshShell = CreateObject("WScript.Shell" )
WshShell.Run "Telnet",1
WScript.Sleep 4000
WshShell.AppActivate "C:\Windows\System32\Telnet.exe" 'ouverture de telnet'
WScript.Sleep 4000
WshShell.SendKeys "open 192.168.5.50{ENTER}"  'adresse du switch'
WScript.Sleep 4000
WshShell.SendKeys "a{ENTER}"
WScript.Sleep 4000
WshShell.SendKeys "b{ENTER}"    'connection de l'admin au switch'
WScript.Sleep 4000
WshShell.SendKeys "c{ENTER}"
WScript.Sleep 4000
WshShell.SendKeys "terminal length 0 {ENTER}"
WScript.Sleep 4000
WshShell.SendKeys "show mac-address-table {ENTER}" 'renvoit toutes les adresses mac des ordinateurs présents sur le switch'
WScript.Sleep 4000
WshShell.SendKeys " quit {ENTER}"
WScript.Sleep 4000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 4000
WshShell.SendKeys " quit {ENTER}"
 
Voilà si quelqu'un peut m'aider, je le remercie d'avance :bounce:

Reply

Marsh Posté le 26-01-2005 à 08:36:44   

Reply

Marsh Posté le 27-01-2005 à 07:58:22    

Plus simplement j'aimerais bien savoir quelles sont les commandes VBS qui me permettraient juste de copier du texte afin de pouvoir continuer à chercher par moi-meme.  

Reply

Marsh Posté le 03-02-2010 à 15:10:40    

Bonjour,
 
Je suis dans la même situation, je cherche je cherche et RIEN!!!
Voici le code que j'ai trouvé:

Code :
  1. @rem ////// Editez les elements ci dessous concernant votre materiel  
  2. @set tgateboxip= ip de l'host
  3. @set tgateusername= loggin
  4. @set tgatepassword= mot de passe
  5. @set tgatecommand1= commande 1
  6. @set tgatecommand2=
  7. @rem ///// Creation du script VBS pour connexion automatique  
  8. @echo set sh=WScript.CreateObject("WScript.Shell" )>>telnet.vbs
  9. @echo WScript.Sleep 500>>telnet.vbs
  10. @echo sh.SendKeys "%tgateusername%">>telnet.vbs
  11. @echo WScript.Sleep 500>>telnet.vbs
  12. @echo sh.SendKeys "~">>telnet.vbs
  13. @echo WScript.Sleep 500>>telnet.vbs
  14. @echo sh.SendKeys "%tgatepassword%">>telnet.vbs
  15. @echo sh.SendKeys "~">>telnet.vbs
  16. @echo WScript.Sleep 500>>telnet.vbs
  17. @rem ///// Lancement des commandes Telnet  
  18. @echo sh.SendKeys "%tgatecommand1%">>telnet.vbs
  19. @echo sh.SendKeys "~">>telnet.vbs
  20. @echo WScript.Sleep 500>>telnet.vbs
  21. @echo sh.SendKeys "%tgatecommand2%">>telnet.vbs
  22. @echo sh.SendKeys "~">>telnet.vbs
  23. @echo WScript.Sleep 500>>telnet.vbs
  24. @rem ///// Lancement de la session Telnet sur l'iTgatebox  
  25. @start /realtime telnet.exe %tgateboxip%
  26. @C:\Documents and Settings\xxxxxxxxxxxx\Mes documents\Mes vidéos\DivX Movies\test.txt
  27. @cscript //nologo telnet.vbs  
  28. @del /q telnet.vbs


 
Voila si je trouve une réponse je posterai ici!!!
J'espert que quelqu'un pourra nous donner une piste de recherche!!!!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed