Scanner le reseau

Version imprimable

24/11/2012, 23h48
djdmd

Scanner le reseau

bonjour je cherche un script qui me permettrais de scanner le reseau et inserer dans un csv l adresse ip et le nom du pc
merci d avance

Citation:

Envoyé par djdmd

bonjour je cherche un script qui me permettrais de scanner le reseau et inserer dans un csv l adresse ip et le nom du pc
merci d avance

:salut:
j'ai trouvé dans le net un Scanneur en Batch qui peut répondre à votre requête :ccool: :

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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
    @echo off
    setlocal ENABLEDELAYEDEXPANSION
    set Version=v2.0 (2012)
    color 9B & mode con lines=15 cols=55
    title -: IPSCAN %Version% by Unknown :-
    set FileName=ScanIP_Unknown.csv
    set /a ID=0  
    :Start
    cls
    echo.
    echo  -: IPSCAN %Version% by Unknown :-
    echo.
    echo  ^> Entrer L^'adresse IP de début : A.B.C.D
    echo.
    set /p IPa=A:
    set /p IPb=B:
    set /p IPc=C:
    set /p IPd=D:
    echo.
    if /i "%IPa%"=="" goto ErrIP
    if /i "%IPb%"=="" goto ErrIP
    if /i "%IPc%"=="" goto ErrIP
    if /i "%IPd%"=="" goto ErrIP
    set StartIP=%IPa%.%IPb%.%IPc%.%IPd%
    echo.
    echo %StartIP%
    echo.
    echo  ^> Entrer L^'adresse IP de Fin : W.X.Y.Z
    echo.
    set /p IPw=W:
    set /p IPx=X:
    set /p IPy=Y:
    set /p IPz=Z:
    echo.
    if /i "%IPw%"=="" goto ErrIP
    if /i "%IPx%"=="" goto ErrIP
    if /i "%IPy%"=="" goto ErrIP
    if /i "%IPz%"=="" goto ErrIP
    set LASTIP=%IPw%.%IPx%.%IPy%.%IPz%
    echo.
    echo %LASTIP%
     Goto Process
    :Process
    echo [IP];[RESULTAT];[DATE];[HEURE] > !FileName!
    cls
    echo Scan From %StartIP% To %LASTIP%
    for /L %%a in (%IPa%,1,%IPw%) do (
    for /L %%b in (%IPb%,1,%IPx%) do (
    for /L %%c in (%IPc%,1,%IPy%) do (
    for /L %%d in (%IPd%,1,%IPz%) do (
    set IP=%%a.%%b.%%c.%%d
    call :PingIP !IP!
    cls
    echo.
    echo  -: IPSCAN !Version! by Unknown :-
    echo.
    echo  ^> Stats: ID=^>!ID! , !TIME!
    echo.
    echo  Scan From %StartIP% To %LASTIP%
    echo.
    echo  ^> Initial IP Adress: [!StartIP!]
    echo.
    echo                  [  ...  ]
    echo.
    echo  ^> Current IP Adress: [!IP!] =^> [!PingResult!]
    )
    )
    )
    )
    goto End    
    :End
    cls
    echo.
    echo  -: IPSCAN !Version! by Unknown :-
    echo.
    echo  ^> Finished!
    echo.
    echo.
    pause
    Start %FileName%
    exit  
    :ErrIP
    cls
    echo.
    echo  -: IPSCAN !Version! by Unknown :-
    echo.
    echo ^> ERROR: Invalid IP adress.
    echo.
    pause
    goto Start    
    :PingIP
    set PingIP=%1
    for /F %%p in ('ping %PingIP% -n 1 ^| find /c ^"ponse^"') do set PingResult=%%p
    if /i "%PingResult%"=="1" (
    set PingResult=Active
    ) else (
    set PingResult=Not Active
    )
    set /a ID=ID+1
    echo !PingIP!;[!PingResult!];[!DATE!];[!TIME!]>>!FileName!

25/11/2012, 19h08
djdmd

merci mr hackoo votre batch est sympathique :ccool: mais il me manque les noms des pc.
de plus si ça pouvez me garder dans le csv que les ip actives ce serait top.
enfin est il possible a partir de l adresse actuelle du pc sur lequel on est + masque de sous reseau de determiner la plage d adresse a parcourir

merci d avance
25/11/2012, 19h43
hackoofr

Citation:

Envoyé par djdmd

merci mr hackoo votre batch est sympathique :ccool: mais il me manque les noms des pc.
de plus si ça pouvez me garder dans le csv que les ip actives ce serait top.
enfin est il possible a partir de l adresse actuelle du pc sur lequel on est + masque de sous reseau de determiner la plage d adresse a parcourir
merci d avance

:salut:
Primo ce n'est pas mon batch :lol:
secondo si vous n'êtes pas encore satisfait je vous conseille d'aller au forum spécialisé dans le [Batch] et vous posiez votre problème pour la modification :mouarf:
26/11/2012, 16h28
djdmd

bonjour
je vous prie de bien vouloir m excuser de vous avoir vexer en vous attribuant ce script.
je demandais si c etais possible de mofifier en pensant que vous auriez pet etre une reponse a m apporter car je vois diverses interventions de votre part qui ont amenes des reponses aux demandeurs
je m en vais de ce pas de cette partie du forum
:whistle: