доступ из VB к папке по логину/паролю

[vice4]

имеем папку на компе с разграничением прав доступа (доступ к ней открывается только , если ввести логин и пароль), в папке лежит обычный txt-файлик.
имеем программу на VB 6.

Можно ли, (а если можно, то как) получить доступ к этому файлу из программу не вводя предварительно средствами Windows связку логин и пароль.

Заранее спасибо за ответы и наводки на мысли.

[iGrok]

Каким образом организовано ограничение доступа?

[vice4]

на сервере есть список пользователей с паролями, которые имеют доступ к этой папке, образно говоря
"Вася" с паролем "123" и "Петя" с паролем "456" доступ имеют (логин и пароль запрашиваются при попытке открыть папку двойным щелчком), у остальных пользователей доступа нет

[iGrok]

О. Уже сервер какой-то появился, хотя в первом сообщении не было.
Так на "компе" или "на сервере"? Или это вообще сетевая папка?

[jangle]

Можно ли, (а если можно, то как) получить доступ к этому файлу из программу не вводя предварительно средствами Windows связку логин и пароль.

Можно получить доступ введя логин и пароль программно, как так примерно:

Код: Выделить всё

Function ConnectNetResource(RemoteName1 As String, LocalName1 As String, UserName1 As String, Password1 As String) As Long
    Dim Net As NETRESOURCE
    Dim RemoteName As String * 255
    Dim LocalName As String * 255
    Dim UserName As String * 255
    Dim Password As String * 255
    RemoteName = RemoteName1
    LocalName = LocalName1
    UserName = UserName1
    Password = Password1
    Net.dwType = RESOURCETYPE_DISK
    Net.lpLocalName = VarPtr(LocalName)
    Net.lpRemoteName = VarPtr(RemoteName)
    Net.lpProvider = 0
    ConnectNetResource = WNetAddConnection2(Net, Password, UserName, 0)
End Function


[vice4]

О. Уже сервер какой-то появился, хотя в первом сообщении не было.
Так на "компе" или "на сервере"? Или это вообще сетевая папка?

папка видна в общей сети, находится на компьютере, исполняющем функции сервера-приложений (думаю в данном контексте СЕРВЕР=КОМПЬЮТЕР)

[vice4]

Можно ли, (а если можно, то как) получить доступ к этому файлу из программу не вводя предварительно средствами Windows связку логин и пароль.

Можно получить доступ введя логин и пароль программно, как так примерно:

Код: Выделить всё

Function ConnectNetResource(RemoteName1 As String, LocalName1 As String, UserName1 As String, Password1 As String) As Long
    Dim Net As NETRESOURCE
    Dim RemoteName As String * 255
    Dim LocalName As String * 255
    Dim UserName As String * 255
    Dim Password As String * 255
    RemoteName = RemoteName1
    LocalName = LocalName1
    UserName = UserName1
    Password = Password1
    Net.dwType = RESOURCETYPE_DISK
    Net.lpLocalName = VarPtr(LocalName)
    Net.lpRemoteName = VarPtr(RemoteName)
    Net.lpProvider = 0
    ConnectNetResource = WNetAddConnection2(Net, Password, UserName, 0)
End Function


спасибо, попробую данный вариант