Discussion :

[eozenn]

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 le seul souci c'est que pour charger il dois rebooter de qui plante mon reseau pendant 3 mn

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

dejas 3h que je cherhce sans rien trouve

voila j'espert avoir ete claire...

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

cordialment
Eo

[ced600]

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

[eozenn]

donc ouaip ca marche nikel et voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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}"

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...
en tt cas merci pour la rapuiditee de la reponse

[ced600]

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

[eozenn]

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 tt plein ma solution et developpée et fonctionne parfaitement Encore merci a vous sans qui je n'aurrais po reussi grand chose...

aller hop bonne journne