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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
| option explicit
dim fso, ipdebut, ipencours, ipfin, PING, PINGIT, MyFile
dim ipd1 ,ipd2, ipd3 ,ipd4 , ipf1, ipf2, ipf3, ipf4
dim WshShell
const ForAppending = 8
const FichierLOG= ""
const NbTestPing = 4
dim ipnumfin, ipnumencours
ipd1=cbyte(inputbox("ipdebut octet1: "))
ipd2=cbyte(inputbox("ipdebut octet2: "))
ipd3=cbyte(inputbox("ipdebut octet3: "))
ipd4=cbyte(inputbox("ipdebut octet4: "))
if ipd4 > 254 OR ipd3 > 254 OR ipd4 = 0 OR ipd3 = 0 then
if ipd4 = 0 OR ipd3 = 0 then
wscript.echo " Un octet ne doit pas etre egale a 0 " & vbcrlf & _
" Le programme va quitter "
else
wscript.echo " Un octet ne doit pas depasser 254 " & vbcrlf & _
" Le programme va quitter "
end if
ipdebut=ipd1 & "." & ipd2 & "." & ipd3 & "." & ipd4
ipencours=ipdebut
Msgbox "IP NON VALIDE = " & ipencours
WScript.Quit
end if
ipdebut=ipd1 & "." & ipd2 & "." & ipd3 & "." & ipd4
Msgbox "Debut de la plage ip = " & ipdebut
ipencours=ipdebut
ipf1=cbyte(inputbox("ipfin octet1: "))
ipf2=cbyte(inputbox("ipfin octet2: "))
ipf3=cbyte(inputbox("ipfin octet3: "))
ipf4=cbyte(inputbox("ipfin octet4: "))
if ipf4 > 254 OR ipf3 > 254 OR ipf4 = 0 OR ipf3 = 0 then
if ipf4 = 0 OR ipf3 = 0 then
wscript.echo " Un octet ne doit pas etre egale a 0 " & vbcrlf & _
" Le programme va quitter "
else
wscript.echo " Un octet ne doit pas depasser 254 " & vbcrlf & _
" Le programme va quitter "
end if
ipfin = ipf1 & "." & ipf2 & "." & ipf3 & "." & ipf4
Msgbox "IP NON VALIDE = " & ipfin
WScript.Quit
end if
ipfin = ipf1 & "." & ipf2 & "." & ipf3 & "." & ipf4
Msgbox "Fin de la plage ip = " & ipfin
ipnumfin=ipf1*16^6 + ipf2*16^4 + ipf3*16^2 + ipf4
pinglogcreate()
do
call pingexe
if PING = 0 then
pinglogwrite()
else
call pingexebis
end if
ipd4 = ipd4 + 1
ipencours=ipd1 & "." & ipd2 & "." & ipd3 & "." & ipd4
ipnumencours=ipd1*16^6 + ipd2*16^4 + ipd3*16^2 + ipd4
if ipd4 = 254 then
ipd3 = ipd3 + 1
ipd4 = 0
end if
loop until ipnumencours > ipnumfin 'cStr(ipencours) > cStr(ipfin)
wscript.echo "c fini"
pinglogclose()
'01 - creation de l'objet
sub creer_objet_fso()
Set fso = CreateObject("Scripting.FileSystemObject")
end sub
'02 - procedure création du fichier log+ecriture de la plage
sub pinglogcreate()
creer_objet_fso()
Set MyFile = fso.CreateTextFile("noterping.txt", ForAppending, True)
' MyFile.WriteLine()
end Sub
'03 - Fonction ping
function pingexe
set WshShell = CreateObject ("Wscript.shell")
PINGIT="cmd /c ping " & ipencours & " -n " & NbTestPing
PING = WshShell.Run(PINGIT,1,TRUE)
End Function
'03bis - Fonction ping2
function pingexebis
set WshShell = CreateObject ("Wscript.shell")
PINGIT="cmd /c ping " & ipencours & " -n 1"
PING = WshShell.Run(PINGIT,1,TRUE)
End Function
'04 - ECRIRE les ping qui ont rép positiv
sub pinglogwrite()
MyFile.WriteLine(ipencours)
end sub
'05 - FERMER le FICHIER LOG
sub pinglogclose()
MyFile.Close
end Sub |
[VBSCRIPT]Obtenir des info sur un PC distant
!!), puis on écrit dans un fichier UNIQUEMENT les adresse qui réponde à la requête. Bon!!
Répondre avec citation
Partager