Логин и пароль к файловой директории. Как автоматом?

[Nataliak]

Добрый день!
Задачка такая. Есть LotusScript программа, задача которой брать XML-файл из файловой директории где-то на сети, читать и забирать данные в лотусовые базы. Проблема - у Лотуса нет внутренних возможностей делать логин и map сетевого ресурса, а потом отцеплять его, но лотус прекрасно работает с win api.
Подскажите, пож-та, функции, которые могут помочь делать:
- подключение к сетевому ресурсу по заданному пути;
- проверять доступность;
- автоматом вводить логин и пароль для доступа, заранее известный;
- отцепляться от ресурса.
Спасибо.

[Sebas]

WNET*****

[JohnCR]

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

'подключение\отключение сетевых ресурсов
Private Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long
Private Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long
Const WN_SUCCESS = 0 'подключено успешно
Const WN_NET_ERROR = 2 'ошибка в сети
Const WN_BAD_PASSWORD = 6 'неверный пароль
Function AddConnection(MyShareName As String, MyPWD As String, UseLetter As String) As Integer
    On Local Error GoTo AddConnection_Err
    AddConnection = WNetAddConnection(MyShareName, MyPWD, UseLetter)
AddConnection_End:
    Exit Function
AddConnection_Err:
    AddConnection = Err
    MsgBox Error$
    Resume AddConnection_End
End Function
Function CancelConnection(DriveLetter As String, Force As Integer) As Integer
    On Local Error GoTo CancelConnection_Err
    CancelConnection = WNetCancelConnection(DriveLetter, Force)
CancelConnection_End:
    Exit Function
CancelConnection_Err:
    CancelConnection = Err
    MsgBox Error$
    Resume CancelConnection_End
End Function
Private Sub Form_Load()
    'добавить подключение
    RetV = AddConnection("\\MyComp\video", vbNullString, "Z:") 'vbNullString - это пароль (в данном случае его нет)
                                                               '\\MyComp\video - путь к ресурсу
                                                               'Z: - буква логич. устр-ва, к которому будет подключен ресурс
    'отключить сетевой диск:
    'RetV = CancelConnection("z:", 1)
End Sub

А можно просто использовать команду net use [param] (net use [param] /d)