IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Scanner le reseau


Sujet :

VBScript

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Août 2009
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Calvados (Basse Normandie)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Août 2009
    Messages : 37
    Points : 35
    Points
    35
    Par défaut 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

  2. #2
    Expert éminent
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 839
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 839
    Points : 9 222
    Points
    9 222
    Par défaut
    Citation Envoyé par djdmd Voir le message
    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

    j'ai trouvé dans le net un Scanneur en Batch qui peut répondre à votre requête :
    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
    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!

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Août 2009
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Calvados (Basse Normandie)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Août 2009
    Messages : 37
    Points : 35
    Points
    35
    Par défaut
    merci mr hackoo votre batch est sympathique 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

  4. #4
    Expert éminent
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 839
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 839
    Points : 9 222
    Points
    9 222
    Par défaut
    Citation Envoyé par djdmd Voir le message
    merci mr hackoo votre batch est sympathique 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

    Primo ce n'est pas mon batch
    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

  5. #5
    Nouveau membre du Club
    Homme Profil pro
    Conseil - Consultant en systèmes d'information
    Inscrit en
    Août 2009
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Calvados (Basse Normandie)

    Informations professionnelles :
    Activité : Conseil - Consultant en systèmes d'information
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Août 2009
    Messages : 37
    Points : 35
    Points
    35
    Par défaut
    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

Discussions similaires

  1. [WD17] Scanner un Reseau
    Par dsr57 dans le forum WinDev
    Réponses: 4
    Dernier message: 22/11/2013, 09h46
  2. comment scanner un reseau
    Par zamti dans le forum Applications
    Réponses: 4
    Dernier message: 24/05/2013, 16h16
  3. impossible de lancer NESSUS (scanner reseau)
    Par jdjerame8 dans le forum Sécurité
    Réponses: 4
    Dernier message: 20/01/2011, 09h05
  4. Scanner Ip d'un reseau de classe C
    Par benjamin-mermoz dans le forum Windows Forms
    Réponses: 4
    Dernier message: 12/01/2009, 11h18
  5. ensemble [Imprimante / Scanner ] partage sur un reseau
    Par busy999 dans le forum Périphériques
    Réponses: 3
    Dernier message: 31/10/2005, 18h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo