NAME

NetworkInfo::Discovery::NetBIOS - NetworkInfo::Discovery extension to find NetBIOS services

VERSION

Version 0.05

SYNOPSIS

use NetworkInfo::Discovery::NetBIOS;

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

Don't know how to deal with a %sref.

(F) hosts() was called with something it can't handle.

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.