Discussion :

[grandthor]

Bonjour

Voila j'ai mon VBScript qui exécute quelque commandes, rien de bien méchant.

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
 
'Initialisation des variables
Dim shell, args, params, fso, fa,fs
 
'Initialisation du shell
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) 
'Connection telnet
shell.Run "telnet 192.168.0.1"
'Attente pendant que la connexion se fait
WScript.Sleep 2000
'Entrer du login + enter
shell.Sendkeys "toto" & vbCr
WScript.Sleep 500
'Entrer mot de pass + enter
shell.Sendkeys "toto" & vbCr
WScript.Sleep 500
'Entrer mode super-utilisateur
shell.Sendkeys "su -" & vbCr
WScript.Sleep 500
'Entrer mot de pass super-utilisateur
shell.Sendkeys "toto" & vbCr
WScript.Sleep 500
'Fenetre qui demande le numéro de la radio
reponse1=inputBox("Entrer le numéro de la radio","Radio")
'Boucle if qui récupère soit le numéro de la radio, soit rien
If reponse1="" Then
'Message d'erreur si sélection du bouton cancel du message précédent
MsgBox "Fin de programme !",vbCritical,"Erreur"
Else
If Not IsNumeric(reponse1)=True Then
'Message d'erreur si sélection du bouton cancel du message précédent
MsgBox "Numéro incorrect !",vbCritical,"Erreur"
Else
'Affiche les processus de la radio + enter - ligne non obligatoire
shell.Sendkeys "ps -fe | grep 'radio" & reponse1 & " '" & vbCr
WScript.Sleep 5000
'Stock dans une variable le ou les pids du processus à killer + enter
shell.Sendkeys "pid=${(}ps -fe | grep 'radio" & reponse1 & " ' | grep bash | cut -c 17-21 {)}" & vbCr
WScript.Sleep 5000
'Affiche le ou les pids à killer + enter - ligne non obligatoire
shell.Sendkeys "echo $pid"& vbCr
WScript.Sleep 500
reponse2=MsgBox("Voulez-vous continuer ??",vbQuestion+vbYesNo,"Radio")
If reponse2=7 Then
MsgBox "Fin de programme !",vbCritical,"Erreur"
Else
'Kill le ou les pids stock dans la variable + enter
shell.Sendkeys "kill -9 $pid"& vbCr
WScript.Sleep 500
End If
'Message de fin programme
MsgBox "Programme terminé !! ",,"Fin Radio"
End If
End If
WScript.Sleep 500
'Sortir mode super-utilisateur
shell.Sendkeys "exit" & vbCr
WScript.Sleep 500
'Sortir login et connection telnet
shell.Sendkeys "exit" & vbCr
WScript.Sleep 500
'Fermeture du programme
shell.Sendkeys vbCr

Le truc c'est que les commandes sont visible par utilisateur, notament les logins et mot de pass car le script s'exécute dans un promp DOS.

Donc je voudrais pouvoir cacher ce promp DOS ou les lignes.

Est-ce que quelqu'un a une idée ????

Merci d'avance !!!!

[grandthor]

Alors j'ai peut etre trouvé la solution mais un autre problème est survenue.

shell.Run "telnet 10.0.32.43",0

Mais le soucis maintenant c'est que mes commandes s'exécute dans le vent.
Parce que ceux : sendKeys

Quelqu'un a une solution Merci !