récupération d'un résultat d'une commande sous VBS - VB/VBA/VBS - Programmation
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.
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 :
|
Voila si je trouve une réponse je posterai ici!!!
J'espert que quelqu'un pourra nous donner une piste de recherche!!!!
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