Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Расшаренные папки

15K
03 марта 2006 года
PAV
16 / / 03.03.2006
Как получить список расшаренных папок у удаленного компа по ИП или имени? Где-то слышал, что через NetAPI, но не нашел доков.
405
06 марта 2006 года
Dmitrii
554 / / 16.12.2004
Цитата:
Originally posted by PAV
Как получить список расшаренных папок у удаленного компа по ИП или имени? Где-то слышал, что через NetAPI, но не нашел доков.


Если хотите выполнить эту работу именно с помощью Win32 API, то советую обратиться к API-Guide: http://www.mentalis.org/agnet/appdown.shtml.
Однако можно обойтись и без Win32 API. Неплохо помогают и средства WMI. Вот пример:

Код:
Sub ListTotalFolders()
Dim strComputer As String, numShares As Integer, numNonAdm As Integer
Dim colShares As Object, objShare As Object
Dim listShares As String
strComputer = "ws_lab"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
numShares = colShares.Count
If numShares > 0 Then
    numNonAdm = 0
    For Each objShare In colShares
        If objShare.Type = 0 And objShare.Name <> "print$" Then
            numNonAdm = numNonAdm + 1
            listShares = listShares & "Сетевое имя: " & objShare.Name & vbCr & _
                    "Комментарий: " & objShare.Caption & vbCr & _
                    "Путь: " & objShare.Path & vbCr & vbCr
        End If
    Next objShare
    If numNonAdm > 0 Then
        MsgBox listShares
    Else
        MsgBox "Ничего подходящего не обнаружено."
    End If
Else
    MsgBox "Ничего не обнаружено."
End If
End Sub

Здесь ws_lab - это имя интересующей сетевой станции.
15K
09 марта 2006 года
PAV
16 / / 03.03.2006
Большое спасибо, буду пробовать

Попробовал, работает, но почему-то только с моим компом. На другие permission denied. Как там можно управлять доступом?
282
11 июля 2006 года
Bard
481 / / 26.02.2006
[QUOTE=PAV]
работает, но почему-то только с моим компом[/QUOTE]

Да-да PAV совершенно прав: работает только на собственном компьютере. Как ето исправить ?
405
11 июля 2006 года
Dmitrii
554 / / 16.12.2004
[QUOTE=Bard]Да-да PAV совершенно прав: работает только на собственном компьютере. Как ето исправить ?[/QUOTE]
WMI-запрос выполняется в контексте политики безопасности того пользователя, который его создал.
Для обзора открытых на рабочей станции (тем более - на сервере) сетевых ресурсов требуются права локального администратора (для сервера нужны - самое малое - права администратора домена).
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог