Function AddConnection(shareName As String, pwd As String, localLetter As String) As Boolean
    '???? ??????? ?? NO_ERROR. ???? ??????? ?????? ???????, ?? ???????????? ???? ?? ????????? ????????:
    'ERROR_ACCESS_DENIED - ??? ??????? ? ???????? ???????.
    'ERROR_ALREADY_ASSIGNED - ?????????? ????????? ? ????????? lpLocalName ??? ??????????????.
    'ERROR_BAD_DEV_TYPE - ??? ?????????? ? ??? ??????? ?? ??????????.
    'ERROR_BAD_DEVICE - ???????? ???????????? ? ????????? lpLocalName ???????.
    'ERROR_BAD_NET_NAME - ???????? ???????????? ? ????????? lpRemoteName ???????.
    '
    'ERROR_BAD_PROFILE - ??????? ???????????? ????????????? ???????.
    'ERROR_CANNOT_OPEN_PROFILE - ??????? ?? ????? ??????? ??????? ????????????.
    'ERROR_DEVICE_ALREADY_REMEMBERED - ???????? ??? ?????????? ????????? ? ????????? lpLocalName - ??? ? ??????? ????????????.
    'ERROR_EXTENDED_ERROR - ????????? ??????? ????????????? ??????. ??? ???? ????? ???????? ?????????? ?? ??????, ???????? ??????? WNetGetLastError.
    'ERROR_INVALID_PASSWORD - ?????? ??????????????.
    '
    'ERROR_NO_NET_OR_BAD_PATH - ???????? ?? ????????? ?????? ??? ??????? ????????? ?? ??????? ??? ??? ???????? ??????? ?? ????? ???? ????????????.
    'ERROR_NO_NETWORK - ???? ???????????.
    
    '?????????:
    '[lpRemoteName] - c?????, ???????????? ????????? ??????? ?????? ??? ??????????.
    '[lpPassword]   - c?????, ??????? ?????????? ??????, ??? ??????????????. ???? ???? ???????? nil,
    '                 ?? ???????????? ?????? ?? ?????????, ???? ?????? ??????,
    '                 ?? ?????? ?? ????????????.
    '                 Win 95/98/Me: ???? ???????? ?????? ???? nil ??? ?????? ???????.
    '[lpLocalName]  - c????? ??????? ?????????? ??? ?????????? ??????????, ??????? ????? ?????????????.
    '                 ???????? "F:" ?? "LPT1". ???? ?????? ????? nil, ??
    '                 ????????? ?????? ?? ???????????????.
  
  On Local Error GoTo AddConnection_Err
    
    AddConnection = WNetAddConnection(shareName, pwd, localLetter)
    AddConnection = True

AddConnection_End:
    Exit Function

AddConnection_Err:
    Select Case Err.Number
      Case ERROR_ACCESS_DENIED
        
      Case Else
        Call CheckError( "mdlNetwork" ,  "AddConnection" , Err)
    End Select
    AddConnection = False
    Resume AddConnection_End
End Function



Function CancelConnection(localLetter As String, force As Integer) As Boolean
  On Local Error GoTo CancelConnection_Err
    
    CancelConnection = WNetCancelConnection(localLetter, force)
    CancelConnection = True
    
CancelConnection_End:
    Exit Function

CancelConnection_Err:
    CancelConnection = False
    MsgBox Error$
    Resume CancelConnection_End
End Function

Function AddConnection(shareName As String, pwd As String, localLetter As String) As Boolean
    'Если успешно то NO_ERROR. Если функция терпит неудачу, то возвращается одно из следующих значений:
    'ERROR_ACCESS_DENIED - Нет доступа к сетевому ресурсу.
    'ERROR_ALREADY_ASSIGNED - Устройство указанное в параметре lpLocalName уже переопределено.
    'ERROR_BAD_DEV_TYPE - Тип устройства и тип ресурса не сочетается.
    'ERROR_BAD_DEVICE - Значение определенное в параметре lpLocalName неверно.
    'ERROR_BAD_NET_NAME - Значение определенное в параметре lpRemoteName неверно.
    '
    'ERROR_BAD_PROFILE - Профиль пользователя неправильного формата.
    'ERROR_CANNOT_OPEN_PROFILE - Система не может открыть профиль пользователя.
    'ERROR_DEVICE_ALREADY_REMEMBERED - Прявязка для устройства указнного в параметре lpLocalName - уже в профиле пользователя.
    'ERROR_EXTENDED_ERROR - Произошла сетевая спецефическая ошибка. Для того чтобы получить информацию об ошибке, вызовите функцию WNetGetLastError.
    'ERROR_INVALID_PASSWORD - Пароль недействителен.
    '
    'ERROR_NO_NET_OR_BAD_PATH - Операция не выполнена потому что сетевой компонент не запущен или имя сетевого ресурса не может быть использовано.
    'ERROR_NO_NETWORK - Сеть отсутствует.
    
    'Параметры:
    '[lpRemoteName] - cтрока, определяющая удаленный сетевой ресурс для соединения.
    '[lpPassword]   - cтрока, которая определяет пароль, для аутентификации. Если этот параметр nil,
    '                 то используется пароль по умолчанию, если строка пустая,
    '                 то пароль не используется.
    '                 Win 95/98/Me: Этот параметр должен быть nil или пустой строкой.
    '[lpLocalName]  - cтрока которая определяет имя локального устройства, которое нужно переназначить.
    '                 Например "F:" ли "LPT1". Если строка равна nil, то
    '                 локальный ресурс не переназначается.
  
  On Local Error GoTo AddConnection_Err
    
    AddConnection = WNetAddConnection(shareName, pwd, localLetter)
    AddConnection = True

AddConnection_End:
    Exit Function

AddConnection_Err:
    Select Case Err.Number
      Case ERROR_ACCESS_DENIED
        
      Case Else
        Call CheckError( "mdlNetwork" ,  "AddConnection" , Err)
    End Select
    AddConnection = False
    Resume AddConnection_End
End Function



Function CancelConnection(localLetter As String, force As Integer) As Boolean
  On Local Error GoTo CancelConnection_Err
    
    CancelConnection = WNetCancelConnection(localLetter, force)
    CancelConnection = True
    
CancelConnection_End:
    Exit Function

CancelConnection_Err:
    CancelConnection = False
    MsgBox Error$
    Resume CancelConnection_End
End Function

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