#!/usr/bin/perl -w
#-----
# should get local users from a subnet....
# scan.pl xxx.xxx.xxx
#----

use strict;
use Net::NBName;
use Win32::Lanman;

my $server;
my $subnet = $ARGV[0];
my $nb = Net::NBName->new;

my @users;

for my $hostbit (2..253)
{
 $server = "$subnet\.$hostbit";
 
 my $username = "";
 my $password = "";
 my $null = "";
 my $ns = $nb->node_status($server);
  if ($ns) 
  {
   if (connectipc($server, $password, $username, $null))
   {