| Вопрос: Доступность шара | Добавлено: 13.06.05 08:13 |
Автор вопроса:  yxaxa
|
| Подскажите как определить доступен ли расшаренный ресурс на удаленной машине? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  nicolai ICQ: 197368786 Вопросов: 6 Ответов: 91 |
Профиль | | #1 | Добавлено: 13.06.05 08:45 |
|
не знаю может здесь нет но практически на каждом сайте по VB найдеш реализацию
как основа : просканить порт расшареных ресурсов : порт открыт - ресурсы наверняка есть. не нет дк нет прищи по поисковикам |
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 13.06.05 17:41 |
|
net view \\IP
IP - айпи удалённый точки исполняй через батик, или эмулируй cmd... |
||
|
Номер ответа: 3 Автор ответа: yxaxaВопросов: 31 Ответов: 25 |
Профиль | | #3 | Добавлено: 14.06.05 14:51 |
|
Объясню ситуацию.
В локальной сети есть платный файл-сервер. Пока не заплатишь зайти на него нельзя. Но у него случаются баги, и иногда можно на него зайти бесплатно. Вот я и хочу, если шары доступны, то значит можно спокойно зайти, если нет, то значит нельзя. |
||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 15.06.05 00:12 |
|
IP$ = "192.168.1.1"
OPen "C:\1.bat" for output as #1 print #1, "net view \\" & IP$ & " > C:\1.txt" Close #1 Shell "C:\1.bat" Open "C:\1.txt" for input as #1 do while not eof (1) line input #1,s$ 'смотриш имеет ли s$ имя твоего ресурса If InStr(1,s$,"имя папки",3) > 0 Then 'имеет... далее чё то делаешь или флаг поставиш что есть итп.. End if Loop close #1 ну и т д ... Хотя не лучший способ, более лучше конечно программно через API определятьь что на том серваке... http://www.webfile.ru/353963 |
||
Страница: 1 |