"Christian Bruhn Gufler" <cbg@mfd.dk> writes:
> Ku´ jeg få dig til at sende scriptet ?
Ja, det kan du da godt. Jeg kan vist lige så godt sende det her, for
det fylder ikke alverden.
#!/usr/bin/perl -w
$master_browser = shift;
$master_ip = shift;
%hosts = ();
open( FH, "smbclient -L //$master_browser/ -I $master_ip -N|" );
while( <FH> ) {
last if( $_ =~ /Server\s*Comment/ );
}
$_ = <FH>;
while( <FH> ) {
last if( $_ =~ /^\s+$/);
($host_name) = $_ =~ /^\s*(\w+)\s+.*$/;
$hosts{$host_name} = "";
}
close( FH );
foreach $host_name (keys %hosts) {
open( FH, "nmblookup $host_name|" );
$_ = <FH>; $_ = <FH>;
($hosts{$host_name}) = $_ =~ /^(\d+\.\d+\.\d+\.\d+) /;
close( FH );
}
foreach $host_name (keys %hosts) {
print $host_name . "\n";
print $hosts{$host_name} . "\n";
}
Ret simpelt. Du kalder den eksempelvis sådan her:
/smbdump.pl MASTERSERVER 123.123.123.123
hvor MASTERSERVER er navnet på din domæne master, og 123.123.123.123
er IP nummeret på samme.
Den vil så give dig et output med navne og ip-adresser på alle
maskiner logget på lige nu. Jeg har så blot lavet et lille SDB modul,
som bruger disse data til at lave en zone. Du kan også bare lave et
lille perl-scripts som smider det ud i en alm. zonefil og restarter
bind.
> Hvad gør jeg galt her ?
> BIND er version 9.1.2
Opgrader
Jeg har ingen problemer med 9.1.3rc1 -- 9.2.0a'en har også virket
fint, men jeg har ikke tæsket den igennem på samme måde.
--
Jens Kristian Søgaard, Mermaid Consulting I/S,
jens@mermaidconsulting.dk,
http://www.mermaidconsulting.com/
http://www.raqsupport.net/