|
|
|
Как из VBA получить доступ к запароленной сетевой папке зная пароль?
|
|||
|---|---|---|---|
|
#18+
FAQ: Как из VBA получить доступ к запароленной сетевой папке зная пароль? Для чего это надо: 1. Из кода программы иметь возможность напрямую формировать данные на другом компьютере с ограниченным доступом (пароль) 2. Автоматическое обновление различных оболочек у различных пользователей (опять таки из VBA - в папку с паролем) Проблемы: Пока проводником не откроешь сетевую папку и не введешь пароль, Access этого пути не видит, а после работает как с обычной папкой. Если пользователей много (и паролей), то возникают некоторые неудобства. Возможно ли, не вызывая проводник, из VBA получить доступ к папке, и чтобы пароль не запрашивался (подставлялся автоматически)? Если это возможно, то хотелось бы увидеть код. P.S. Извиняйте, если не буду в сети - я здесь за свой счет :-(, но периодически постараюсь поддерживать тему. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2003, 15:01 |
|
||
|
Как из VBA получить доступ к запароленной сетевой папке зная пароль?
|
|||
|---|---|---|---|
|
#18+
api подключение WNetAddConnection и WNetAddConnection2 отключение WNetCancelConnection и WNetCancelConnection2 пример использования у Гетца стр.561 "Пограммирование на VBA" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2003, 15:19 |
|
||
|
Как из VBA получить доступ к запароленной сетевой папке зная пароль?
|
|||
|---|---|---|---|
|
#18+
У меня Гетца нет (если можешь, подскажи где скачать), хотелось бы поподробнее (небольшой пример с путями) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2003, 15:30 |
|
||
|
Как из VBA получить доступ к запароленной сетевой папке зная пароль?
|
|||
|---|---|---|---|
|
#18+
А если поюзать net use из командной строки? там есть нужные ключики... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.08.2003, 15:56 |
|
||
|
Как из VBA получить доступ к запароленной сетевой папке зная пароль?
|
|||
|---|---|---|---|
|
#18+
Я пробовал запускать проводник (explorer) с параметрами пути функцией Shell, появляется окно ввода пароля, после его ввода открывается папка (и появляется праямой доступ на нее из VBA) Минусы: 1.Если надо открыть папки с паролями на нескольких компьютерах, то постоянно надо водить пароль (и помнить его, если он разный) 2.Открывается куча папок, хотя этого не надо Как еще можно получить доступ на запароленную папку, кроме как открывая ее? Окружение: Win98, Ac97 P.S. To Alexus12 Что за net use? можно поподробнее? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.08.2003, 14:41 |
|
||
|
Как из VBA получить доступ к запароленной сетевой папке зная пароль?
|
|||
|---|---|---|---|
|
#18+
To Хам трамвайный Где можно применить WNetAddConnection и WNetAddConnection2, пример плииз. По справке я этих функций не нашел, может кто знает еще какие нибудь способы соединения? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.08.2003, 15:05 |
|
||
|
Как из VBA получить доступ к запароленной сетевой папке зная пароль?
|
|||
|---|---|---|---|
|
#18+
из справки ------------------------- Функция WNetAddConnection модуль Windows Группа ссылок: Net Описание: function WNetAddConnection(lpRemoteName, lpPassword, lpLocalName: PChar): DWORD; Функция позволяет вызывающему приложению подключить локальное устройство к сетевому ресурсу. Система автоматически будет восстанавливать связь при передачи и логине(LogIn). Эта функция введена для совместимости с Win16-приложениями. Вы должны вызывать WNetAddConnection2 или WNetAddConnection3. Параметры: lpRemoteName: Строка, определяющая удаленный сетевой ресурс для соединения. lpPassword: Строка, которая определяет пароль, для аутентификации. Если этот параметр nil, то используется пароль по умолчанию, если строка пустая, то пароль не используется. Win 95/98/Me: Этот параметр должен быть nil или пустой строкой. lpLocalName: Строка которая определяет имя локального устройства, которое нужно переназначить. Например "F:" ли "LPT1". Если строка равна nil, то локальный ресурс не переназначается. Возвращаемые значения Если успешно то 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 - Сеть отсутствует. Замечания Win XP: функции WNet создают и удаляют буквы сетевых устройств в пределах пространства имен устройств МС-DOS, которые связываются с текущим сеансом и имеют AuthenticationID (AuthenticationID - Локальный уникальный идентификатор{LUID}, связанный с сеансом передачи). Это может повлиять на те приложения которые вызываю функции WNet для одного пользователя, после логона, а затем пытаютсч использовать в сеансе других пользователей. См. также: WNetCancelConnection, WNetGetConnection Функция находится в файле mpr.dll -------------------- Справку можно взять здесь ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.08.2003, 15:26 |
|
||
|
Как из VBA получить доступ к запароленной сетевой папке зная пароль?
|
|||
|---|---|---|---|
|
#18+
... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 08.08.2003, 15:31 |
|
||
|
Как из VBA получить доступ к запароленной сетевой папке зная пароль?
|
|||
|---|---|---|---|
|
#18+
To Sfagnum Большое спасибо за ссылку на пример кода в VB. Входные закончатся, попробую ее на работе, так что однозначный ответ могу дать только после работы, так как там нет и-нета :( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.08.2003, 18:30 |
|
||
|
|

start [/forum/topic.php?fid=45&msg=32230181&tid=1680003]: |
0ms |
get settings: |
9ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
49ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
49ms |
get tp. blocked users: |
1ms |
| others: | 235ms |
| total: | 367ms |

| 0 / 0 |
