Automatisation telnet et copie vers fichier text

Version imprimable

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:

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

13/08/2013, 11h20
Cachlab

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

Code:

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:

objShell.SendKeys "exit~"
13/08/2013, 16h24
baymard

Citation:

Envoyé par Cachlab

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

Code:

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:

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:

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
13/08/2013, 20h04
l_autodidacte

Citation:

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.

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

Code:

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:

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

14/08/2013, 10h47
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

Bonjour,
En reprenant la méthode de hackoofr de manière plus simple (moins de contrôle), voici comment tu pourrais procéder :

Code:

1
2
3
4
5
6
7
8
9
For Each strIP in Split(CreateObject("Scripting.FileSystemObject").oFso.OpenTextFile("Listeip.txt",1).ReadAll, ",")
	objShell.Run "C:\Windows\System32\telnet.exe " & strIP & " -f " & strIP & "-log.txt",,False
	WScript.Sleep 100
	objShell.SendKeys "admin~" 
	WScript.Sleep 100
	'...
	WScript.Sleep 100
	objShell.SendKeys "^z"
Next

Bonne continuation

14/08/2013, 11h23
baymard

il ya une erreur de complilation qui dit

Code:

Cet objet ne gère pas cette propriété ou cette méthode

c'est sur la ligne: 1 caract: 1
14/08/2013, 11h27
hackoofr

Citation:

Envoyé par baymard

il ya une erreur de complilation qui dit

Code:

Cet objet ne gère pas cette propriété ou cette méthode

c'est sur la ligne: 1 caract: 1

Postez votre fichier ou il y a les adresses ip et le script que vous avez utiliser
:merci:

voici le fichier qui contient les adresses IP

Code:

10.10.3.1, 10.10.3.2, 10.10.3.3, 10.10.3.4, 10.10.3.18, 10.10.3.6, 10.10.3.7, 10.10.3.8, 10.10.3.9, 10.10.3.15, 10.10.3.17, 10.10.3.16, 10.10.3.12, 10.10.3.14, 10.10.3.13, 10.10.3.19, 10.10.3.20, 10.10.3.22, 10.10.3.23, 10.10.3.24, 10.10.3.26, 10.10.3.25, 10.10.5.1, 10.10.5.2, 10.10.5.3, 10.10.5.4, 10.10.5.5, 10.10.5.6, 10.10.5.7, 10.10.5.8, 10.10.5.9, 10.10.5.10, 10.10.5.16, 10.10.5.12, 10.10.5.14, 10.10.5.15, 10.10.5.13, 10.10.5.17, 10.10.5.20, 10.10.5.21, 10.10.8.1, 10.10.5.19, 10.10.5.23, 10.10.5.18, 10.10.5.22, 10.10.5.24, 10.10.5.25, 10.10.7.1, 10.10.7.2, 10.10.7.3, 10.10.7.4, 10.10.7.5, 10.10.8.7, 10.10.8.9, 10.10.8.4, 10.10.8.3, 10.10.8.8, 10.10.8.2, 10.10.8.6, 10.10.8.5, 10.10.8.10.txt

Maintenant voici 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
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
70
71
72
73
74
75
76
77
For Each strIP in Split(CreateObject("Scripting.FileSystemObject").oFso.OpenTextFile("Listeip.txt",1).ReadAll, ",")
	objShell.Run "C:\Windows\System32\telnet.exe " & strIP & " -f " & strIP & "-log.txt",,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"
	WScript.Sleep 100
	objShell.SendKeys "1"
	WScript.Sleep 100
	objShell.SendKeys "2"
	WScript.Sleep 100
	objShell.SendKeys "7"
	WScript.Sleep 100
	objShell.SendKeys "3"
	WScript.Sleep 100
	objShell.SendKeys "^z"
	WScript.Sleep 100
	objShell.SendKeys "2"
	WScript.Sleep 100
	objShell.SendKeys "1~"
	WScript.Sleep 100
	objShell.SendKeys "~"
	WScript.Sleep 100
	objShell.SendKeys "~"
	WScript.Sleep 100
	objShell.SendKeys "^z"
	WScript.Sleep 100
	objShell.SendKeys "4"
	WScript.Sleep 100
	objShell.SendKeys "1~"
	WScript.Sleep 100
	objShell.SendKeys "^z"
	WScript.Sleep 100
	objShell.SendKeys "5"
	WScript.Sleep 100
	objShell.SendKeys "1~"
	WScript.Sleep 100
	objShell.SendKeys "~"
	WScript.Sleep 100
	objShell.SendKeys "^z"
	WScript.Sleep 100
	objShell.SendKeys "x"
	WScript.Sleep 100
	objShell.SendKeys "y~"
	WScript.Sleep 100
	objShell.SendKeys "~"
	Next

Bonjour,

Excusez-moi ma coquille.
Ca devrait mieux marcher comme ça :

Code:

1
2
3
4
5
For Each strIP in Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("Listeip.txt",1).ReadAll, ",")
     strIP = Trim(strIP)
     objShell.Run "..."
     '... Suite
Next

Bonne continuation

