utilisation de fichier text pour vbs

bonjour,
j'ai cree un script qui me permet de configurer des switch par une commande permetant au switch d'aller telecharger le fichier de conf :yaisse2: le seul souci c'est que pour charger il dois rebooter :? de qui plante mon reseau pendant 3 mn :calim2:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

ip=inputbox("enrtee le nom ou l'adresse Ip du switch a configurer","config auto switch") txt=inputbox("entre le nom du fichier txt de configuration du switch (dispo sur le serveur tftp)") msgbox "le switch cible et ["&ip&"] le fichier de conf ["&txt&"]" Dim shell, args, params, fso, fa, fs Set shell = WScript.CreateObject("WScript.Shell") Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set args = Wscript.Arguments Script=Lcase(Wscript.ScriptFullName) set fs=fso.GetFile(Script) sps=lcase(fs.ShortPath) shell.Run "telnet "&ip&"" WScript.Sleep 500 shell.Sendkeys "enable{enter}" WScript.Sleep 100 shell.Sendkeys "sos{enter}" WScript.Sleep 100 shell.Sendkeys "copy tftp startup-config 192.168.2.40 "&txt&"{enter}" WScript.Sleep 100 shell.Sendkeys "y{enter}"

---

j'aimerais savoir comment faire pour que le script ouvre lui même un fichier text saisis par une variable et enchaine les lignes dans le shell.Sendkeys afin de configurer le switch sans avoir a rebooter... :koi:

dejas 3h que je cherhce sans rien trouve :arf:

voila j'espert avoir ete claire...:mrgreen:

en vous remerciant par avance des reponses que vous pourrez me donnes:ccool:

cordialment
Eo

Heu tu veux faire cela ?
http://vb.developpez.com/faqvbs/?pag...#fsoLitFichier

donc ouaip ca marche nikel et voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

ip=inputbox("enrtee le nom ou l'adresse Ip du switch a configurer","config auto switch") txt=inputbox("entre le nom du fichier txt contenant les commandes a effectuer sur le switch (un fichier du meme nom seras cree sur le serveur pour verifier la configuration du switch).") msgbox "le switch cible et ["&ip&"] le fichier est ["&txt&"] " Dim shell, args, params, fso, fa, fs , oFso, f Const ForReading = 1, ForWriting = 2 Set shell = WScript.CreateObject("WScript.Shell") Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set args = Wscript.Arguments Script=Lcase(Wscript.ScriptFullName) set fs=fso.GetFile(Script) sps=lcase(fs.ShortPath) shell.Run "telnet "&ip&"" WScript.Sleep 500 shell.Sendkeys "passw{enter}" WScript.Sleep 100 shell.Sendkeys "config{enter}" Set oFso = CreateObject("Scripting.FileSystemObject") Set f = oFso.OpenTextFile("c:\fichconf\"&txt&"", ForReading) while Not f.AtEndOfStream shell.Sendkeys ""&f.ReadLine&"{enter}" WScript.Sleep 100 Wend f.Close shell.Sendkeys "write memory{enter}" WScript.Sleep 100 shell.Sendkeys "copy startup-config tftp 10.128.217.84 "&txt&"{enter}" WScript.Sleep 100 shell.Sendkeys "exit{enter}" WScript.Sleep 1000shell.Sendkeys "exit{enter}" WScript.Sleep 100 shell.Sendkeys "exit{enter}" WScript.Sleep 100 shell.Sendkeys "y{enter}" WScript.Sleep 100 shell.Sendkeys "{enter}"

---

:yaisse2:
d'ailleur dsl pour le post qui sert a rien vu que c'est dans les FAQ mais sinon j'ai un autre piti probleme car on me demande de faire en sorte qu'au lieu d'avoir des fenetre de saisie de l'@Ip et du fichier text les entre directement a l'appel du script avec des pârametre de demarrage avec une commade dans le style

script.vbs 192.168.1.56 config.txt

et hop il boss tt seul... 8-)
en tt cas merci pour la rapuiditee de la reponse :)

http://vb.developpez.com/faqvbs/?page=II.1#vbsArguments ?

:mouarf1: nikel et bien on dirrais que j'avais une sacree couche de crasse dans les yeux pour ne rien voir dans les faq m'enfin :merci: tt plein ma solution et developpée et fonctionne parfaitement Encore merci a vous :hola: sans qui je n'aurrais po reussi grand chose... :applo:

aller hop bonne journne :mrgreen: