Problème de caractère Spéciaux HELP!

Version imprimable

27/02/2014, 15h08
kyoshiro0

Problème de caractère Spéciaux HELP!

Bonjour à tous,

autant vous l'annoncer de but en blanc je ne suis pas dev pour deux sous mais je n'ai pas trop le choix en ce moment...

Voilà toute l'histoire: j'ai une dizaine de scripts qui envoient des commandes sur mes switchs Cisco, jusqu'à maintenant pas de problèmes...

Mais dernièrement j'ai voulu utiliser un pipe dans ma commande (|), malheureusement ce caractère est interprété dans le code mais n'est pas renvoyé dans la console de mon équipement...

J'ai bien essayé d'utiliser & Chr(124) & mais bien évidemment le résultat est le même...

Est-il possible par un caractère quelconque qu'une ligne ne soit pas prise en compte et renvoyé directement dans mon équipement...

J'en suis rendu a bruler des cierges dans mon open space.... Au secours!! et merci pour vos futures réponses même si je me doute que ce n'est pas très clair...

:salut: Inspirez-vous de ce script qui vous montre comment exécuter quelques commandes DOS , sinon postez votre code et :tagcode:

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
36
37
38
39
40
41
42
43
44
45
46
Option Explicit
Call ListPC()
Call WLAN_Networks()
'***************************************************************************************
Function Executer(StrCmd,Console)
    Dim ws,MyCmd,Resultat
    Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
    If Console = 0 Then
        MyCmd = "CMD /C " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,True)
        If Resultat = 0 Then
            'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
'La valeur 1 pour montrer la console MS-DOS
    If Console = 1 Then
        MyCmd = "CMD /K " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,False)
        If Resultat = 0 Then
            'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
    Executer = Resultat
End Function
'***************************************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'***************************************************************************************
Sub ListPC()
Dim Command
Command = "net view | find " & Dblquote("\\") & " > pclist.txt & Start pclist.txt" 
Call Executer(Command,0)
End Sub
'***************************************************************************************
Sub WLAN_Networks()
    If Executer("netsh wlan show profiles > Wlan_tmp.txt & netsh wlan show networks >> Wlan_tmp.txt & netsh wlan show interfaces >> Wlan_tmp.txt & cmd /U /C Type Wlan_tmp.txt > Wlan_Networks.txt",0) = 0 Then
        Call Executer("Start Wlan_Networks.txt & Del Wlan_tmp.txt",0)
    End If
End Sub
'***************************************************************************************

Bonjour,

merci de votre réponse mais j'avoue m'y perdre un peu ^^'

Voila ce que donne la partie en question de mon script

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
 
    'SRVB
    'SRVD
    set sh=WScript.CreateObject("WScript.Shell")
    WScript.Sleep 300
    sh.SendKeys "nom"
    sh.SendKeys "~"
    WScript.Sleep 100
    sh.SendKeys "mdp"
    sh.SendKeys "~"
    WScript.Sleep 100
    sh.SendKeys "~"
    sh.SendKeys "sh run int gi 7/16 | redirect tftp://1.1.1.1/SRVD.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int gi 7/24 | redirect tftp://1.1.1.1/SRVB.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int gi 7/12 | redirect tftp://1.1.1.1/SRVB.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int gi 7/20 | redirect tftp://1.1.1.1/SRVD.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int Po17 | redirect tftp://1.1.1.1/SRVB.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int Po19 | redirect tftp://1.1.1.1/SRVD.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int Po16 | redirect tftp://1.1.1.1/SRVB.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int Po18 | redirect tftp://1.1.1.1/SRVD.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int gi 7/13 | redirect tftp://1.1.1.1/SRVB.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int gi 7/21 | redirect tftp://1.1.1.1/SRVD.txt"
    sh.SendKeys "~"
    sh.SendKeys "end"
    sh.SendKeys "~"

Un autre script me permet de modifier les champs "nom" et "mdp" et transmet l'ensemble de ces commandes par l'intermédiaire d'un putty, seulement voilà le résultat dans le switch:
sh run int gi 7/21 redirect tftp://1.1.1.1/SRVD.txt

Il faudrait que je puisse transmettre l'ensemble de ces lignes sans que le pipe soit interprété :weird:.

07/03/2014, 11h56
BeN0o8

Bonjour ,

Pas sur de moi vu que les | ne semblent pas être interprétés par le SendKeys mais dans le doute entoure les de {}.
07/03/2014, 13h45
kyoshiro0

Bonjour,

malheureusement cela ne fonctionne pas... Je me demande même si cela est possible, je pense avoir a peu près tout essayer ({,"",'' ou autre).

Il faut certainement que je cherche avec autre que chose que Sendkeys...

Une vérification du résultat peut se faire en modifiant le script ainsi :

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
    set sh=WScript.CreateObject("WScript.Shell")
    sh.Run "Wordpad.exe", 1, 0
    sh.AppActivate "Wordpad.exe"
    WScript.Sleep 3000 ' temps nécessaire pour activer Wordpad
    sh.SendKeys "nom"
    sh.SendKeys "~"
    WScript.Sleep 100
    sh.SendKeys "mdp"
    sh.SendKeys "~"
    WScript.Sleep 100
    sh.SendKeys "~"
    sh.SendKeys "sh run int gi 7/16 | redirect tftp://1.1.1.1/SRVD.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int gi 7/24 | redirect tftp://1.1.1.1/SRVB.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int gi 7/12 | redirect tftp://1.1.1.1/SRVB.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int gi 7/20 | redirect tftp://1.1.1.1/SRVD.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int Po17 | redirect tftp://1.1.1.1/SRVB.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int Po19 | redirect tftp://1.1.1.1/SRVD.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int Po16 | redirect tftp://1.1.1.1/SRVB.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int Po18 | redirect tftp://1.1.1.1/SRVD.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int gi 7/13 | redirect tftp://1.1.1.1/SRVB.txt"
    sh.SendKeys "~"
    sh.SendKeys "sh run int gi 7/21 | redirect tftp://1.1.1.1/SRVD.txt"
    sh.SendKeys "~"
    sh.SendKeys "end"
    sh.SendKeys "~"