Citation:
Envoyé par pitchalov
Bonjour,

Excusez-moi ma coquille.
Ca devrait mieux marcher comme ça :
Code:

1 2 3 4 5 For Each strIP in Split(CreateObject("Scripting.FileSystemObject").OpenTextFile("Listeip.txt",1).ReadAll, ",") strIP = Trim(strIP) objShell.Run "..." '... Suite Next
Bonne continuation
ça ne fonctionne toujours pas

Voici mes adresses IP

Code:

10.10.3.1, 10.10.3.2, 10.10.3.3, 10.10.3.4, 10.10.3.18, 10.10.3.6, 10.10.3.7, 10.10.3.8, 10.10.3.9, 10.10.3.15, 10.10.3.17, 10.10.3.16, 10.10.3.12, 10.10.3.14, 10.10.3.13, 10.10.3.19, 10.10.3.20, 10.10.3.22, 10.10.3.23, 10.10.3.24, 10.10.3.26, 10.10.3.25, 10.10.5.1, 10.10.5.2, 10.10.5.3, 10.10.5.4, 10.10.5.5, 10.10.5.6, 10.10.5.7, 10.10.5.8, 10.10.5.9, 10.10.5.10, 10.10.5.16, 10.10.5.12, 10.10.5.14, 10.10.5.15, 10.10.5.13, 10.10.5.17, 10.10.5.20, 10.10.5.21, 10.10.8.1, 10.10.5.19, 10.10.5.23, 10.10.5.18, 10.10.5.22, 10.10.5.24, 10.10.5.25, 10.10.7.1, 10.10.7.2, 10.10.7.3, 10.10.7.4, 10.10.7.5, 10.10.8.7, 10.10.8.9, 10.10.8.4, 10.10.8.3, 10.10.8.8, 10.10.8.2, 10.10.8.6, 10.10.8.5, 10.10.8.10.txt

Et ceci c'est le code qui passe lorsque je check une seule adresse
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 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 Dim objShell Set objShell = CreateObject("WScript.Shell") objShell.Run "C:\Windows\System32\telnet.exe 10.10.3.2 -f logs.txt",,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" WScript.Sleep 100 objShell.SendKeys "1" WScript.Sleep 100 objShell.SendKeys "2" WScript.Sleep 100 objShell.SendKeys "7" WScript.Sleep 100 objShell.SendKeys "3" WScript.Sleep 100 objShell.SendKeys "^z" WScript.Sleep 100 objShell.SendKeys "2" WScript.Sleep 100 objShell.SendKeys "1~" WScript.Sleep 100 objShell.SendKeys "~" WScript.Sleep 100 objShell.SendKeys "~" WScript.Sleep 100 objShell.SendKeys "^z" WScript.Sleep 100 objShell.SendKeys "4" WScript.Sleep 100 objShell.SendKeys "1~" WScript.Sleep 100 objShell.SendKeys "^z" WScript.Sleep 100 objShell.SendKeys "5" WScript.Sleep 100 objShell.SendKeys "1~" WScript.Sleep 100 objShell.SendKeys "~" WScript.Sleep 100 objShell.SendKeys "^z" WScript.Sleep 100 objShell.SendKeys "x" WScript.Sleep 100 objShell.SendKeys "y~" WScript.Sleep 100 objShell.SendKeys "~"

:salut:

Code:

1
2
3
4
5
Set oFso=CreateObject("Scripting.FileSystemObject")
For Each strIP in Split(oFso.OpenTextFile("Listeip.txt",1).ReadAll, ",")
    strIP = Trim(strIP)
    MsgBox "objShell.Run C:\Windows\System32\telnet.exe " & strIP & " -f " & strIP & "-log.txt"
Next

et vous avez à la fin du fichier qui contient les adresses ip une non valide :

Citation:

10.10.8.10~~.txt~~

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
10.10.3.1, 10.10.3.2, 10.10.3.3, 10.10.3.4, 10.10.3.18, 10.10.3.6, 10.10.3.7, 10.10.3.8, 10.10.3.9, 10.10.3.15, 
 
10.10.3.17, 10.10.3.16, 10.10.3.12, 10.10.3.14, 10.10.3.13, 10.10.3.19, 10.10.3.20, 10.10.3.22, 10.10.3.23, 
 
10.10.3.24, 10.10.3.26, 10.10.3.25, 10.10.5.1, 10.10.5.2, 10.10.5.3, 10.10.5.4, 10.10.5.5, 10.10.5.6, 10.10.5.7, 
 
10.10.5.8, 10.10.5.9, 10.10.5.10, 10.10.5.16, 10.10.5.12, 10.10.5.14, 10.10.5.15, 10.10.5.13, 10.10.5.17, 
 
10.10.5.20, 10.10.5.21, 10.10.8.1, 10.10.5.19, 10.10.5.23, 10.10.5.18, 10.10.5.22, 10.10.5.24, 10.10.5.25, 
 
10.10.7.1, 10.10.7.2, 10.10.7.3, 10.10.7.4, 10.10.7.5, 10.10.8.7, 10.10.8.9, 10.10.8.4, 10.10.8.3, 10.10.8.8, 
 
