Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.137.170.183] |
|
Сообщ.
#1
,
|
|
|
Как на Perl посмотреть какие компьютеры есть в сети и их шары?
Сеть Microsoft. OS WinXP. |
Сообщ.
#2
,
|
|
|
Цитата Serg_swamp, 02.07.02, 02:25:43 Как на Perl посмотреть какие компьютеры есть в сети и их шары? Сеть Microsoft. OS WinXP. Можно конечно заюзать модули Win32, но что там нужно будет накодить ... аж страшно Хотя можно и вот так ;D ;D ;D : <br>#!/usr/bin/perl<br><br>open(F,"net view|") || die "Shit happiness!\n";<br>map{ push @C, $1 if (/(^\\\\\S+?)(\s.*)/) } <F>;<br>close(F);<br><br>foreach $I (@C) {<br> printf "Список шар для $I .............................\n";<br> # а вот тут вывод команды нужно парсить в зависимости от OZ<br> # я же просто выведу __отбалды__ на консоль<br> open(F,"net view ".$I."|") || die "Shit!";<br> map { printf } <F>;<br> close(F);<br>}<br> ;D |