[..] identifier les ordinateurs d'un réseau

[EnvyMe]

Bonsoir,

avec le script suivant je peux identifier les ip utilisées sur mon réseau.
Cependant j'aimerai y joindre une condition afin d'identifier les pc qui sont présent.

cela afin de lancer une requete WMI sur chacun des postes.

Merci d'avance

Code : Tout sélectionner

For $i = 1 To 254 Step 1
 
 $var = Ping("192.168.1." & $i,250)
 $path = "c:"
If $var Then; also possible:  If @error = 0 Then ...
   Msgbox(0,"Status","Ip adress 192.168.1." & $i & " is ok")
Else
   Msgbox(0,"Status","Ip 192.168.1." & $i & " is not responding")
EndIf

Next
 

[Tlem]

Quelque chose comme ceci ?

► Afficher le texte

Code : Tout sélectionner

#include <Array.au3>

Global $IpList, $aIpList

For $i = 1 To 254
    ConsoleWrite("Ping 192.168.1." & $i & @CRLF)
    If Ping("192.168.1." & $i, 50) > 0 Then
        $IpList &= "192.168.1." & $i & "|"
    EndIf
Next

$IpList = StringTrimRight($IpList, 1)
$aIpList = StringSplit($IpList, "|")

_ArrayDisplay($aIpList, 'Liste des IP Actives')

[EnvyMe]

c'est parfait mais néanmoins j'aimerai n'avoir que la possibilité d'identifier les ip correspondantes aux ordinateurs du réseau... et non par exemple avoir les adresses ip des imprimantes ,routeur, ...

et a partir des adresses obtenues, je lance une requête WMI qui me rapportera par exemple le modèle ainsi que le numéro de série de chaque pc.

en lançant une requete Wmi sur le réseau, cela fonctionne jusqu'a ce qu'il tombe par exemple sur l'ip d'une imprimante...

Merci et bonne soirée

[Tlem]

Dans ce cas, il vous faudra récupérer plus d'informations qu'un simple ping ...

[Yogui]

c'est parfait mais néanmoins j'aimerai n'avoir que la possibilité d'identifier les ip correspondantes aux ordinateurs du réseau... et non par exemple avoir les adresses ip des imprimantes ,routeur, ...

et a partir des adresses obtenues, je lance une requête WMI qui me rapportera par exemple le modèle ainsi que le numéro de série de chaque pc.

en lançant une requete Wmi sur le réseau, cela fonctionne jusqu'a ce qu'il tombe par exemple sur l'ip d'une imprimante...

Merci et bonne soirée

dans les préconisation de bonne conduite à tenir dans un construction d'un réseau il est normalement indiquer que les "non Pc" doivent avoir un adressage spécifique

ex
Les routeurs et switch en 192.168.1.X
si les PC sont en 192.168.50.X
Les imprimantes seront en 192.168.100.X
...

Si vous êtes en domaine tester la présence avec FileExists du C$ de l'IP qui répond

Code : Tout sélectionner

#include <Array.au3>

Global $IpList, $aIpList

For $i = 1 To 20
    ConsoleWrite("Ping 192.168.1." & $i & @CRLF)
    If Ping("192.168.1." & $i, 80) > 0 Then
        If FileExists("\\192.168.1." & $i & "\c$\") Then
            $IpList &= "192.168.1." & $i & "|"
        EndIf
    EndIf
Next

$IpList = StringTrimRight($IpList, 1)
$aIpList = StringSplit($IpList, "|")

_ArrayDisplay($aIpList, 'Liste des IP Actives')

[EnvyMe]

Merci beaucoup a vous,

Comment se fait il que je ne puisse pas envoyer des requetes WMI a certains pc malgré le fait que le C est partager et que j'y accede en domain admin ?

Bonne soirée

[Yogui]

Parefeu windows aquivé ?

en fait c'est casi impossible de répondre sans être sur place et de tout vérifier (eventlog par exemples)