10.10.8.2, 10.10.8.6, 10.10.8.5, 10.10.8.10

Citation:

Envoyé par baymard

ça ne fonctionne toujours pas

OK. Qu'est-ce qui ne fonctionne toujours pas? Les messages d'erreur sont-ils différents, que disent-ils?
Ce n'est qu'un bout du code qui est mis là, il faut le compléter avec ce que tu as dans ton script initial et qui fonctionne.

Si tu veux le code complet :

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Set objShell = CreateObject("WScript.Shell")
Set objFso=CreateObject("Scripting.FileSystemObject")
For Each strIP in Split(objFso.OpenTextFile("Listeip.txt",1).ReadAll, ",")
	strIP = Trim(strIP)
	objShell.Run "C:\Windows\System32\telnet.exe " & strIP & " -f " & strIP & "-log.txt",,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"
	WScript.Sleep 100
	objShell.SendKeys "1"
	WScript.Sleep 100
	objShell.SendKeys "2"
	WScript.Sleep 100
	objShell.SendKeys "7"
	WScript.Sleep 100
	objShell.SendKeys "3"
	WScript.Sleep 100
	objShell.SendKeys "^z"
	WScript.Sleep 100
	objShell.SendKeys "2"
	WScript.Sleep 100
	objShell.SendKeys "1~"
	WScript.Sleep 100
	objShell.SendKeys "~"
	WScript.Sleep 100
	objShell.SendKeys "~"
	WScript.Sleep 100
	objShell.SendKeys "^z"
	WScript.Sleep 100
	objShell.SendKeys "4"
	WScript.Sleep 100
	objShell.SendKeys "1~"
	WScript.Sleep 100
	objShell.SendKeys "^z"
	WScript.Sleep 100
	objShell.SendKeys "5"
	WScript.Sleep 100
	objShell.SendKeys "1~"
	WScript.Sleep 100
	objShell.SendKeys "~"
	WScript.Sleep 100
	objShell.SendKeys "^z"
	WScript.Sleep 100
	objShell.SendKeys "x"
	WScript.Sleep 100
	objShell.SendKeys "y~"
	WScript.Sleep 100
	objShell.SendKeys "~"
Next

Bonne continuation

Citation:

Envoyé par pitchalov

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Set objShell = CreateObject("WScript.Shell")
Set objFso=CreateObject("Scripting.FileSystemObject")
For Each strIP in Split(objFso.OpenTextFile("Listeip.txt",1).ReadAll, ",")
	strIP = Trim(strIP)
	objShell.Run "C:\Windows\System32\telnet.exe " & strIP & " -f " & strIP & "-log.txt",,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"
	WScript.Sleep 100
	objShell.SendKeys "1"
	WScript.Sleep 100
	objShell.SendKeys "2"
	WScript.Sleep 100
	objShell.SendKeys "7"
	WScript.Sleep 100
	objShell.SendKeys "3"
	WScript.Sleep 100
	objShell.SendKeys "^z"
	WScript.Sleep 100
	objShell.SendKeys "2"
	WScript.Sleep 100
	objShell.SendKeys "1~"
	WScript.Sleep 100
	objShell.SendKeys "~"
	WScript.Sleep 100
	objShell.SendKeys "~"
	WScript.Sleep 100
	objShell.SendKeys "^z"
	WScript.Sleep 100
	objShell.SendKeys "4"
	WScript.Sleep 100
	objShell.SendKeys "1~"
	WScript.Sleep 100
	objShell.SendKeys "^z"
	WScript.Sleep 100
	objShell.SendKeys "5"
	WScript.Sleep 100
	objShell.SendKeys "1~"
	WScript.Sleep 100
	objShell.SendKeys "~"
	WScript.Sleep 100
	objShell.SendKeys "^z"
	WScript.Sleep 100
	objShell.SendKeys "x"
	WScript.Sleep 100
	objShell.SendKeys "y~"
	WScript.Sleep 100
	objShell.SendKeys "~"
Next

Bonne continuation

Code s'exécute mais plusieurs fichiers sont vides alors qu'elles n'ont aucun problème, en plus de ca les fichiers texte s'ouvrent et ne se referment pas.
parce que ce travail doit etre fait en arrière plan.
Je me dis que pour etre sûr des informations que je pourrais récupérer, serait de faire par exemple un script batch qui pourra exécuter plusieurs scripts vbs.
est ce que c'est possible ?

14/08/2013, 15h47
hackoofr

:salut:
ça donne quoi si tu changes cette ligne :

Code:

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

par celle la :

Code:

objShell.Run "C:\Windows\System32\telnet.exe " & strIP & " -f " & strIP & "-log.txt",1,True
14/08/2013, 17h00
baymard

Citation:

Envoyé par hackoofr

:salut:
ça donne quoi si tu changes cette ligne :

Code:

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

par celle la :

Code:

objShell.Run "C:\Windows\System32\telnet.exe " & strIP & " -f " & strIP & "-log.txt",1,True

j'ai du redémarrer ma machine, une boucle infini d'exécution