Découvrir les machines du réseau

(Lightweight Directory Access
Protocol) mais je préfère utiliser ADSI
pour diverses raisons d’authentification
et d’autorisation.) Toutefois, ADSI
ne convient pas pour des réseaux qui
n’utilisent pas AD, comme les domaines
Windows NT. Une autre façon
de découvrir les machines d’un domaine
consiste à  utiliser la fonction
GetMachines() de l’extension
Win32::AdminMisc ou la fonction
NetQueryDisplayInformation() de l’extension
Win32::Lanman pour interroger
un DC (domain controller).

L’interrogation d’AD ou d’un DC présente un problème : on obtient une
liste de machines dans un domaine
donné. Ces machines peuvent être offline
ou ne plus être utilisées (songez à 
des machines retirées depuis longtemps
du domaine mais dont les
comptes de domaines existent encore).
En outre, la liste n’inclurait que
les machines du domaine spécifié, et
pas celles d’autres domaines ou
groupes de travail sur le réseau.

Pour contourner ces problèmes, le
script met en oeuvre une forme d’autodétection.
En C du listing 1, le script
crée un objet Net::Ping qui envoie des
pings à  chaque adresse IP sur un subnet
donné de votre réseau. Par défaut,
Net::Ping utilise le protocole ICMP
pour les pings ; toutefois, l’objet supporte également les pings TCP.
(Pour plus de détails, consultez la documentation
du module Net::Ping.) Le
code en E boucle au travers de l’intervalle
IP spécifié dans le code en A.
Le script envoie un ping à  chaque
adresse IP et appelle la sous-routine
ProcessHost() pour chaque machine
qui répond.