ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обнаружить сетевый папки
9 сообщений из 9, страница 1 из 1
Как обнаружить сетевый папки
    #34541264
konstsu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
konstsu
Гость
Здравствуйте.
вопрос: есть локалка, понятно в ней есть компы, на некоторых есть расшареные папки, как их определить и если можно то и скрытые папки тоже.

Спасибо.
...
Рейтинг: 0 / 0
22.05.2007, 09:03
| Ответить | Цитировать | Написать  
Как обнаружить сетевый папки
    #34541319
Фотография buser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
buser
Участник
WNetEnumResource: Enumerating Local Network Resources
...
Рейтинг: 0 / 0
22.05.2007, 09:34
| Ответить | Цитировать | Написать  
Как обнаружить сетевый папки
    #34541813
konstsu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
konstsu
Гость
buser WNetEnumResource: Enumerating Local Network Resources
Спасибо, но это не много не то, эта прога выдает только сетевые диски на локальном компе, а мне бы на удаленном, но там кое что нашел, но тоже выдает сетевые ресурсы на локальном (т.е. расшареные папки), но все равно спасибо.
NetShareEnum: Enumerating Shared Resources on Other Machines
...
Рейтинг: 0 / 0
22.05.2007, 12:09
| Ответить | Цитировать | Написать  
Как обнаружить сетевый папки
    #34541921
Фотография buser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
buser
Участник
А если ВНИМАТЕЛЬНО посмотреть код?
...
Рейтинг: 0 / 0
22.05.2007, 12:33
| Ответить | Цитировать | Написать  
Как обнаружить сетевый папки
    #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:34
| Ответить | Цитировать | Написать  
Как обнаружить сетевый папки
    #34542015
Фотография buser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
buser
Участник
List Network Computers Это довесок...
WMI мне тоже нрвится, но советовать остерегаюсь... Налетят "коршуны" - заклюють :)
...
Рейтинг: 0 / 0
22.05.2007, 12:59
| Ответить | Цитировать | Написать  
Как обнаружить сетевый папки
    #34542703
konstsu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
konstsu
Гость
buserА если ВНИМАТЕЛЬНО посмотреть код?
А подскажи где смотреть, что - то никак не разберусь?
...
Рейтинг: 0 / 0
22.05.2007, 15:37
| Ответить | Цитировать | Написать  
Как обнаружить сетевый папки
    #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
25.05.2007, 22:12
| Ответить | Цитировать | Написать  
Как обнаружить сетевый папки
    #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
28.05.2007, 15:25
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как обнаружить сетевый папки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34541813&tid=2163958]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 162ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 241ms
total:  491ms
созд. / загр.: 491ms
x
x
Закрыть


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