Everhart, Glenn
From:	Lord Chr0n0s [browne@MARIETTA.EDU]
Sent:	Saturday, January 09, 1999 6:29 PM
To:	NTBUGTRAQ@LISTSERV.NTBUGTRAQ.COM
Subject:	NetBios Scan 1.0 for Perl for Win32
This is a nice little tool i wrote for monitoring your networks.
It prints the Net BIOS tables for everyone in your class C network.
To run it you need only to have Perl installed on a Win9x/NT box.
I am kinda new to Perl, so don't flame me if you think this sucks.
It works and I find it useful, so I thought I would share it with you.

-----CUT HERE----

#!c:\Perl\bin\perl.exe
#you don't need that line i just felt like putting it there
#if you change it and you think it is cool, send me a copy please

print "Welcome to NetBios Scan 1.0 for Perl for Win32!\n",
      "This program is made by Nick Brown (browne\@marietta.edu).\n\n";
print "Enter the first 3 fields to scan (example: 122.22.46): ";
$first3 = <stdin>;
chop($first3);
$first3 = $first3 . ".";
$last = "1";
print "Any responses will be written to nbtscanlog.txt\n";
open (LOGFILE, ">>./nbtscanlog.txt");
while ($last < 255){
print "scanning $first3$last\n";
$nbtout = `nbtstat -a $first3$last`;
  unless ($nbtout eq "Host not found."){
  print "Output from $first3$last:$nbtout", "\n";
  print LOGFILE "Output from $first3$last:$nbtout", "\n";
  }
$last = ($last + 1);
}
print "Done scanning $first3\*.  Press any key to exit.";
$wait = <stdin>;

----STOP CUTTING----

--
Nick Brown
SSYOKWAPC Industries CEO
(Some Seventeen Year Old Kid With A PC Industries)