NAME
NetworkInfo::Discovery::NetBIOS - NetworkInfo::Discovery extension to find NetBIOS services
VERSION
Version 0.05
SYNOPSIS
my
$scanner
= new NetworkInfo::Discovery::NetBIOS
hosts
=> [
qw(192.168.0.0/24)
];
$scanner
->do_it;
for
my
$host
(
$scanner
->get_interfaces) {
printf
"<%s> NetBios(node:%s zone:%s)\n"
,
$host
->{ip},
$host
->{netbios}{node},
$host
->{netbios}{zone};
}
DESCRIPTION
This module is an extension to NetworkInfo::Discovery
which can find hosts and services using the NetBIOS protocol.
METHODS
- new()
-
Create and return a new object.
Options
hosts
- expects a scalar or an arrayref of IP addresses in CIDR notation
Example
# with a scalar argument
my
$scanner
= new NetworkInfo::Discovery::NetBIOS
hosts
=> '192.168.0.0/24;
# with an arrayref
my
$scanner
= new NetworkInfo::Discovery::NetBIOS
hosts
=> [
qw(192.168.0.0/24)
];
- do_it()
-
Run the scan.
- hosts()
-
Add hosts or networks to the scan list. Expects addresses in CIDR notation.
Examples
$scanner
->hosts(
'192.168.4.53'
);
# add one host
$scanner
->hosts(
'192.168.5.48/29'
);
# add a subnet
$scanner
->hosts(
qw(192.168.6.0/30 10.0.0.3/28)
);
# add two subnets
DIAGNOSTICS
SEE ALSO
NetworkInfo::Discovery, Net::NBName
AUTHOR
Sébastien Aperghis-Tramoni, <sebastien@aperghis.net>
BUGS
Please report any bugs or feature requests to bug-networkinfo-discovery-netbios@rt.cpan.org
, or through the web interface at http://rt.cpan.org. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
COPYRIGHT & LICENSE
Copyright 2004 Sébastien Aperghis-Tramoni, All Rights Reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 166:
Non-ASCII character seen before =encoding in 'Sébastien'. Assuming CP1252