Поиск машин в сети

[Serg79]

Может данный вопрос немного не в тему. Но он касается Perl-a.

Можно написать скрипт на Perl-e для нахождения всех доступных машин в локальной сети, а также открытых для записи папок на этих машинах?
Если да то подскажите в какую сторону надо начинать копать.

[RXL]

Serg79, я так понимаю, речь идет о perl на винде? Быстрее всего  - об ActivePerl.

Думаю, нужно попробовать стандартные методы работы с директориями. Сам не пробовал.
Попробуй opendir() для '\\\\'.

Сообщи об результатах - это интересно!

/offtopic: пора сделать раздел Perl...

[Serg79]

Да именно ActivePerl

Прежде чем что то открывать "opendir() надо знать имя ресурса.
Вот и требуется сначало определить, пресутствуют ли в сети машины. Если да, то какие у них имена. Ну и в конце, какие на этой машине есть открытые ресурсы. И уже в конце можно и opendir() использовать.

Задача скорее похожа на сканирование сети.
У меня есть такая мысль, если нам известна маска подсети и адрес шлюза, то впринципе мы можем перебрать весь диапазон адресов этой сети исключая шлюз.  Может можно что-то попроще придумать? 

[PooH]

 А результат

Код:

c:\>net view

никак нельзя использовать? (ActivePerl-а воообще не знаю и не видел)

[RXL]

Посмотри это:
http://www.cpan.org/modules/by-category/22_Microsoft_Windows_Modules/Win32/
http://www.cpan.org/modules/by-category/22_Microsoft_Windows_Modules/Win32/Win32-NetName-0.3.readme


Добавлено через 1 минуту и 26 секунд:
PooH, ActivePerl отличается только малым количеством базовых пакетов.

[Serg79]

Спасибо RXL, толкнул в нужном направлении.
Вот вроде бы то что мне нужно: http://search.cpan.org/~jdb/libwin32-0.26/NetResource/NetResource.pm

Добавлено через 7 дней, 1 час, 16 минут и 4 секунды:
PooH, ты прав. Можно действительно рулить net view.

Получаем все рабочие группы:
net view /domain

Получаем все машины в рабочей группе:
net view /domain:[имя_рабочей_группы]

Получаем все доступные ресурсы на машине:
net view [\\имя_машины]

Спасибо всем.

Добавлено через 6 дней, 23 часа и 37 минут:
Здесь такая жо.., у меня уже крышу начинает сносить от этого 
Есть такой скрипт:

Код:

#!perl

use strict;
use Win32::NetResource qw(:DEFAULT GetSharedResources);

my (@domain,@komp);

#
# получаем все рабочие группы в сети
#
do
{
    my $list = `net view /domain`;
    my @temp = split /\n/, $list;
    push @domain, $temp[$_] for ( 3 .. $#temp - 1 );
};

#
# вот этот код отлично показывает все рабочие группы
#
#foreach my $temp (@domain) { print "$temp\n"; }
#

#
# Вот здесь самое интересное.......
# Находим все открытые папки на машинах
#
foreach my $temp (@domain) {
    if( GetSharedResources(my $resources, RESOURCETYPE_ANY,{ RemoteName => $temp }) ) {
        foreach my $href (@$resources) {
            push @komp, $href->{RemoteName} if $href->{Usage} == ESOURCEUSAGE_CONNECTABLE;
        }
    }
}

#
# а вот этот код уже не хочет показывать открытые папки
#
#foreach my $temp (@domain) { print "$temp\n"; }
#

Все проблемы вот в этом месте:

Код:

GetSharedResources(my $resources, RESOURCETYPE_ANY,{ RemoteName => $temp })

Я для эксперемента написал вот так:

Код:

...
...
...
@domain = ( "WORK1", "WORK2" );
foreach my $temp (@domain) {
    if( GetSharedResources(my $resources, RESOURCETYPE_ANY,{ RemoteName => $temp }) ) {
...
...
...

И все работает нормально.

Как мне лечить эту беду, может кто знает ? ? ?

[RXL]

#
# а вот этот код уже не хочет показывать открытые папки
#
#foreach my $temp (@domain) { print "$temp\n"; }
#

Нестыковочка...


У меня ни ActivePerl нет, ни пакета Win32::NetResource - проверить не могу.
Если не секрет, выложи результаты:

print "\"", join("\"\n\"", @domain), "\"\n";

print "\"", join("\"\n\"", @komp), "\"\n";

[Serg79]

Да RXL, ты прав.  Мне тажа мысль пришла когда я домой ехал. 

Все дело в пробельных символах. Оказывается как просто забыть, что строка может быть и такой "WORK1\t\t", хотя в консоле ее видишь как "WORK1".
Потправил код:

Код:

#
# получаем все рабочие группы в сети
#
do
{
    my $list = `net view /domain`;
    my @temp = split /\n/, $list;
    for my $i ( 3 .. $#temp - 1 ) {
        $temp[$i] =~ s/\s//g;
        push @domain, $temp[$i];
    }
};

И все заработало как часики.

А в нестыковочках виноват Copy - Paste 

[RXL]

Serg79, нет, еще не все.

$temp[$i] =~ s/\s//g;

Эта строчка удалит все пробельные символы, а не до+после имени.

Как я бы написал:

Код: (Perl)

open IN, "net view /domain|" or die "Don't run 'net' command!";
my @domain = ();
while (<IN>)
{
        s/^\s*|\s*$//;
        push @domain, $_;
}
close IN;

Конечно, в имени домена не должно быть пробелов, но это сейчас, а завтра окажется, что должно...

Ээээ... Я не учел, что вывод начинается с четвертой строки. Это можно исправить добавив после цикла обрезание массива.

[Serg79]

Код:

open IN, "net view /domain|"

Интересная конструкция, я не знал что так можно вызывать программы. Я так понимаю весь результат отправленный в STDOUT прогой net view /domain| будет занесен в IN. Еще что меня интересует, данный вызов также записывает код возврата программы в переменную '$?' или нет? И еще, обязательно надо дабавлять вертикальный слеш '|' в конце передоваемой строки "net view /domain|" или нет?

[RXL]

Serg79, ну, теперь не могу не порекомендовать литературку: O'Reilly, Programming Perl. Я пользуюсь переведенным изданием от Символ (Программирование на Perl), третье издание, 1152стр. Это лучшая книга по Perl-у. Где-то на сайте O'Reilly можно найти английский pdf.

Не "занесен" в IN - это FILEHANDLE, а не массив.

Возвращаемое значение помещается в $?, ошибка ОС (если была) - в $!.

Если ты не указываешь режим открытия, то по умолчанию это чтение. Ну и зачем тебе чтение неведомого файла 'domain' в поддиректории 'net view'?

"Прямая косая" - это новое слово Предлагаю: "вертикальная черта".

[Serg79]

Попробовал, работает. И обрабатывать потом намного проще и наглядне. 
Спосибо, теперь буду знать.