NetBIOS... in Perl | Discovering your network neighbourhood |
Rendezvous |
The following oneliner executes a node status request on the host given in argument
$ perl -MNet::NBName -e 'print Net::NBName->new->node_status(shift)->as_string' 192.168.1.2 |
and prints the following information:
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 |
YAPC::Europe 2004 | 24 / 36 | |
Copyright © Sébastien Aperghis-Tramoni <sebastien@aperghis.net> |