Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обнаружить сетевый папки / 9 сообщений из 9, страница 1 из 1
22.05.2007, 09:03
    #34541264
konstsu
konstsu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обнаружить сетевый папки
Здравствуйте.
вопрос: есть локалка, понятно в ней есть компы, на некоторых есть расшареные папки, как их определить и если можно то и скрытые папки тоже.

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2007, 09:34
    #34541319
buser
buser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обнаружить сетевый папки
WNetEnumResource: Enumerating Local Network Resources
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2007, 12:09
    #34541813
konstsu
konstsu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обнаружить сетевый папки
buser WNetEnumResource: Enumerating Local Network Resources
Спасибо, но это не много не то, эта прога выдает только сетевые диски на локальном компе, а мне бы на удаленном, но там кое что нашел, но тоже выдает сетевые ресурсы на локальном (т.е. расшареные папки), но все равно спасибо.
NetShareEnum: Enumerating Shared Resources on Other Machines
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2007, 12:33
    #34541921
buser
buser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обнаружить сетевый папки
А если ВНИМАТЕЛЬНО посмотреть код?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2007, 12:34
    #34541923
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обнаружить сетевый папки
Через WMI ещё можно:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    Dim wmiLocator As New WbemScripting.SWbemLocator
    Dim wmiServices As WbemScripting.SWbemServices
    Dim wmiObjectSet As WbemScripting.SWbemObjectSet
    Dim wmiObject As WbemScripting.SWbemObject
    
    Set wmiServices = wmiLocator.ConnectServer("MyServer")
    Set wmiObjectSet = wmiServices.InstancesOf("Win32_Share")
    For Each wmiObject In wmiObjectSet
        Debug.Print wmiObject.Name, wmiObject.Path
    Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2007, 12:59
    #34542015
buser
buser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обнаружить сетевый папки
List Network Computers Это довесок...
WMI мне тоже нрвится, но советовать остерегаюсь... Налетят "коршуны" - заклюють :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2007, 15:37
    #34542703
konstsu
konstsu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обнаружить сетевый папки
buserА если ВНИМАТЕЛЬНО посмотреть код?
А подскажи где смотреть, что - то никак не разберусь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2007, 22:12
    #34552851
buser
buser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обнаружить сетевый папки
NetShareEnum: Enumerating Shared Resources on Other Machines Ищем буквы
Код: plaintext
1.
  'demo using the local machine
   bServer = "\\" & Environ$("COMPUTERNAME") & vbNullString
Т.е. комбинируя с этим List Network Computers должно чтонить получиться...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2007, 15:25
    #34555500
konstsu
konstsu
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как обнаружить сетевый папки
buser NetShareEnum: Enumerating Shared Resources on Other Machines Ищем буквы
Код: plaintext
1.
  'demo using the local machine
   bServer = "\\" & Environ$("COMPUTERNAME") & vbNullString
Т.е. комбинируя с этим List Network Computers должно чтонить получиться...
В том примере который я нашел, эту строчку я нашел, я думал вы про свой пример говорили.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обнаружить сетевый папки / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 517ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2163958]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 158ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 3ms
others: 250ms
total:  517ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]