Discussion :

[baymard]

Bonjour j'ai parcouru le forum sans succès j'ai un problème à résoudre très vite j'espère trouver une solution. Voici ma préoccupation, j'ai écrit un script qui automatise le telnet, mais je n'arrive pas à mettre le résultat dans un fichier texte et je doit aussi préciser que le script ne se ferme pas après exécution voici le script en question, il est long donc je le réduit

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
Dim objShell 
Set objShell = CreateObject("WScript.Shell") 
objShell.Run "C:\Windows\System32\telnet.exe 10.10.3.1",,False 
WScript.Sleep 100
objShell.SendKeys "admin~" 
WScript.Sleep 100
objShell.SendKeys "1" 
WScript.Sleep 100
objShell.SendKeys "1~" 
WScript.Sleep 100
objShell.SendKeys "4" 
WScript.Sleep 100
objShell.SendKeys "2" 
WScript.Sleep 100
objShell.SendKeys "1~" 
WScript.Sleep 100
objShell.SendKeys "^z" 
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "4"
WScript.Sleep 100
objShell.SendKeys "3"
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "^z"
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "4"
WScript.Sleep 100
objShell.SendKeys "3"
WScript.Sleep 100
objShell.SendKeys "1"
WScript.Sleep 100
objShell.SendKeys "^z"

J'attend vos réactions merci d'avance

[Cachlab]

Bonjour,
Il me semble que l'option -f de telnet permet de créer un fichier log :

Code :

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

objShell.Run "C:\Windows\System32\telnet.exe 10.10.3.1 -f log.txt",False

Edit : Ah j'ai raté la deuxième partie de la question !
Personnellement je terminerai le script par :

Code :

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

objShell.SendKeys "exit~"

[baymard]

Bonjour,
Il me semble que l'option -f de telnet permet de créer un fichier log :

Code :

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

objShell.Run "C:\Windows\System32\telnet.exe 10.10.3.1 -f log.txt",False

Edit : Ah j'ai raté la deuxième partie de la question !
Personnellement je terminerai le script par :

Code :

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

objShell.SendKeys "exit~"

Merci ça marche très bien mais j'ai réussi à sortir du telnet d'une autre manière.
j'ai une autre préoccupation j'ai en fait 61 fichiers textes qui doivent être créé à partir de 61 adresses IP différentes par exemple,

Code :

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

10.10.3.1, 10.10.3.2, 10.10.5.1, 10.10.1, 10.10.7.5, 10.10.8.9

comme ça 61 adresses IP diférentes et qui ne sont pas dans un ordre défini, ma préoccupation est la suivante, est ce que je dois faire 61 script différents ? parce que j'ai envie de les exécuter tous pour ensuite pouvoir les traiter

[l_autodidacte]

est ce que je dois faire 61 script différents ? parce que j'ai envie de les exécuter tous pour ensuite pouvoir les traiter

Non, il suffit de les placer dans un fichier .txt une IP par ligne puis lire le fichier ligne par ligne qu'on passera en argument tel que :
objShell.Run "C:\Windows\System32\telnet.exe Lecture",,False.
"Lecture" étant la ligne lue. Il va de soit qu'il faut boucler sur la lecture et son traitement.

[hackoofr]

ou bien vous pouvez faire d'une façon plus générale :
Par exemple vous avez un fichier nommé : Listeip.txt

Code :

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

1
2
3
4
5
6
10.10.3.1,10.10.3.2,10.10.5.1,10.10.1,10.10.7.5,10.10.8.9,10.10.8.10,10.10.8.11,10.10.8.12,10.10.8.13,10.10.8.14,10.10.8.15,10.10.8.16,10.10.8.17,10.10.8.18
 
 
127.0.0.1
192.168.1.2
192.777.888.1 ==> Ip Non Valide

et le script pour extraire les ip valides et les traiter une par une :

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
Titre = "Adresse IP"
Set oFso = CreateObject("Scripting.FileSystemObject")
If oFso.FileExists("Listeip.txt") Then
    Set f = oFso.OpenTextFile("Listeip.txt",1)
    Data = f.ReadAll
    f.Close
Else
    MsgBox "une erreur s'est produite lors de la lecture du fichier Listeip.txt",16,"Erreur de Lecture du fichier"
End If
Set objRegex = new RegExp
objRegex.Pattern = "\b((25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(25[0-5]|2[0-4]\d|1?\d?\d)\b"
objRegex.Global = True
objRegex.IgnoreCase = True
Set Matches = objRegex.Execute(Data)
For Each Match in Matches 
    MsgBox " objShell.Run C:\Windows\System32\telnet.exe " & Match.value & " -f log.txt",64,Titre
Next

[baymard]

rien ne fonctionne actuellement, je voudrais préciser que je voudrais avoir 61 fichier différent pour chaque adresse IP, pour le traitement qui sera enregistré dans la base de données