source: vendor/current/source3/script/findsmb.in

#!@PERL@
#
# Prints info on all smb responding machines on a subnet.
# This script needs to be run on a machine without nmbd running and be
# run as root to get correct info from WIN95 clients.
#
# syntax:
#    findsmb [-d|-D] [-r] [subnet broadcast address]
#
# with no agrument it will list machines on the current subnet
#
# There will be a "+" in front of the workgroup name for machines that are
# local master browsers for that workgroup. There will be an "*" in front
# of the workgroup name for machines that are the domain master browser for
# that workgroup.
# 
# Options:
#
# -d|-D         enable debug
# -r            add -r option to nmblookup when finding netbios name
#

$SAMBABIN = "@prefix@/bin";

for ($i = 0; $i < 2; $i++) {    # test for -d and -r options
        $_ = shift;
        if (m/-d|-D/) {
                $DEBUG = 1;
        } elsif (m/-r/) {
                $R_OPTION = "-r";
        }
}

if ($_) {                       # set broadcast address if it was specified
        $BCAST = "-B $_";
}


######################################################################
# do numeric sort on last field of IP address
sub ipsort                      
{
        @t1 = split(/\./,$a);
        @t2 = split(/\./,$b);
        @t1[3] <=> @t2[3];
}
######################################################################

# look for all machines that respond to a name lookup

open(NMBLOOKUP,"$SAMBABIN/nmblookup $BCAST '*' --debuglevel=0|") || 
        die("Can't run nmblookup '*'.\n");

# get rid of all lines that are not a response IP address,
# strip everything but IP address and sort by last field in address

@ipaddrs = sort ipsort grep(s/ \*<00>.*$//,<NMBLOOKUP>);

# print header info
print "\n                                *=DMB\n";
print "                                +=LMB\n";
print "IP ADDR         NETBIOS NAME     WORKGROUP/OS/VERSION $BCAST\n";
print "---------------------------------------------------------------------\n";

foreach $ip (@ipaddrs)          # loop through each IP address found
{
        $ip =~ s/\n//;          # strip newline from IP address