Доступ к общей сетевой папке
Мне нужно получить доступ через VBA к папке, размещенной на сетевом файловом сервере. Папка доступна в письменной форме только через служебную учетную запись (отличную от обычных учетных записей пользователей), для которой у меня есть имя пользователя и пароль.
Через пользовательский интерфейс я могу увидеть эту папку и отобразить ее как локальный диск, но для доступа к ней в письменном виде мне нужно выйти из Windows и войти через учетную запись службы.
Есть ли способ получить доступ к сетевой папке во время обычного сеанса пользователя, кроме жесткого кодирования имени пользователя и pwd в коде VBA?
Я попытался сопоставить папку как локальный диск с:
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "S:", "\\corp-server\HostingFolder", False, Username, pwd
но не работал (диск "S" не был сопоставлен). Если вместо этого я делаю то же самое, но без указания имени пользователя и пароля:
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "S:", "\\corp-server\HostingFolder"
это работает отлично.
Интересно, возможно ли то, что я пытаюсь сделать? Если нет, есть ли альтернатива?
Спасибо