Page 1 sur 1
[..] identifier les ordinateurs d'un réseau
Posté : mer. 02 juin 2010 20:09
par 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
Re: [..] identifier les ordinateurs d'un réseau
Posté : mer. 02 juin 2010 23:11
par 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')
Re: [..] identifier les ordinateurs d'un réseau
Posté : jeu. 03 juin 2010 00:48
par 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
Re: [..] identifier les ordinateurs d'un réseau
Posté : jeu. 03 juin 2010 00:53
par Tlem
Dans ce cas, il vous faudra récupérer plus d'informations qu'un simple ping ...
Re: [..] identifier les ordinateurs d'un réseau
Posté : jeu. 03 juin 2010 12:29
par Yogui
EnvyMe a écrit :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
Administrateur réseau Yogui a écrit :
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')
Re: [..] identifier les ordinateurs d'un réseau
Posté : ven. 04 juin 2010 23:06
par 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
Re: [..] identifier les ordinateurs d'un réseau
Posté : dim. 06 juin 2010 21:27
par 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)