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 |
Partager