Просмотр сети на Perl -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.21.233.41]

Внимательно изучите правила раздела перед созданием темы

0. ПРИЛАГАЙТЕ СВОИ СКРИПТЫ.
1. Прежде чем создать топик, используйте поиск. Возможно это уже обсуждалось.
2. В топике указывайте ОС, режим работы скрипта (CLI|CGI). Очень желателен вывод лог-файлов и того места, куда у вас назначен вывод данных (STDOUT|STDERR)
3. Помните: вы знаете что вы хотите, а форумчане - нет. Поэтому следуйте простому правилу: грамотный развернутый вопрос - грамотный развернутый ответ.

Модераторы: ANDLL

Просмотр сети на Perl

Serg_swamp	Сообщ. #1 , 01.07.02, 22:25
Unregistered	Как на Perl посмотреть какие компьютеры есть в сети и их шары? Сеть Microsoft. OS WinXP.

JoeUser

Сообщ. #2 , 02.07.02, 14:49

Unregistered

Цитата Serg_swamp, 02.07.02, 02:25:43

Как на Perl посмотреть какие компьютеры есть в сети и их шары?
Сеть Microsoft. OS WinXP.

Можно конечно заюзать модули Win32, но что там нужно будет накодить ... аж страшно

Хотя можно и вот так ;D ;D ;D :

#!/usr/bin/perl open(F,"net view|") || die "Shit happiness!\n"; map{ push @C, $1 if (/(^\\\\\S+?)(\s.*)/) } <F>; close(F); foreach $I (@C) { printf "Список шар для $I .............................\n"; # а вот тут вывод команды нужно парсить в зависимости от OZ # я же просто выведу __отбалды__ на консоль open(F,"net view ".$I."|") || die "Shit!"; map { printf } <F>; close(F); }

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0232 ] [ 15 queries used ] [ Generated: 26.04.24, 03:01 GMT ]