NetBIOS... en Perl | Découvrez vos voisins de réseau |
Rendezvous |
L'uniligne suivant effectue une requête de statut sur l'hôte passé en argument
$ perl -MNet::NBName -e 'print Net::NBName->new->node_status(shift)->as_string' 192.168.1.2 |
et affiche ces informations :
JUPITER <00> UNIQUE B-node Registered Active JUPITER <03> UNIQUE B-node Registered Active JUPITER <20> UNIQUE B-node Registered Active ..__MSBROWSE__.<01> GROUP B-node Registered Active CYDONET <00> GROUP B-node Registered Active CYDONET <1D> UNIQUE B-node Registered Active CYDONET <1E> GROUP B-node Registered Active MAC Address = 00-00-00-00-00-00 |
Journées Perl 2004 | 22 / 32 | |
Copyright © Sébastien Aperghis-Tramoni <sebastien@aperghis.net> |